Office中国论坛/Access中国论坛

标题: 问两个VBA代码出错/ [打印本页]

作者: sbsfhgl 时间: 2007-12-6 10:54
标题: 问两个VBA代码出错/
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 时间: 2007-12-6 11:08
用捕获错误方法来跳过，
OR
先判断是否有StartupShowDBWindow属性

作者: sbsfhgl 时间: 2007-12-6 11:23
麻烦了，弄不来，我不知道StartupShowDBWindow和CurrentDataBase.TableDefs.Append tbl 是什么意思，搜索不到，好人做到底嘛

作者: sbsfhgl 时间: 2007-12-6 12:15
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

作者: wwwwa 时间: 2007-12-6 14:43
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 时间: 2007-12-6 15:29
非常感谢你的帮助，今天又学了不和

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)