Openen andere Access applicatie zonder beveiligingsmelding

[Sanders69]

Ik open vanuit de ene Access applicatie een andere Access applicatie met de volgende coderegel:

Application.FollowHyperlink strApplicatie

strApplicatie is zoals begrijpelijk de locatie en bestandsnaam van de andere Access applicatie.
Ik heb een printscreen erbij geplaatst want zodra ik deze andere applicatie activeer krijg ik een beveiligingsmelding als een popupscherm te zien.
Hoe krijg ik deze beveiligingsmelding niet te zien, wellicht een andere coderegel of moet ik iets binnen Access bijv de vertrouwencentrum instellen?
Ik heb deze beveiligingsmelding nooit eerder gezien namelijk

 

[Pletter]

@Sanders69

Als u zeker weet dat dit een betrouwbare database is kan u de blokkering opheffen door op het icoon van de
database met de rechtermuisknop te klikken en kies dan optie eigenschappen.

Op de screenafbeelding kan u zien waar u de blokkering kan opheffen.




Groetjes

 

[Sanders69]

Goedemorgen Pletter,

Dank voor je advies alleen is dit het probleem niet. Ik heb idd zoiets eerder meegemaakt en kon idd via windows verkenner naar specifieke bestand gaan en via de eigenschappenscherm de blokkering opheffen echter als ik de eigenschappenscherm open zie ik helemaal geen optie om de blokkering op te heffen. Dus daar ligt het niet aan. Het lijkt alsof de coderegel: Application.FollowHyperlink strApplicatie dit veroorzaakt en wellicht is er een andere manier om een Access applicatie te openen.

 

[Pletter]

@Sanders69

U kan ook aangeven of het een vertrouwde locatie is.

Open database in ontwerpweergave.

Kies Bestand en dan opties.

Kies Vertrouwencentrum.
Kies Vertrouwde locatie.

Hier kan u het pad aangeven.


Groetjes,

 

[Sanders69]

Dat is het ook niet omdat de applicatie die de andere applicatie opent in dezelfde locatie opgeslagen is dus die locatie moet betrouwbaar zijn. Heel vaag dit

 

[Pletter]

@Sanders69

U kan dit nog proberen:

Private Sub Knop8_Click()
Dim plShell As Object
Set plShell = CreateObject("WScript.shell")
plShell.Run Chr(34) & Me.plpath & Chr(34)
Set plShell = Nothing
End Sub

Groetjes,

 

[Sanders69]

Oei nee want Access wordt niet geopend. Er gebeurd heel even wat maar daarna niets.
Ik had ook coderegel: "Set plShell = Nothing" weggehaald maar ook geen resultaat

 

[Sanders69]

Hebbes en je hebt mij toch op weg geholpen met: CreateObject("WScript.shell") want ik ging toen Googlen naar CreateObject("Access en daarna vond ik onderstaande:

Dim appAccess As Access.Application
                Set appAccess = New Access.Application
                appAccess.OpenCurrentDatabase strApplicatie