クエリ名のリスト

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

Sub 全クエリ名取得()
    Dim db As DAO.Database
    Dim qr As QueryDef
    Set db = CurrentDb
    
    For Each qr In db.QueryDefs
        Debug.Print qr.Name
    Next
End Sub

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