Code to delete all tables in an mdb

[Jim Pockmire]

I can loop through all of the tables in tabledefs, but how can I test for
system tables?

 

[BillCo]

dim tbl as dao.tabledef

for each tbl in currentdb.tabledefs
if tbl.name like "MSys*" then debug.print tbl.name
next

 

[Allen Browne]

Try:
If (tdf.Attributes And dbSystemObject) = 0 Then

 

[Douglas J. Steele]

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