vba 中 使用 docmd.runSQL, get error 2051

holywinds

用 VBA 于 Excel 2003 中结合Access2003做了一个出报告的项目，运行良好。
最近把Access 2003 升级到了2007.升级后发现reference被改动。重新更新了引用及路径。
运行到 docmd.RunSQL 时报错。error number 2051， The RunSQL action was canceled.
请帮助! 多谢。
Dim App As New Access.Application
With App
    .OpenCurrentDatabase (path & "\CRUNCH.MDB")
    .DoCmd.RunSQL "delete * from tbl_sub", False
End With

方漠

试试改用 Db.execute "YourSQL"

holywinds

多谢

问题已解决。
原来是Access 2007 里有一个信任中心的 设置。
如果用外部程序调用该文件而没有被设置为信任资源的话，就不能成功调用它。
刚开始被误导以为是库函数改变，不支持这些属性和方法了呢。
修改了trust center 就好了。

zcquit

路过看看