Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Verknpfung lschen per VBA

Im Beitrag Tabellen verknpfen per VBA haben Sie erfahren, wie Sie eine Datenbank mit einer Tabelle einer fremden Datenbank verknpfen. Wie Sie diese Verknpfung mit einer einfachen Funktion wieder entfernen knnen, erfahren Sie im vorliegenden Beitrag.

Verknpfung lsen per VBA-Funktion

Die Funktion UnlinkTable dient zum Lschen einer Verknpfung zu einer Tabelle einer fremden Datenbank. Die Funktion erwartet lediglich den Namen des TableDef-Objekts, dass die Verknpfung reprsentiert.

Bevor das Element der TableDefs-Auflistung mit dem angegebenen Namen entfernt wird, berprft die Funktion noch, ob es sich auch um eine Verknpfung und nicht etwa um eine Tabelle der aktuellen Datenbank handelt.

Public Function UnlinkTable(strTable As String)

    Dim db As Database

    Set db = CurrentDb

    On Error GoTo UnlinkTable_Err

    If db.TableDefs(strTable).Connect = "" Then

        UnlinkTable = False

        GoTo UnlinkTable_Exit

    End If

    db.TableDefs.Delete (strTable)

    UnlinkTable = True

UnlinkTable_Exit:

    Set db = Nothing

    Exit Function

UnlinkTable_Err:

    UnlinkTable = False

    GoTo UnlinkTable_Exit

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.