Pergunta : VBA para suprimir de uma série específica de tabelas do acesso

Eu tenho uma base de dados do acesso com seguinte lista de tabelas:

tblType1Apple
tblType1Pear
tblType2Cabbage
tblType3Car


I que procura um bloco de código de VBA que deixe cair (para remover) TODAS AS tabelas em minha base de dados que começam com o “tblType1”.  
Notice que eu quero “deixar cair” a tabela ao contrário da “supressão” a tabela.  Em termos do SQL estaria qualquer outra coisa semelhante: class= " lineNumbers " >

1 do >

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


Maybe que de 




class= do 

Resposta : VBA para suprimir de uma série específica de tabelas do acesso

usar o tabledef

escurecer o TD como dao.tabledef, DB como dao.database
ajustar o db=currentdb

para cada TD em db.tabledefs
    se saido (td.name, 8) = " tblType1 " então
        db.execute da “tabela gota [“& td.name &”]”
    terminar se
em seguida