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 |
本文へ戻る
|