スキルアップ・問題解決なら、モーグにおまかせ！

サンプルでは、DoCmdオブジェクトのRunSQLメソッドを使って、特定のレコードを削除するSQLステートメントを実行しています。
このSQLステートメントは、DELETEステートメントを使って、FROM句で指定したテーブルからWHERE句の条件を満たすレコードを削除する削除クエリが定義されています。
サンプルを実行するには、フィールド「商品番号」があるテーブル「商品管理」を作成して、商品番号「1000」のレコードを入力します。

Sub Sample()
    Dim myCode As Integer
    Dim SQLstr As String
    
    myCode = 1000
    
    SQLstr = "DELETE FROM 商品管理 WHERE 商品番号 = " & myCode
    
    DoCmd.RunSQL SQLstr

End Sub