Как разрешить базам данных запускать содержимое ActiveX при открытии с VBA?

Question

В Access 2013 (64-разрядная версия) я открываю другую базу данных (db2), когда пользователь нажимает кнопку на форме в db1. Это работает. Тем не менее, когда он открывает db2, я получаю предупреждение "Предупреждение безопасности: некоторые активные материалы были отключены. Нажмите для более подробной информации" с кнопкой, чтобы включить содержимое. Это раздражает, и когда я открываю базу данных из 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

Answer 1

Включите полный путь к NewDb.accdb когда ты звонишь OpenCurrentDatabase, Я думаю, что вы хотите ту же папку, что и первая база данных (db1). CurrentProject.Path даст вам полный путь к этой папке...

db2.OpenCurrentDatabase CurrentProject.Path & "\NewDb.accdb"