Is there any way to edit the path of a linked table?

Julio Cesar

-"Bueller.......... Bueller.......... Bueller.......... Bueller.........."

__________________
Julio Cesar

-\"Bueller.......... Bueller.......... Bueller.......... Bueller..........\"

Try something like:

Dim cat As ADOX.Catalog
Dim tdfRelink As ADOX.Table
Dim strPath As String
Dim strName As String
Dim intCounter As Integer


Set cat = New ADOX.Catalog
With cat
    .ActiveConnection = CurrentProject.Connection
    strPath = ‘Your path’
    strName = ‘Your file name’

    For Each tdfRelink In .Tables
        intCounter = intCounter + 1
            If .Tables(tdfRelink.Name).Type = "LINK" Then
                tdfRelink.Properties("Jet OLEDB:Link Datasource") = strPath & strName
            End If
    Next tdfRelink
End With

HTH,

Bob