I am trying to open MS access remotely without seeing the security

  • Thread starter Thread starter Armele
  • Start date Start date
A

Armele

I would like to know how/wher to apply the following code in my application
in order to suppress the security warning? (see code below)




Const cDatabaseToOpen = "path\App_name.mdb"

On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
If Val(AcApp.Version) >= 11 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase cDatabaseToOpen
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
Else
AcApp.Quit
MsgBox "Failed to open '" & cDatabaseToOpen & "'."
End If
 
On Fri, 10 Jul 2009 07:44:01 -0700, Armele

If that worked, malware could do the same thing.

-Tom.
Microsoft Access MVP
 
Back
Top