リスト4:レコードの削除

Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
  ↓メッセージボックスで削除の確認を行う
  If MsgBox("削除してもよろしいですか?", _
      vbYesNo + vbQuestion, _
       "レコード削除") = vbNo Then Exit Sub
 With datAddress.Recordset
   .Delete
   .MoveNext
   If .EOF Then .MoveLast
  End With
  Exit Sub
DeleteErr:
 DbErrorMsg
End Sub

本文へ戻る