Deleting objects using wildcards - can this be done? 2

[EdwardA]

All,

I'm using Access 97 and I need to build a routine that deletes objects (in this case, tables) according to a wildcard specification.

The table names all start the same way (tblx...), and there are almost 400 of them, so what I want to do is delete them all without having to specify their names.

The command I really want is something like:

DoCmd.DeleteObject acTable, "tblx*"

Obviously, this doesn't work. Does anybody have a workaround?

Your help much appreciated.

Ed.

 

[BillPower]

Dim dbs As DAO.Database, tdf As DAO.TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) = "tblx" Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next
Set dbs = Nothing

You will need the Microsoft Data Access Objects 3.x Library selected in your References.

Test this 1st in a copy of your DB

Bill

 

[EdwardA]

Bill -- thanks, it worked a treat.

Ed.