ms-access - 电子邮件已取消错误处理程序

Question

我有一个按钮，名为EngdetailRpt的电子邮件，已过滤报告，如果实际发送电子邮件，效果很好。
但是，如果由于某种原因从Outlook中取消了电子邮件，则会收到错误消息，下次我尝试发送过滤的报告时，它将发送与上次相同的过滤器，或者完全锁定了数据库。
任何人都可以建议处理程序代码来防止这些错误。

下面是我当前的代码，

Private Sub cmdEmail_Click()
On Error GoTo cmdEmail_Click_Err

    'opens report (hidden) based on Current Form view
    DoCmd.OpenReport "EngDetailRpt", acViewPreview, "", "[TAG_NAME]='" & Me!TAG_NAME & "'", acHidden
    DoCmd.SendObject acSendReport, "EngDetailRpt", acFormatPDF
    DoCmd.Close acReport, "EngDetailRpt", acSaveNo

cmdEmail_Click_Exit:
    Exit Sub

cmdEmail_Click_Err:
    MsgBox Error$
    DoCmd.Close acForm, "EngDetailsFrm", acSavePrompt
    Resume cmdEmail_Click_Exit

End Sub

Answer 1

您需要确保清除代码(关闭隐藏的报表)仍然运行，即使发生错误也是如此。

在这种情况下，我更喜欢使用“内联”错误处理，如下所示:

'opens report (hidden) based on Current Form view
DoCmd.OpenReport "EngDetailRpt", acViewPreview, "", "[TAG_NAME]='" & Me!TAG_NAME & "'", acHidden

' inline error handling
On Error Resume Next
DoCmd.SendObject acSendReport, "EngDetailRpt", acFormatPDF
If Err.Number <> 0 Then
    MsgBox Err.Description, vbExclamation, "Runtime-Error " & Err.Number & " on SendObject"
End If
On Error GoTo cmdEmail_Click_Err

DoCmd.Close acReport, "EngDetailRpt", acSaveNo