Bom dia, tenho uma duvida de como fazer para deletar todas tabelas de um sistema execto as que começam com TBL_
algo assim :
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If Not (tdf.Name Like "MSys*") And tdf.Name Like "TBL_*" Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next
neste código apaga todas que começam com TBL_
mas gostaria de deletar todas execto as que tem o nome iniciado por TBL.
agradeço uma ajuda desde já, aguardo.
algo assim :
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If Not (tdf.Name Like "MSys*") And tdf.Name Like "TBL_*" Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next
neste código apaga todas que começam com TBL_
mas gostaria de deletar todas execto as que tem o nome iniciado por TBL.
agradeço uma ajuda desde já, aguardo.