How to access tables collection?

[sabavno]

Hi,

I was wondering if anyone could show me how to access the tables in the database, retrieve their names and names of the fields in the tables?

Thanks

 

[beetee]

Sub ShowTables()
Dim TblDef As TableDef
For Each TblDef In CurrentDb.TableDefs
If (TblDef.Attributes And dbSystemObject) = 0 Then
Debug.Print TblDef.Name
Dim Fld As Field
For Each Fld In TblDef.Fields
Debug.Print " " & Fld.Name
Next Fld
End If
Next TblDef
End Sub

this will not work for linked tables; for that case you need to open the other database, e.g.

Dim OtherDB as database
Set OtherDB = OpenDatabase("Blah.mdb&quot
for each tbldef in otherdb.tabledefs
...