事件写在:
BeforeShowErrorMessage
e.Cancel = True '禁止系统显示错误信息
If e.Message2.indexof("一般性网络错误") > - 1 Then
msgbox("网络状况不良, 请稍后再试")
Else If e.Message2.indexof("SQL Server 不存在或拒绝访问") > - 1
msgbox("网络状况不良,请稍后再试.")
Else
G_ErrorMessage = " 错误代码位置: " & e.Event & vbcrlf & " 错误详细: " & e.Message2
Forms("Form报错").Open()
End If
此主题相关图片如下:qq图片20131205165410.jpg此主题相关图片如下:qq图片20131205165446.jpg
不明白为什么会弹出这样的提示出来????