クエリのSQLを取得する

前回使用したクエリのSQLを確認取得するコードを作成します。

QueryDefs(クエリ名)オブジェクトのSQLプロパティによって
クエリのSQLを取得できます。

Sub クエリのSQLを確認する()
    Dim strSQL As String

    'クエリのSQLを変数に格納する
    strSQL = CurrentDb.QueryDefs("クエリAdd").SQL

    '変数の値をイミディエイトペインに出力する
    Debug.Print strSQL
End Sub

上記のコードを実行すると、
イミディエイトペインに「クエリAdd」クエリのSQLが
出力されます。