Delete all tables 1

[peljo]

I have a function that deletes all the tables in the database.However i do not want to delete the tables TblSpecial1 and TblSpecial2.How can i rewrite the code ?
Public Function DeleteTables()
Dim dbs As DAO.Database
Dim i As Integer
Set dbs = CurrentDb
' Loop backwards through relations
For i = dbs.Relations.Count - 1 To 0 Step -1
dbs.Relations.Delete dbs.Relations(i).Name
Next i
' Loop backwards through tabledefs
For i = dbs.TableDefs.Count - 1 To 0 Step -1
If Left(dbs.TableDefs(i).Name, 4) <> "MSys" Then
dbs.TableDefs.Delete dbs.TableDefs(i).Name
End If
Next i
Set dbs = Nothing
End Function

 

[Remou]

You can use the same idea:

For i = dbs.TableDefs.Count - 1 To 0 Step -1
If Left(dbs.TableDefs(i).Name, 4) <> "MSys" _
  And Left(dbs.TableDefs(i).Name, 10) <> "TblSpecial" Then
  dbs.TableDefs.Delete dbs.TableDefs(i).Name
End If
Next i
Set dbs = Nothing
End Function

 

[peljo]

Thank you ! it is all fine now !