Access VBAで追加クエリを作成し実行する（アクション クエリ）

Access VBAでCreateQueryDefメソッドを使い、追加クエリ（INSERT INTO）を作成します。

その後、DoCmd.OpenQueryで作成したクエリを実行し、DoCmd.Closeで閉じます。

■ Access実行フォーム


追加クエリ「Q_追加」が作成されています。


「Q_追加」のSQLビュー

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "INSERT INTO M_製品マスター_2009年度 SELECT * FROM M_製品マスター_2008年度"
    Set Qdf = CurrentDb.CreateQueryDef("Q_追加", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_追加"
    DoCmd.Close acQuery, "Q_追加"
End Sub