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

●概要●
DELETEステートメントを使用してテーブルのレコードを削除します。WHERE句で条件を指定しないとテーブル内のすべてのレコードが削除され、テーブルの定義のみが残ります。DELETEステートメントでレコードを削除するテーブルが存在しない場合、エラーとなりますが、テーブルが存在していて、削除対象のレコードが存在しない場合はエラーにはなりません。
サンプルでは、WHERE句で指定した条件に一致するレコードを「商品テーブル」から削除します。

●サンプルプログラム●
'レコードを削除する
Public Sub Sample()

    Dim myDB As Database
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "DELETE FROM 商品テーブル WHERE 商品コード=1002;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLを実行する
    myDB.Execute mySQL

End Sub