Read all Table names function

[chris9]

Does anyone know if there is a function that can List all the Tables you have in one Database?

 

[Rick39]

As a query:

SELECT MSysObjects.Database, MSysObjects.Connect, MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=6));

or:

Sub ListTables(strDbPath As String)
' This procedure lists the tables in a database.
' Arguments:
' strDbPath: The path to the database.

Dim dbs As DATABASE, tdf As TableDef

Set dbs = OpenDatabase(strDbPath)
For Each tdf In dbs.TableDefs
Debug.Print tdf.NAME
Next tdf
dbs.close
Set dbs = Nothing
End Sub

 

[nealvenables]

Something along these lines...?

Public Sub ListTables()

Dim daoDB As DAO.Database
Dim daoTDF As DAO.TableDef

Set daoDB = CurrentDb()

For Each daoTDF In daoDB.TableDefs
Debug.Print daoTDF.name
Next daoTDF

End Sub