スキルアップ・問題解決なら、モーグにおまかせ！

QueryDefオブジェクトのSQLプロパティを使って、データベースに作成されているクエリのSQLステートメントを取得することができます。
サンプルプロシージャでは、クエリ「クエリ1」のSQLステートメントをメッセージボックスに表示しています。

Sub Sample()

    Dim db    As Database
    Dim qdef  As QueryDef
    Dim MySql As String

    Set db = CurrentDb()

    Set qdef = db.QueryDefs("クエリ1")

    MySql = qdef.SQL

    MsgBox MySql
    
End Sub

DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6Object Library」をチェックします。