如何解决如果 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 = "somebody@gmail.com"
varCC = "somebody@gmail.com"
varSubject = "ADB Front End Client Support_" & Now()
varBody = "Dear Amazing ADB Support Team:"
DoCmd.Sendobject,varName,varCC,varSubject,varBody,True,False
End Sub
是否有我可以添加的错误捕获,它只是提示(通过弹出表单)用户“未发送电子邮件”并正常关闭?
提前致谢。
解决方法
添加错误处理程序并忽略 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 = "somebody@gmail.com"
varCC = "somebody@gmail.com"
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。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。