Looping through Tables

[thebign]

Is there a way to loop through each table in your current database, and check each name?

The reason I'm trying to do this is to see if there are any import errors from a "texttransfer" method I run, which appends data from a text file a user selects to a table in my database. I know that if there are import errors, a table called something like "..._ImportErrors" will be created, so I was thinking about looping through the collection of tables and alert the user if table with such a name exists after the data gets appended. I'm using Access 2000.

Any ideas or references to look up the info myself (just a beginner) would be greatly appreciated. Thanks.

 

[Jon K]

   Dim vItem As Variant
   
   For Each vItem In CurrentDb.TableDefs
      If InStr(vItem.Name, "_ImportErrors") Then
         MsgBox "There are import errors"
      End If
   Next

 

[thebign]

Thanks.

Thanks for the code... it works perfectly.