当使用 VBA 打开时，如何允许数据库 运行 activex 内容？
How do I allow databases to run activex content when opened with VBA?
在 Access 2013（64 位）中，当用户单击 db1 中表单上的按钮时，我将打开另一个数据库 (db2)。这是工作。但是，当它打开 db2 时，我会看到警告栏 "Security warning: Some active content has been disabled. Click for more details" 以及一个启用内容的按钮。这很烦人，当我从 db1 打开数据库时也打开了表单，当我单击按钮启用内容时，所有当前打开的表单都关闭了。
两个数据库都在同一个目录中，我已将此目录添加到受信任的位置。我还需要做些什么来禁用此警告栏而不自动信任所有数据库（我不想做的事情）？
当我手动打开每个数据库时，我没有看到警告栏出现，所以我认为这与我使用的 VBA 代码有关：
Dim db2 As Variant
Set db2 = CreateObject("Access.Application")
db2.OpenCurrentDatabase "NewDb.accdb"
db2.DoCmd.OpenForm "_View"
db2.DoCmd.OpenForm "_Home"
db2.UserControl = True
调用 OpenCurrentDatabase 时包含 NewDb.accdb 的完整路径。我认为您需要与第一个数据库 (db1) 相同的文件夹。 CurrentProject.Path 将为您提供该文件夹的完整路径...
db2.OpenCurrentDatabase CurrentProject.Path & "\NewDb.accdb"
在 Access 2013（64 位）中，当用户单击 db1 中表单上的按钮时，我将打开另一个数据库 (db2)。这是工作。但是，当它打开 db2 时，我会看到警告栏 "Security warning: Some active content has been disabled. Click for more details" 以及一个启用内容的按钮。这很烦人，当我从 db1 打开数据库时也打开了表单，当我单击按钮启用内容时，所有当前打开的表单都关闭了。
两个数据库都在同一个目录中，我已将此目录添加到受信任的位置。我还需要做些什么来禁用此警告栏而不自动信任所有数据库（我不想做的事情）？
当我手动打开每个数据库时，我没有看到警告栏出现，所以我认为这与我使用的 VBA 代码有关：
Dim db2 As Variant
Set db2 = CreateObject("Access.Application")
db2.OpenCurrentDatabase "NewDb.accdb"
db2.DoCmd.OpenForm "_View"
db2.DoCmd.OpenForm "_Home"
db2.UserControl = True
调用 OpenCurrentDatabase 时包含 NewDb.accdb 的完整路径。我认为您需要与第一个数据库 (db1) 相同的文件夹。 CurrentProject.Path 将为您提供该文件夹的完整路径...
db2.OpenCurrentDatabase CurrentProject.Path & "\NewDb.accdb"