应用程序运行方法＆＃34;错误应用程序定义的错误或对象定义的错误＆＃34;

Question

我尝试使用Access.application.run方法运行子访问。它不断提出错误：

  

40351＆＃34;错误应用程序定义的错误或对象定义错误＆＃34;

代码非常基础：

Dim objAccess, wsh As Object

Set wsh = VBA.CreateObject("WScript.Shell")
Set objAccess = CreateObject("Access.Application")

With objAccess
.OpenCurrentDatabase ("c:\coxi\Documents\Personnal\investment\5334_2.accdb")
.Run "test"    
Set .CurrentProject = Nothing
End With

.run行上的例行错误

Answer 1

根本原因：您的代码正在尝试打开不受信任的访问数据库“ 5334_2.accdb”

修复：

• 开放访问应用程序
• 在选项下转到“受信任的中心设置”。
• 添加Access DB文件的位置。

重试执行代码。

Answer 2

非常感谢！ 我有同样的隐藏问题，可以通过这种方式解决！

我在C：驱动器（C：\…\…\…）上的.accdb数据库中编辑了代码，并签署了Word模板。一切都运行良好，包括双向的Word集成（Word调用Access过程，反之亦然）。

当我将Access数据库和Word模板复制到我的标准数据库路径（D：\ ... \…）上时，Access数据库和Word模板都运行良好，但AccessObj上Word中的错误40351除外。运行“ Myproc” ...

很遗憾，Word和Access都没有显示一个对话框来启用Access代码或至少出现声音错误消息。