在用户删除记录时显示自定义对话框

当您选择窗体上的记录并将其删除时，Access 会显示一个对话框，要求用户确认是否删除该记录。 如果要删除，可以采用两种方式阻止显示此对话框。 可以取消 BeforeDelConfirm 事件，这种情况下将取消删除。 也可以将 BeforeDelConfirm 事件过程的 Response 参数设置为 acDataErrContinue，这种情况下将确认删除。

使用 BeforeDelConfirm 事件过程可显示自定义对话框并处理用户的响应。 以下示例说明如何使用自定义对话框询问用户要取消删除记录还是要继续删除记录。

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) 
 
   Dim strMessage As String 
   Dim intResponse As Integer 
 
On Error GoTo ErrorHandler 
 
   ' Display the custom dialog box. 
   strMessage = "Would you like to delete the current record?" 
   intResponse = MsgBox(strMessage, vbYesNo + vbQuestion, _ 
               "Continue delete?") 
 
   ' Check the response. 
   If intResponse = vbYes Then 
      Response = acDataErrContinue 
   Else 
      Cancel = True 
   End If 
 
   Exit Sub 
 
ErrorHandler: 
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。