want access equiv. Select table_name from all_tables;

  • Thread starter Thread starter Guest
  • Start date Start date
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.
 
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
 
Back
Top