MS-Accessの非表示テーブルにアクセスするためのVBA構文は何ですか？

Question

私は、隠されているテーブルを含め、ms Accessデータベース内のすべてのテーブルのリストを作成したいと考えています。

Answer 1

以下は、各テーブルの名前をイミディエイトウィンドウに表示します。

Sub ShowAllTables() 

    Dim obj As AccessObject 

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

End Sub 

Answer 2

AccessObjectがテーブルが非表示になっているかどうかわかりませんが、ADOは確かに可能です。

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