How to: Cancel the Deletion of a Record by Using Custom Criteria

Access Developer Reference

The following example illutrates how to use a form's Delete event to prevent the deletion of a record based on custom criteria. In this example, the Delete event is canceled if the value of the DataRequired field is Yes.

  Private Sub Form_Delete(Cancel As Integer)

' Check the value of the DataRequired field. If Me.DataRequired = "Yes" Then

  ' Cancel the record deletion.
  Cancel = True

  ' Notify the user.
   MsgBox "Cannot Delete the Record."
End If

End Sub