Looping to identify tables

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Could you help me with code to loop thru the current database to identify all
the table names in that database?
Thank you.
 
Wylie C said:
Could you help me with code to loop thru the current database to
identify all the table names in that database?
Thank you.
Click to expand...

If you're using Access 2000 or later:

Dim ao As AccessObject

For Each ao In CurrentData.AllTables
If Left(ao.Name, 4) <> "MSys" Then
Debug.Print ao.Name
End If
Next ao

If you're using Access 97:

Dim db As Database
Dim tdf As TableDef

Set db = CurrentDb

For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Debug.Print tdf.Name
End If
Next tdf

Set db = Nothing
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

identify join sides of a table 1
Copy data from one databse tabel to other database table 1
Linking Tables 5
Import mutiple name text files into Access 2003 1
watch code as it is accessing the record 1
Insert into loop not working 3
Do...Loop Help 6
open database query and loop thru records 8

Back
Top