Code to delete all tables in an mdb

  • Thread starter Thread starter Jim Pockmire
  • Start date Start date
J

Jim Pockmire

I can loop through all of the tables in tabledefs, but how can I test for
system tables?
 
dim tbl as dao.tabledef

for each tbl in currentdb.tabledefs
if tbl.name like "MSys*" then debug.print tbl.name
next
 
The following code will identify the non-system tables:

Sub ListTables()
Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef

Set dbCurr = CurrentDb()
For Each tdfCurr In dbCurr.TableDefs
If (tdfCurr.Attributes And dbSystemObject) = 0 Then
Debug.Print tdfCurr.name
End If
Next tdfCurr
Set dbCurr = Nothing

End Sub
 
Back
Top