Code to get all table names in a database

[gavin]

Looking for an easy way to programtically get the names of all tables in a databas

Thanks

 

[Steven]

Dim tTables As TableDef

For Each tTables In CodeDb.TableDefs
Debug.Print tTables.Name
next

 

[Allen Browne]

Another alternative:

SELECT MsysObjects.Name FROM MsysObjects
WHERE (([Type] = 1) AND ([Name] Not Like "~*") AND ([Name] Not Like
"MSys*"))
ORDER BY MsysObjects.Name;

 

[Douglas J. Steele]

I believe you also need to look at Type = 4 and Type = 6 if you want all of
the table objects.

Type = 1 will only give you tables that exist in the database. Type = 6 will
give you linked tables, and Type = 4 will give you ODBC-linked tables.

--
Doug Steele, Microsoft Access MVP

(No private e-mails, please)

Another alternative:

SELECT MsysObjects.Name FROM MsysObjects
WHERE (([Type] = 1) AND ([Name] Not Like "~*") AND ([Name] Not Like
"MSys*"))
ORDER BY MsysObjects.Name;

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Dim tTables As TableDef

For Each tTables In CodeDb.TableDefs
Debug.Print tTables.Name
next

in

a
database