Link in post 3 is dead. Here is the code it presented:
Code:
Public Sub NormalizeTableLinks()'Relink tables with UNC pathing
'Use the variables provided to do the manipulations desired
Dim td As tableDef
Dim db As DAO.Database
Dim strOld As String
Dim strNew As String
'change Excel sheet connection string to enable data edit
''strOld = "IMEX=2"
''strNew = "IMEX=0"
'replace the following strings as needed
strOld = "C:\"
strNew = "\\YourURL\path"
Set db = CurrentDb
For Each td In db.TableDefs
If td.Connect <> "" Then
If InStr(td.Connect, strOld) > 0 Then
Debug.Print td.Name
Debug.Print "Old Link: " & td.Connect
td.Connect = Replace(td.Connect, strOld, strNew)
td.RefreshLink
Debug.Print "New Link: " & td.Connect
End If
End If
Next td
db.TableDefs.Refresh
End Sub