如果 DoCmd.SendObject 提前终止，则 MSAccess 错误捕获

问题描述

我在 MSAccess VB 中有一个简单的电子邮件 (Sendobject) 例程。但是，如果用户决定不点击发送按钮，而只是关闭电子邮件表单，代码就会崩溃。

Private Sub ButtonSupportEmail_Click()

Dim varName As Variant
Dim varCC As Variant
Dim varSubject As Variant
Dim varBody As Variant

varName = "[e-mail]"
varCC = "[e-mail]"

varSubject = "ADB Front End Client Support_" & Now()
varBody = "Dear Amazing ADB Support Team:"
DoCmd.Sendobject,varName,varCC,varSubject,varBody,True,False

End Sub

是否有我可以添加的错误捕获，它只是提示（通过弹出表单）用户“未发送电子邮件”并正常关闭？

图 A：用户关闭 Outlook 电子邮件表单时出错

提前致谢。

解决方法

添加错误处理程序并忽略 2501 - 操作取消错误。

Private Sub ButtonSupportEmail_Click()
    On Error GoTo Trap

    Dim varName As Variant
    Dim varCC As Variant
    Dim varSubject As Variant
    Dim varBody As Variant

    varName = "[e-mail]"
    varCC = "[e-mail]"

    varSubject = "ADB Front End Client Support_" & Now()
    varBody = "Dear Amazing ADB Support Team:"
    DoCmd.SendObject,varName,varCC,varSubject,varBody,True,False

Leave:
    Exit Sub

Trap:
    If Err.Number <> 2501 Then MsgBox Err.Description,vbCritical
    Resume Leave
End Sub

,

当然 - 使用 On Error Resume next 并检查 Err.Number 和 Err.Description 来捕获和处理异常。

有关详细信息，请参阅 https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/on-error-statement。