Fehler 3170

[risingstar]

Hi Community,
ich möchte beim Laden das Formulars die Vernüpfungen aktualisieren.

Code [Auswählen] Erweitern

    Dim neuerPfad As String
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
   
   
    neuerPfad = DLookup("[VerzeichnisTabellen]", "Stammdaten", "[ID] = 2")

    Set db = CurrentDb() 'db wird als aktuelle Datenbank gesetzt
    For Each tdf In db.TableDefs
   
    If tdf.Connect <> "" Then
        tdf.Connect = "neuerPfad"
        tdf.RefreshLink
    End If
    Next
    db.TableDefs.Refresh


End Sub
Bei RefreshLink kommt der Fehler 3170, installierbares ISAM nicht gefunden. Beim Wälzen der diversen Seiten über ISAM habe ich aber keine Anleitung gefunden, wie ich das beheben kann. Bei der Installierung von Treibern kenne ich mich nicht aus.
Hat jemand so etwas schon mal gelöst?
 Der String neuerPfad ist richtig:

Code [Auswählen] Erweitern

E:\eLadenSbg Tabellen.accdb
LG Friedrich

[Beaker s.a.]

Suche mal nach "relink tables".

[risingstar]

Hallo Beaker,
aus den Beiträgen unter relink Tables werde ich nicht schlau.

Ich habe auch den Code von DonKarl probiert und immer beim RefreshLink popt der Fehler auf.

[PhilS]

tdf.Connect = "neuerPfad"

Kleiner Fehler, große Wirkung. Du weist hier wörtlich den Text "neuerPfad" als Pfad zu, in dem natürlich keine Datenbank mit Tabellen gefunden wird.

Richtig:

Code [Auswählen] Erweitern

tdf.Connect = neuerPfad



[risingstar]

Nach einer Reparatur der DB funktioniert der Code von Don Karl. Danke jedenfalls an beaker und PhilS.
@phil: Oh, natürlich, so kann das nicht gehen. Danke