Question

I want to create a list of all tables in an ms Access database including those that are hidden.

Answer 1

The following will print the name of each table to the immediate window.

Sub ShowAllTables()

    Dim obj As AccessObject

    For Each obj In Application.CurrentData.AllTables
            Debug.Print obj.Name
    Next obj

End Sub