#568
テキストで書かれたSQL文を元に、Accessデータベース内にクエリオブジェクトを新規作成する方法です。
次のサンプルコードでは、変数strSQLにSQL文を代入しています。またstrQryNameに作成するクエリ名を指定しています。
そしてそれを「CreateQueryDef」メソッドの引数に与えて実行することによって、クエリが作成されます。
Dim strSQL As String
Dim strQryName As String
strSQL = "SELECT 商品コード, 商品名 FROM mtbl商品マスタ"
strQryName = "クエリ1"
CurrentDb.CreateQueryDef strQryName, strSQL
一般的なアプリケーション内の処理としてクエリを新規作成する機会はあまりないと思いますが、たとえば他のデータベースエンジン用のSQL文をテキストベースで加工して、それから一気にAccess用のクエリとして生成するような、開発時の作業には役立つ場面があるかもしれません。
