HOME > 即効テクニック > AccessVBA > データ操作 > 特定のレコードを削除する

即効テクニック

データ操作

特定のレコードを削除する

( - )
フォームに表示させたレコードを削除します。

●準備●
  1. テーブルを用意します。
  2. 次に新規フォームを作成し、先ほど作成したテーブルのデータを表示させます。
●詳細●
  1. 作成したフォームにコマンドボタンを1つ追加し、「名前」を名前付けルールに 従って任意に変更します。サンプルでは、「cmdDelete」としています。 また、お好みに合わせて「標題」なども変更しておきます。
  2. コマンドボタンを選択した状態で、「プロパティ」の「イベント」タブページを 選択し、クリック時を選択すると [...]ボタンが表示されるので、そのボタンを クリックして、「コードビルダ」を選択します。
  3. モジュールが表示されるので、下記のコードを記述します。
●サンプルプログラム● Private Sub cmdDelete_Click() If MsgBox("削除してよろしいですか?" _ , vbYesNo + vbInformation, "確認") = vbNo Then Exit Sub With DoCmd .SetWarnings False .RunCommand acCmdDeleteRecord .SetWarnings True End With End Sub