Deleting all tables 1

[jtp02]

How could be done code that would delete/remove all current tables in Access?

I have database where all tables are imported. After I finish working, I would like that all visible tables would be deleted or removed (excluded hidden and systemtables).

Thanks, Jtp02

 

[LittleSmudge]

Are you working in A97 or A2k / A2k2 ?

 

[rtd3776]

I'm working with Access97.

 

[LittleSmudge]

Call the following code from a "Delete All Talbes" button or similar.

Public Sub DeleteTables()
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If Not Left(tdf.Name, 4) = "MSys" Then ' Don't delete System Tables
DoCmd.DeleteObject acTable, tdf.Name
DoCmd.Echo True, "Progress: Deleting table " & tdf.Name
End If
Next tdf

End Sub



QED.

G LS

 

[rtd3776]

Thanks, I'll give it a try. I tell later how it worked.