怎样在出现错误的时候输出提示信息Err,然后清空对象

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