ms-access - 在 MS-Access 中 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