Vraag : VBA om een specifieke reeks lijsten van de Toegang te schrappen

Ik heb een gegevensbestand van de Toegang met het volgende van lijst van lijsten:

tblType1Apple
tblType1Pear
tblType2Cabbage
tblType3Car


I een blok van code VBA zoeken dat (verwijderen) ALLE lijsten in mijn gegevensbestand zal laten vallen die met „tblType1“ beginnen.  
Notice die ik heb willen om de lijst in tegenstelling tot „schrapping“ „laten vallen“ de lijst.  In SQL termen zou het iets in die aard zijn:

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

Sub DropTables () Met DoCmd .RunSQL de „LIJST tblType1Apple van de DALING“ .RunSQL de „LIJST tblType1Pear van de DALING“ Eind met Sub van het eind

Maybe verklaar ik een variabele die specificeert wat de lijstnaam zal beginnen met en de code dat aan alle lijsten in het gegevensbestand, lijn door, en de overeenkomstige lijst laten vallen?? zal aanpassen?  Om het even welke ideeën worden zeer gewaardeerd.  Dank als always.

Antwoord : VBA om een specifieke reeks lijsten van de Toegang te schrappen

gebruik tabledef

verduister td als dao.tabledef, db als dao.database
plaats db=currentdb

voor elke td in db.tabledefs
    indien weggegaan (td.name, 8) = " tblType1 " toen
        db.execute „dalingslijst [„& td.name &“]“
    beëindig als
daarna