问两个VBA代码出错/

sbsfhgl

Dim tbl As DAO.TableDef
If CurrentDb.Properties("StartupShowDBWindow") = False Then
Set tbl = CurrentDb.CreateTableDef("")
tbl.C & Left(Date, 4) & ";DATABASE=大利"
tbl.Attributes = dbAttachSavePWD
tbl.Name = "AAA"
tbl.SourceTableName = "AAA"
CurrentDataBase.TableDefs.Append tbl
CurrentDataBase.TableDefs.Delete "AAA"
End If

我从其它数据库导入运行后。
If CurrentDb.Properties("StartupShowDBWindow") = False Then，说找不到属性！
CurrentDataBase.TableDefs.Append tbl  ，说未定义属性

我都照到原文本引用但都不得行，请问高手应怎么办？

wwwwa

用捕获错误方法来跳过，
OR
先判断是否有StartupShowDBWindow属性

sbsfhgl

麻烦了，弄不来，我不知道StartupShowDBWindow和CurrentDataBase.TableDefs.Append tbl 是什么意思，搜索不到，好人做到底嘛

sbsfhgl

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

wwwwa

StartupShowDBWindow
显示数据库窗口
CurrentDataBase.TableDefs.Append tbl
增加表

代码增加：
on error resume next
Dim tbl As DAO.TableDef
If CurrentDb.Properties("StartupShowDBWindow") = False Then
Set tbl = CurrentDb.CreateTableDef("")
tbl.C & Left(Date, 4) & ";DATABASE=大利"
tbl.Attributes = dbAttachSavePWD
tbl.Name = "AAA"
tbl.SourceTableName = "AAA"
CurrentDataBase.TableDefs.Append tbl
CurrentDataBase.TableDefs.Delete "AAA"
End If

sbsfhgl

非常感谢你的帮助，今天又学了不和