Relativ kæde

Ikke mig bekendt. Sammenkædningerne er absolute.

Du kan dog via kode kontrollere sammenkædningerne. Jeg har kode til det, men skal rode efter det først.

Jeg vil gerne se din kode, hvis du gider rode ;-)

Jeg har smidt lidt ekstra i posen for at fremme din rodelyst.

Denne funktion skulle foretage det forudsat, at tabellerne hedder det samme. Systemtabeller (MSys*) sorteres fra.

Function LinkTjek(sPath As String, sLinkedDB As String)
  Dim td As TableDef
 
  For Each td In CurrentDb.TableDefs
    If InStr(1, td.Name, \"MSys\") = 0 Then
        Debug.Print td.Properties(\"Connect\").Value
        Debug.Print td.Properties(\"SourceTableName\").Value
        td.Properties(\"Connect\") = \";DATABASE=\" & sPath & sLinkedDB
    End If
  Next td
End Function

Tak, jeg kigger på det!
Jeg lukker med det samme.