Thread: Trying to check a remote connection!
View Single Post
•
•
Join Date: Dec 2008
Posts: 8
Reputation: Zermoth is an unknown quantity at this point 
Solved Threads: 0
Zermoth's Avatar
Zermoth Zermoth is offline Offline
Newbie Poster

Figured out part 1 any idea’s on rest

 
0
  #2
Dec 11th, 2008
Public sfso

Set sfso = CreateObject("Scripting.FileSystemObject")

If sfso.FileExists(RemoteDatabase) Then
If dbRemoteDatabase.State = 0 Then
dbRemoteDatabase.Open "Provider = microsoft.jet.oledb.4.0;data source=" & RemoteDatabase

rsTableRemote01.Open Table01, dbRemoteDatabase, adOpenDynamic, adLockOptimistic
rsTableRemote02.Open Table02, dbRemoteDatabase, adOpenDynamic, adLockOptimistic
rsTableRemote03.Open Table03, dbRemoteDatabase, adOpenDynamic, adLockOptimistic
End If
Else
msgbox "Database not connected" & Chr(13) & Chr(10) & "Connect and re try" , vbCritical
DoCmd.Close
End If
Reply With Quote