Cancel the Deletion of a Record by Using Custom Criteria
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