What is the VBA syntax to access hidden tables in MS-Access?

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

Answer 2

I don't know whether an AccessObject can tell you whether the table is hidden but ADO certainly can e.g.

Sub ShowAllTables2()

  Dim cat
  Set cat = CreateObject("ADOX.Catalog")

  With cat
    .ActiveConnection = CurrentProject.Connection

    Dim t
    For Each t In .tables
      Debug.Print t.Name, t.Properties("Jet OLEDB:Table Hidden In Access").Value
    Next

  End With

End Sub