如何在MS Access VBA中检查用户是否开启Confirm选项？

当然可以通过VBA检查这个设置！毕竟你需要确保Form_AfterDelConfirm事件能正常触发——这个事件确实只有在确认删除记录选项开启时才会工作：当选项关闭时，删除操作会直接执行，不会弹出确认对话框，自然也就不会触发这个事件了。

检查选项状态的具体方法 #

Access提供了Application.GetOption方法来读取系统设置，对应删除确认的参数是"Confirm Record Deletions"。你可以用它快速判断选项是否开启：

Sub VerifyConfirmDeletionSetting()
    Dim confirmIsEnabled As Boolean
    ' 获取当前确认删除记录的设置状态
    confirmIsEnabled = Application.GetOption("Confirm Record Deletions")
    
    If confirmIsEnabled Then
        Debug.Print "删除确认选项已开启，AfterDelConfirm事件会正常触发。"
    Else
        Debug.Print "注意：删除确认选项已关闭，AfterDelConfirm事件不会触发！"
        ' 可选：提示用户手动开启，或者自动帮用户开启（记得告知用户）
        MsgBox "为了确保删除操作的事件正常触发，请开启Access的「确认删除记录」选项。", vbExclamation
        ' 自动设置的代码（谨慎使用，会修改用户全局设置）：
        ' Application.SetOption "Confirm Record Deletions", True
    End If
End Sub

额外提示 #

如果你的业务逻辑高度依赖Form_AfterDelConfirm事件，建议在执行关键删除操作前先运行这段检查代码，提前规避问题。要是选择自动修改设置，一定要先弹窗告知用户——毕竟这会改变Access的全局配置，避免引起不必要的困惑。

内容的提问来源于stack exchange，提问作者Kevin