J
JOHN SMITH
Hi,
On my Client DB i would like to run a Function on the Server DB??
Function getData()
On Error GoTo Err_UpdateServer
Dim objAccess As New Access.Application
Dim TS_Server
TS_Server = Application.CurrentProject.Path & "\TS_Server.mdb"
With objAccess
.run my function????
.CloseCurrentDatabase
End With
Exit_UpdateServer:
Exit Function
Err_UpdateServer:
MsgBox Err.Description & " " & Err.Number
End Function
Thank you all
On my Client DB i would like to run a Function on the Server DB??
Function getData()
On Error GoTo Err_UpdateServer
Dim objAccess As New Access.Application
Dim TS_Server
TS_Server = Application.CurrentProject.Path & "\TS_Server.mdb"
With objAccess
.run my function????
.CloseCurrentDatabase
End With
Exit_UpdateServer:
Exit Function
Err_UpdateServer:
MsgBox Err.Description & " " & Err.Number
End Function
Thank you all