Вопрос : VBA для того чтобы уничтожить специфически серию таблиц доступа

Я имею базу данных доступа с следующий списком таблиц:

tblType1Apple
tblType1Pear
tblType2Cabbage
tblType3Car


I ища блок Кодего VBA упадет (извлечь) ВСЕ таблицы в моей базе данных начинают с «tblType1».  
Notice, котор я хочу «упасть» таблица в отличие от «delete» таблица.  В термины SQL она была бы что-нибудь подобное: class= " lineNumbers " >

1 >

Sub DropTables " prettyprint " " class= id= " codeSnippet811373 >


Maybe, котор 




class= 

Ответ : VBA для того чтобы уничтожить специфически серию таблиц доступа

используйте tabledef

затемните td как dao.tabledef, db как dao.database
установите db=currentdb

для каждого td в db.tabledefs
    если о, то (td.name, 8)= " tblType1 " после этого
        db.execute «таблица падения [«& td.name &»]»
    закончитесь если
затем