36
新しいクエリを作成するには、Databaseオブジェクトの「CreateQueryDef」メソッドを使ってカレントデータベースにQueryDefオブジェクトを生成します。
その際に引数として必要になるのは、「クエリ名」とその「SQL文」です。下記プログラムでは「mtbl従業員マスタ」テーブルからレコードを取り出す選択クエリのSQL文を事前に組み立て（変数strSQL）、それを２つめの引数に指定しています。
プログラム
Sub SampleCode_36()
'クエリを新規作成する
Dim dbs As Database
Dim strSQL As String
Set dbs = CurrentDb
'クエリのSQL文を設定
strSQL = "SELECT 従業員番号, 氏名, フリガナ " & _
"FROM mtbl従業員マスタ " & _
"ORDER BY フリガナ"
'クエリの作成
dbs.CreateQueryDef "qsel従業員マスタ", strSQL
'ナビゲーションウィンドウを最新情報に更新
RefreshDatabaseWindow
End Sub
実行例
■実行前
■実行後
