I have several databases. In an effort to make an easy access activation platform, I created a DB that has graphic for each DB, with code to open the corresponding DB, such as ...
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "M:\DataSystems\LtrsPlus.accdb"
The databases open fine. The problem occurs when I change one of the objects in the DB. The first time the DB is opened, a trusted location question appears. While it's simple to click on Enable program, if I'm in the platform DB and click on enable program, the DB is not activated.
The way around the problem is to open the DB one time. (not using the consolidated platform). After I click on enable program one time, I can use the consolidation platform to activate the DBs.
I'm on a government computer and cannot add a Trusted Locations are deactivated.
Is there a smarter way to consolidate several DBs into one platform to avoid this problem?
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "M:\DataSystems\LtrsPlus.accdb"
The databases open fine. The problem occurs when I change one of the objects in the DB. The first time the DB is opened, a trusted location question appears. While it's simple to click on Enable program, if I'm in the platform DB and click on enable program, the DB is not activated.
The way around the problem is to open the DB one time. (not using the consolidated platform). After I click on enable program one time, I can use the consolidation platform to activate the DBs.
I'm on a government computer and cannot add a Trusted Locations are deactivated.
Is there a smarter way to consolidate several DBs into one platform to avoid this problem?
