Alle Beziehungen und Tabellen einer Access-Datenbank löschen

Manchmal kann es interessant sein, mit einem VBA-Programm Tabellen zu löschen. Da in den meisten Fällen Beziehungen zwischen den Tabellen existieren, müssen diese zuerst entfernt werden.

Das Database-Objekt enthält alle Beziehungen und Tabellen in einer Liste. So können mittels einer Schleife die gewünschten Objekte entfernt werden.

Sub deleteRelationsAndTables()
    Dim db As database
    Dim count As Integer

    'Die aktuelle Datenbank.
    Set db = CurrentDb
    'Diese Schleife klickt sich durch die Beziehungen.
    For count = db.Relations.count - 1 To 0 Step -1
        'Die aktuelle Beziehung entfernen. Dazu wird sie über ihren Namen
        'angesprochen, der an die Funktion Delete übergeben wird.
        db.Relations.Delete db.Relations(count).Name
    Next count

    'Diese Schleife bearbeitet die Tabellen.
    For count = db.TableDefs.count - 1 To 0 Step -1
        'Die aktuelle Tabelle wird gelöscht. Auch bei dieser Delete-Funktion wird ihr
        'Name übergeben.
        db.TableDefs.Delete db.TableDefs(count).Name
    Next count
End Sub