Tring to delete anything with ImportErrors at the end

[itm]

Hi,
I have aprocess that runs, but wi6th errors. I know wqht the errors are and they do not matter. However, they do not build up, I would like to get rid of them. so I am using the following:
DoCmd.DeleteObject acTable, "dbo_APVEN$_ImportErrors"
However, The problem is that they can be in different forms. Like one time they can be "dbo_APVEN$_ImportErrors" na dother times something else like "dbo_Vendor_ImportErrors".
So if there is a way that I can look for anythign that had "ImportErrors" in it I could delete only thouse; but do not think you can use Like here in any way?
Also I ma using Access 2007.
Any thoughts on this would be greate.
Thank you
ITM

[June7]

Might have to loop through Tables collection to locate tables with string 'ImportErrors' in name.
Check this thread http://forums.devarticles.com/micros...code-3821.html

[boblarson]

Here's the code I would use (the code that is referenced in that link is good if there is only one but if you have more than one, it can miss some of them because when you delete one, the collection indices change and your For Each will bypass some). So here you move backwards through the collection and therefore don't miss any.

    Dim z As Integer
    Dim db As DAO.Database
    
    Set db = CurrentDb
    For z = db.TableDefs.Count-1 To 0 Step -1
        If InStr(1, db.TableDefs(z).Name, "ImportError") > 0 Then
            DoCmd.DeleteObject acTable, db.TableDefs(z).Name
        End If
    Next z