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