全レコードの削除

テーブル名「tb1」にある全データを削除する方法です。フォームのコマンドボタンをクリックすると削除を実行し、メッセージボックスが表示されます。下記は、ボタンクリック時のイベントプロシージャです。

Private Sub コマンド0_Click() CurrentDb.Execute "DELETE FROM tb1" DoCmd.Requery MsgBox ("tb1の全データを削除しました") End Sub