現在開いているデータベースのテーブル数

TableDefsオブジェクトのCountプロパティによって
現在開いているデータベースのテーブル数を取得するコードです。

Sub テーブル数取得()
    Dim db As DAO.Database
    Set db = CurrentDb
    
    Debug.Print db.TableDefs.Count
End Sub

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