What is the VBA syntax for accessing hidden tables in MS-Access?

Question

I want to create a list of all tables in ms Access database, including hidden ones.

Answer 1

The following will display the name of each table in the nearest 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 if AccessObject can tell you if the table is hidden, but ADO certainly can, for example,

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