Better Way to Delete Import Error Tables?

[Guest]

I am using the routine below to delete Import Error tables. Because of the
number of tables in the database, it takes quite a while. Is there a better
way? Perhaps some way of saying: "For Each tbl In cat.Tables tbl.Name Like
'*$_ImportErrors*' "?

Private Sub Delete_Import_Error_Tables()
On Error GoTo Delete_Import_Error_Tables_Error_Recovery
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
For Each tbl In cat.Tables
If tbl.Name Like "*$_ImportErrors*" Then
DoCmd.DeleteObject acTable, tbl.Name
End If
Next tbl
Delete_Import_Error_Tables_Error_Recovery:
Exit Sub
End Sub

 

[Douglas J. Steele]

I don't think there's any other way. Certainly you cannot use a statement
like you're suggesting.

 

[Igor Braurman via AccessMonster.com]

Dim tbl As TableDef

For Each tbl In CurrentDb.TableDefs
If tbl.Name Like "*" & "Errors" Then
CurrentDb.TableDefs.Delete tbl.Name
End If
Next
CurrentDb.TableDefs.Refresh