Progress thus far...
Code:
Public Sub ProcedureInAccess()
Dim Path As String
Dim acApp As Object
Dim db As Object
Path = "\\remotemachinename\c$\Program Files\MyApp\MyApp.ldb" ' file path on remote machine
Set acApp = CreateObject("Access.Application")
If Len(Dir(Path)) > 0 Then ' Does the ldb exsist? meaning is the application open?
acApp.OpenCurrentDatabase ("\\remotemachinename\c$\Program Files\MyApp\MyApp.mde")
acApp.Visible = False
Set db = acApp
acApp.Run "Help" 'Module to run
acApp.Quit
Set acApp = Nothing
End If
End Sub
So, The code above does about half of what I need it to do. It identifies if a remote user has the application open. The part I am getting wrong is this will run the "Help" module on my local machine. Any ideas?