Refresh Links
This code snippet can be used to refresh table links in an Access or VB application by looping through the ADO Catalog to find tables, determine if they are linked in the application, and relinking if they are.
1: Sub RefreshLinks()
2: Dim cat As ADOX.Catalog
3: Dim tbl As ADOX.Table
4: Set cat = New ADOX.Catalog
5: cat.ActiveConnection = CurrentProject.Connection
6: Set tbl = New ADOX.Table
7: For Each tbl In cat.Tables
8: If tbl.Type = "LINK" Then
9: tbl.Properties("Jet OLEDB:Link Provider String")
10: = "MS Access;PWD=Admin;"
11: End If
12: Next
13: End Sub
Posted by sachauncey at June 27, 2003 08:04 PM