ExitHere:
Set rst = Nothing
Set cnn = Nothing
Exit Sub
ErrorHandler:
RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
Resume ExitHere
Set rst = Nothing
Set cnn = Nothing
Exit Sub
ErrorHandler:
RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
Resume ExitHere
End Sub
根据错误号的信息输出
If Err = 429 Then
Set EXL = CreateObject("Excel.Application")
Resume Next
End If
怎样输出错误信息号和错误信息文本
源码:
'显示错误信息 Sub 错误信息() '出错时跳转至“行标签”标签 On Error GoTo 行标签 Dim Num As Integer Num = InputBox("请输入数据:") MsgBox "输入数据为:" & Num Exit Sub '设置行标签 行标签: '出错时输出错误编号及错误描述信息 MsgBox "错误编号:" & Err.Number & vbCrLf & "错误描述:" _ & Err.Description, , "您出错了!" End Sub
另外一种方法:
BaoBiaoYiDaKai:
If Err = 70 Then
MsgBox "同名报表已打开,请务必关闭EXCEL报表后再点击报表按钮重新生成!"
Else:
If (Err <> 0) Then MsgBox "未知错误" & Err
End If
成型的示例:
ExitHere:
'这里关掉一些中间的对象,比方说recordset等
'但是展现在客户面前的东西不能关闭,
'最好以显性的方式展现出来
'这样客户也好关闭
Exit Sub
ErrorHandler:
If Err = 429 Then
Set EXL = CreateObject("Excel.Application")
Resume Next
Else
If (Errnum = Err) Then Exit Sub
MsgBox "错误编号:" & Err.Number & vbCrLf & "错误描述:" _
& Err.Description, , "您出错了!"
Errnum = Err
Resume ExitHere
End If