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

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

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

実行前の製品マスター


■ Access実行フォーム


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


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

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "DELETE * FROM M_製品マスター_2009年度 WHERE 製品コード = 'OP-124'"
    Set Qdf = CurrentDb.CreateQueryDef("Q_削除", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_削除"
    DoCmd.Close acQuery, "Q_削除"
End Sub