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