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

Access VBAでCreateQueryDefメソッドを使い、更新クエリを作成します。

追加クエリはINSERTを使用しましたが、更新クエリは「UPDATE テーブル名 SET 更新後のデータ WHERE 更新するレコードの条件」を使います。
その後、DoCmd.OpenQueryで作成したクエリを実行し、DoCmd.Closeで閉じます。

実行前の製品マスター


■ Access実行フォーム


実行後の製品マスターテーブル
「OP-125」が「OP-124」に更新されています。


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

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "UPDATE M_製品マスター_2009年度 SET 製品コード = 'OP-124' WHERE 製品コード = 'OP-125'"
    Set Qdf = CurrentDb.CreateQueryDef("Q_更新", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_更新"
    DoCmd.Close acQuery, "Q_更新"
End Sub