Access跨数据库调用子过程遇40351错误，求解决方法？

遇到这个40351错误，大概率是Access的安全机制拦截了跨库代码执行，或者调用方式存在细微问题。我给你几个逐步排查的解决方案：

1. 确保目标数据库（DB1.accdb）已被信任 #

Access默认会阻止未被信任的数据库运行VBA代码，这是最常见的触发原因：

• 直接打开DB1.accdb时，如果顶部出现“安全警告：某些活动内容已被禁用”的提示栏，点击启用内容即可临时信任；
• 更稳妥的永久信任方式：打开Access，点击「文件」>「选项」>「信任中心」>「信任中心设置」，选择「受信任位置」，点击「添加新位置」，浏览选中DB1所在的文件夹，勾选「同时信任此位置的子文件夹」后确定。

2. 确认子过程的位置和作用域 #

你的mysubrutine标记为Public没错，但要保证它在标准模块里，而非窗体/报表模块：

• 如果它在窗体模块中，调用时必须加上窗体名称，格式为appAccess.Run "Form_你的窗体名.mysubrutine"（前提是该窗体已打开）；
• 标准模块里的Public过程才能直接通过名称调用，先检查模块类型是否正确。

3. 调整调用代码的细节 #

试试修改你的VBA代码，增加兼容性设置和调试验证：

Dim appAccess As Object ' 改用后期绑定，避免Office版本引用冲突
Set appAccess = CreateObject("Access.Application")

' 可选：设置可见性，方便调试时查看DB1的运行状态
appAccess.Visible = True

' 明确以非独占模式打开数据库
appAccess.OpenCurrentDatabase "DB1.accdb", False

' 先验证目标数据库是否成功打开
If appAccess.CurrentDb.Name Like "*DB1.accdb" Then
    appAccess.Run "mysubrutine"
Else
    MsgBox "未能正确加载目标数据库，请检查文件路径"
End If

' 调用完成后记得释放资源
appAccess.CloseCurrentDatabase
Set appAccess = Nothing

改用后期绑定（Dim appAccess As Object）可以避免因Office版本不一致导致的引用问题，比如你当前引用的是15.0（Office 2013），但系统安装了更高版本的Access时，前期绑定容易出错。

4. 临时调整宏安全级别测试 #

如果以上方法都无效，可以临时放宽宏安全设置排查问题：

• 打开Access，「文件」>「选项」>「信任中心」>「信任中心设置」>「宏设置」；
• 选择「启用所有宏（不推荐；可能会运行有潜在危险的代码）」测试调用是否正常，测试完成后记得改回更安全的级别（比如「启用签署的宏；禁用所有未签署的宏」）。

内容的提问来源于stack exchange，提问作者Nomarsky