Cuestión : VBA para suprimir una serie específica de tablas del acceso

Tengo una base de datos del acceso con la lista de tablas siguiente:

tblType1Apple
tblType1Pear
tblType2Cabbage
tblType3Car


I que busca un bloque de código de VBA que caerá (quitar) TODAS LAS tablas en mi base de datos que comiencen con “tblType1”.  
Notice que quiero “caer” la tabla en comparación con la “cancelación” la tabla.  En términos del SQL estaría algo similar: class= " lineNumbers " >

1 del >

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


Maybe de 




class= del 

Respuesta : VBA para suprimir una serie específica de tablas del acceso

utilizar el tabledef

amortiguar a TD como dao.tabledef, DB como dao.database
fijar el db=currentdb

para cada TD en db.tabledefs
    si está ido (td.name, 8)= " tblType1 " entonces
        db.execute “tabla de la gota [“y td.name y”]”
    terminar si
después