want access equiv. Select table_name from all_tables;

A

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.
 
L

LeAnne

Allen said:
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.
Click to expand...

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
 
Top