Hi Community,
ich möchte beim Laden das Formulars die Vernüpfungen aktualisieren.
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:
E:\eLadenSbg Tabellen.accdb
LG Friedrich
Suche mal nach "relink tables".
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.
Zitat von: risingstar am Mai 11, 2023, 17:19:28tdf.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:
tdf.Connect = neuerPfad
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