want access equiv. Select table_name from all_tables;

[Guest]

I want a query that lists allavailable tables in a database

 

[Allen Browne]

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

Include Type 6 as well if you want linked tables, and type 4 for ODBC linked
tables.

 

[LeAnne]

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

Include Type 6 as well if you want linked tables, and type 4 for ODBC linked
tables.

Caution, air code:

Sub ListTables()

Dim T As TableDef, TableList

For Each T in CurrentDB.TableDefs
TableList = TableList & T.Name & Chr(13)
Next

MsgBox TableList

End Sub

(This will return the table list as a message box, which I think is more
readable if you're interacting with forms. It will also list ALL tables,
including system tables. To edit those out of the list, use the
Attributes table property.)

Slightly off-topic follow-up: I'm wondering if there's any way to run
the Documentor programmatically...seems like it ought to be doable.
Thoughts?

LeAnne