Frage : VBA zum Löschen eine spezifische Reihe Zugangstabellen

Ich habe eine Zugangsdatenbank mit folgendem Tabellenverzeichnis:

tblType1Apple
tblType1Pear
tblType2Cabbage
tblType3Car


I nach einem Block des VBA Codes suchend, der (entfernen) ALLE Tabellen in meiner Datenbank fallenläßt, die mit „tblType1“ beginnen.  
Notice, das ich die Tabelle im Vergleich mit „Löschung“ „fallenlassen möchte“ die Tabelle.  In den SQL-Ausdrücken sein sie etwas Ähnliches:

1: 2: 3: 4: 5: 6:

Sub DropTables () Mit DoCmd .RunSQL „TROPFEN-TABELLE tblType1Apple“ .RunSQL „TROPFEN-TABELLE tblType1Pear“ Ende mit Enden-Unterseeboot

Maybe, das ich dass erkläre, eine Variable, die spezifiziert, was der Tabellenname beginnt mit und der Code die an alle Tabellen in der Datenbank anpaßt, durch schlingt und die entsprechende Tabelle?? fallenläßt?  Alle mögliche Ideen geschätzt sehr.  Dank als always.

Antwort : VBA zum Löschen eine spezifische Reihe Zugangstabellen

das tabledef benutzen

TD als dao.tabledef, DB verdunkeln als dao.database
db=currentdb einstellen

für jedes TD in db.tabledefs
    wenn Sie verlassen (td.name, 8)= " tblType1 " dann
        db.execute „Tropfentabelle [„u. td.name u.“]“
    beenden wenn
zunächst