Access VBAでクエリを作成する CreateQueryDefメソッド

VBAでクエリを作成するには、CreateQueryDefメソッドを使用します。

構文：　Set querydef = object.CreateQueryDef (name, sqltext)

引数　
querydef : QueryDef オブジェクトを表すオブジェクト変数
object : 開いている Connection オブジェクトまたは Database オブジェクトを表すオブジェクト変数
name : 新しいクエリ名
sqltext : クエリのSQLコード

■実行Accessフォーム

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "SELECT 製品ID,製品名 FROM M_製品マスター"
    Set Qdf = CurrentDb.CreateQueryDef("Q_製品名", SQL)
    Set Qdf = Nothing
End Sub
■実行結果　Accessクエリーが作成されています


作成されたAccessクエリのデザイン