Deleting Tables

[Guest]

How can I delete all table in a database except for tblTEMPIMPORT and
tblSuppliers?

 

[Douglas J. Steele]

Something like the following should work:

Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef
Dim intLoop As Integer

Set dbCurr = CurrentDb()
For intLoop = (dbCurr.TableDefs.Count - 1) To 1 Step -1
Set tdfCurr = dbCurr.TableDefs(intLoop)
If (tdfCurr.Attributes And dbSystemObject) = 0 Then
If tdfCurr.Name <> "tblTEMPIMPORT" And _
tdfCurr.Name <> "tblSuppliers" Then
dbCurr.TableDefs.Delete tdfCurr.Name
End If
End If
Next intLoop

Set dbCurr = Nothing


(Of course, if there are relationships set up between the tables, you'll
probably run into problems)