即効テクニック |
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」をチェックします。