現在開いているデータベースのクエリ数

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

Sub クエリ数取得()
    Dim db As DAO.Database
    Set db = CurrentDb
    
    Debug.Print db.QueryDefs.Count
End Sub

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