来自：微软  翻译：周芳

【译文】如何使用自定义条件删除记录

      下面的例子illutrates展示了如何使用窗体的删除事件,防止删除一个符合自定义条件的记录。在这个例子中,如果DataRequired这个值的字段是肯定的则删除事件被取消。

VBA代码：

Private Sub Form_Delete(Cancel As Integer)
 
   ' 检查DataRequired字段的值.
    If Me.DataRequired = "Yes" Then
 
      ' 取消删除记录.
      Cancel = True
 
      ' 通知用户.
       MsgBox "Cannot Delete the Record."
    End If
End Sub

 

原文：How to: 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.

 

VBA：
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