テーブル名のリスト

現在開いているデータベースの全テーブルを
イミディエイトペインに出力するコードです。

ただし、”MSys”で始まるシステムテーブルは除いています。

Sub 全テーブル名取得()
    Dim db As DAO.Database
    Dim tb As TableDef
    Set db = CurrentDb
    
    For Each tb In db.TableDefs
        If Left(tb.Name, 4) <> "MSys" Then
            Debug.Print tb.Name
        End If
    Next
End Sub

上記のコードを実行すると、イミディエイトペインに
現在開いているデータベースの各テーブル名が出力されます。