Wie aktualisiere ich verknüpfte Tabellen per VBA mit dem neuen Relink-Dialog?

In Access-Datenbanken werden häufig Tabellen aus externen Datenquellen wie anderen Access-Backends, SQL Server, Excel oder Textdateien verknüpft. Wenn sich der Speicherort der Quelldateien ändert – z. B. durch einen neuen Server oder Pfad – funktionieren diese Verknüpfungen nicht mehr. Benutzer erhalten dann Fehlermeldungen oder sehen leere Tabellen.

Access bietet seit Office 2016 einen neuen Relink–Dialog, der übersichtlicher und moderner gestaltet ist als das klassische Verknüpfungs-Manager-Fenster. Mit VBA kannst Du diesen neuen Dialog direkt ansprechen – entweder um die Verknüpfungen automatisch zu aktualisieren oder um dem Benutzer eine einfache Möglichkeit zu geben, die Verknüpfungen selbst zu reparieren.

Neuer Relink-Dialog: Was ist anders?

Der neue Relink-Dialog bietet u. a.:

• Bessere Übersicht über alle verknüpften Tabellen
• Gruppierung nach Quelle (z. B. Pfad)
• Möglichkeit, gezielt Pfade zu aktualisieren
• Unterstützung für mehrere Datenquellen
• Benutzerfreundliche Navigation bei Netzwerkpfaden

Microsoft hat diesen Dialog in Access über das Objektmodell zugänglich gemacht. So kannst Du ihn in Deine Anwendungen integrieren.

Beispiel: Verknüpfte Tabellen mit dem Relink-Dialog aktualisieren

Du kannst den neuen Dialog wie folgt per VBA aufrufen:

Public Sub StarteRelinkDialog()
    On Error GoTo Fehler

    ' Access internen Dialog verwenden
    Application.RunCommand acCmdManageLinkedTables
    Exit Sub

Fehler:
    MsgBox "Fehler beim Öffnen des Relink-Dialogs: " & Err.Number & " - " & Err.Description, vbCritical
End Sub

Das ist besonders nützlich, wenn ein Benutzer beim Öffnen der Datenbank feststellt, dass die Verknüpfung nicht funktioniert. Du kannst diesen Befehl z. B. direkt im Startformular anbieten.

Alternativ: Automatisches Relinking per VBA

Wenn Du den Pfad kennst (z. B. weil die Datenbank portable sein soll oder auf einem Netzlaufwerk liegt), kannst Du auch alle Tabellenverknüpfungen automatisch aktualisieren:

Public Sub RelinkeAccessTabellen(Optional NeuerPfad As String)
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim AlteVerbindung As String
    Dim NeueVerbindung As String

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        ' Nur verknüpfte Tabellen bearbeiten
        If Len(tdf.Connect) > 0 And Left(tdf.Connect, 10) Like ";DATABASE=*" Then
            AlteVerbindung = tdf.Connect
            
            ' Wenn kein neuer Pfad übergeben wurde, alten Pfad extrahieren und Dialog anbieten
            If NeuerPfad = "" Then
                MsgBox "Tabelle """ & tdf.Name & """ ist verknüpft mit:" & vbCrLf & AlteVerbindung, vbInformation
                Application.RunCommand acCmdManageLinkedTables
                Exit Sub
            End If
            
            ' Neue Verbindung erzeugen
            NeueVerbindung = ";DATABASE=" & NeuerPfad
            
            ' Verknüpfung aktualisieren
            tdf.Connect = NeueVerbindung
            On Error Resume Next
            tdf.RefreshLink
            On Error GoTo 0
        End If
    Next

    MsgBox "Verknüpfungen wurden aktualisiert.", vbInformation
End Sub

Diese Routine kannst Du z. B. bei Programmstart nutzen, um automatisch auf ein neues Backend zu verlinken, etwa in C:\Daten\backend.accdb.

Beispielaufruf:

Call RelinkeAccessTabellen("C:\Daten\backend.accdb")

Oder ohne Pfadangabe:

Call RelinkeAccessTabellen  ' → Öffnet neuen Relink-Dialog

Tipps für den produktiven Einsatz

• Biete den Dialog nur dann an, wenn die Datenquelle fehlt (Dir(Path) = "")
• Speichere den zuletzt genutzten Pfad in einer lokalen Tabelle oder INI-Datei
• Vermeide harte Pfadangaben – nutze relative Pfade oder Umgebungsvariablen
• Verlinke Tabellen möglichst zentral über eine kleine Konfigurationsfunktion

Fazit

Der neue Relink-Dialog in Access ist eine willkommene Verbesserung für Benutzerfreundlichkeit und Wartbarkeit – besonders in Mehrbenutzerumgebungen. Mit wenigen Zeilen VBA kannst Du ihn bequem in Deine Anwendung einbauen oder alternativ sogar vollautomatisches Relinking umsetzen.

Du brauchst Unterstützung bei der Verlinkung von Tabellen, Migration von Access-Backends oder Automatisierung per VBA? Dann melde Dich bei mir – ich helfe Dir gern!

🐑 Datenschäfer – Auswertung, Analyse und Automatisierung für KMU im Norden
📧 Kontakt über sesoft.de | 🧠 Access · VBA · SQL Server · Power Platform