5 Jan 10

Tags: .
Written by Tom Mazur. No comments

Run Access Macro from Excel VBA

Function OpenAcess_RunMacro(AccessPathAndName As String, MacroName As String) As Boolean
  

   ‘bolSuccess=OpenAcess_RunMacro(”\\Myserver\Folder\AccessFile.mdb“, “MyMacro”)

   On Error GoTo OpenAcess_RunMacro_Error

    Set appAccess = CreateObject(”access.application”)
    appAccess.OpenCurrentDatabase AccessPathAndName
    appAccess.DoCmd.RunMacro MacroName
    Set appAccess = Nothing
  

  OpenAcess_RunMacro = True

   On Error GoTo 0
   Exit Function

OpenAcess_RunMacro_Error:
      MsgBox “Error ” & Err.Number & ” (” & Err.Description & “) in procedure OpenAcess_RunMacro ”
  End Function


Filed under: Access

Trackback Uri