在VBA建表建不明白了，发了好几天了，求高手教？

我爱学电脑

Option Compare Database
Private Sub from_beforinsert(cancel As Integer)
Me.建立日期 = Date
End Sub
Private Sub form_afterinsert()
Dim strSql As String
strSql = "create table 分类账" & 账户编号 & "(账户编号 varchar(50),日期 date,日记账编号 varchar(50),借 money,贷 money,余额 money,摘要 memo)"
CurrentProject.Connection.Execute strSql
End Sub

我是新手照着书上打的但是书上不对，有网有帮了一下我改了，但还是不对劲，运行时没什么出错提示，但建不出那个叫“分类账”的表，求高手帮助。下面附件就是，有空高手帮帮忙，学电脑真不容易呀。

haemon

反正我这是可以的,照你那个运行,可以建出表"分类账00001"

Victor_Duane

这可能是版本不支持吧,不知楼主的ACCESS是什么版本

Victor_Duane

把这一句
CurrentProject.Connection.Execute strSql
改为
currentdb.execute strsql
试试

我爱学电脑

成了真的成了，原来是得在那个窗体里输入数据才能产生“分类帐”表呀，真是的，我这新手让大家费心了，谢谢大家，万分感谢。这里真是个好地方，真是一人有事大家帮。