如何删除外部库的报表或窗体

BaoChengReng　发表于：2014-08-02 22:26:44 　

我想用VBA来删除外部数据库的报表或窗体，语句如下
Dim dbs As Database

Set dbs = DBEngine(0).OpenDatabase(外部库全名, False, False)
对于报表
DoCmd.DeleteObject acReport, 报表名
对于窗体
DoCmd.DeleteObject acForm, 窗体名
但不成功，请给位高手赐教。

Top

cspa 发表于：2014-08-02 23:07:34

Sub subDelacObj()
Dim appAccess As Object

Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "你要删除的数据库名（包括全路径）"   '如，D:\db1.mdb
appAccess.DoCmd.DeleteObject acForm, "你要删除的窗体名称"          '如，form1
appAccess.DoCmd.DeleteObject acReport, "你要删除的报表名称"        '如，report1
End Sub

Top

BaoChengReng 发表于：2014-08-03 08:52:54

1楼楼主：谢谢您赐教，这个办法很好，但尚有一点，就是在执行命令时那个要删除对象的库弹出来了，用什么语句让它隐藏起来，谢谢！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何删除外部库的报表或窗体