即効テクニック |
●概要● 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