Ac上的VBA语法错误消息

ajs · 发表于 2022-7-6 14:35:04

在此完成VBA新手：

我正在学习有关连接到Access的autodesk教程。本教程的一部分是以下代码：

公共工作区
公共dbsObj As数据库
公共tblObj作为TableDef
公共fldObj As字段
公共rstObj作为记录集

私有子命令按钮1\u Click（）
出错时继续下一步
设置wksObj=DBEngine。工作区（0）
设置dbsObj=wksObj！CreateDatabase（“mydbase.mdb”，dbLangGeneral）
设置tblObj=dbsObj！CreateTableDef（“mytable”）
带tblObj
.领域。追加CreateField（“text”，dbText）
.领域。追加CreateField（“integer”，dbInteger）
.领域。追加CreateField（“long”，dbLong）
.领域。追加CreateField（“double”，dbDouble）
.领域。追加CreateField（“boolean”，dbBoolean）
.领域。追加CreateField（“memo”，dbMemo）
.领域。追加CreateField（“货币”，dbCurrency）
.领域。追加CreateField（“日期”，dbDate）
以结束
dbsObj。TableDefs。附加tblObj
dbsObj。TableDefs。刷新
末端接头

私有子命令按钮2\u Click（）
出错时继续下一步
设置dbsObj=DBEngine。工作区（0）。OpenDatabase（“mydbase.mdb”）
设置rstObj=dbsObj。OpenRecordset（“mytable”，dbOpenTable）
rstObj。添加新的
rstObj！Text=“文本值”
rstObj！整数=1
rstObj！双=3.1415926
rstObj！布尔值=True
rstObj！货币=“$4240.54”
rstObj！日期=“2/10/00”
rstObj。使现代化
rstObj。闭集dbsObj=Nothing
末端接头

私有子命令按钮3\u Click（）
卸载我
末端接头

命令按钮2（以红色粗体突出显示）的最后一行代码中出现语法错误

我得到的错误是：编译错误/语法错误。

谁能告诉我语法错误是什么？我假设这与关闭dbsObj并将其设置为nil有关。

谢谢

AJS公司

SEANT · 发表于 2022-7-6 15:18:31

它可能很简单：

rstObj。关
设置dbsObj=Nothing

换句话说，将每个语句放在单独的一行。

ajs · 发表于 2022-7-6 15:36:45

就是这样。。。

非常感谢。

[编程交流] Ac上的VBA语法错误消息

发表回复

精选推荐