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.6
Object Library」をチェックします。