I have an Access 2003 Front End that I am going to email out to 50 people and I want them to be able to push a button that will set the connection to the linked tables on the Back End. Below is the code I have but everytime I execute it I get "Could Not Find Installable ISAM"
Code:
Dim tbl As TableDef
'Refresh the ODBC links to Access Backend tables.
On Error GoTo err_RefreshTableLinks
CurrentDb.QueryTimeout = 60
Screen.MousePointer = 10
For Each tbl In CurrentDb.TableDefs
'Ignore local tables.
If tbl.Connect <> "" Then
'Debug.Print tbl.Name, SearchText(tbl.Connect & ";", "Database=", ";")
tbl.Connect = "Provider=Microsoft.Jet.OLEDB.4.0; DataBase=\\addfile00\Groups\Billing\Accomplishments\DERM CUSTOMER SERVICE_be.mdb; UserID=Admin; Password=;"
tbl.RefreshLink
End If
Next
RefreshTableLinks = True
Screen.MousePointer = 0
MsgBox "Tables Refreshed Successfully"
err_RefreshTableLinks:
RefreshTableLinks = False
Screen.MousePointer = 0
MsgBox Err.Description