指定したデータベースのテーブル名リスト

指定したデータベースの全テーブルを
イミディエイトペインに出力するコードです。

DBEngine(0).OpenDatabaseメソッドの第1引数に
参照先のデータベースのパスを指定します。

この例では、自身のプロジェクトのパスと同じ階層の
DB01.accdbを指定しています。
(実行するには事前に自身のプロジェクトのパスと同じ階層に
DB01.accdbを作成しておく必要があります。)

Sub 全テーブル名取得()
    Dim db As DAO.Database
    Dim strPath As String
    Dim tb As DAO.TableDef
    
    strPath = CurrentProject.Path & "\DB01.accdb"
    
    Set db = DBEngine(0).OpenDatabase(strPath)
    
    For Each tb In db.TableDefs
        Debug.Print tb.Name
    Next
    Set db = Nothing
End Sub

上記のコードを実行すると、イミディエイトペインに
DB01.accdbの各テーブル名が出力されます。