捕捉代码中的错误，及错误处理

时　间:2020-11-16 16:50:00
作　者:HDoubleK   ID：77155  城市：徐州
摘　要:捕捉代码中的错误，及错误处理​
正　文:

捕捉代码中的错误，及错误处理

方式一：

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
-------------------------

程序中其他代码

-------------------------

ExitHere:
    Set rst = Nothing
    Set objNode = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub

方式二

Public Sub btnDelete_Click()
    On Error GoTo ErrorHandler

-------------------------

程序中其他代码

-------------------------

ExitHere:
    Exit Sub


ErrorHandler:
    If RDPErrorHandler(Me.Name & ": Sub btnDelete_Click()") Then
        Resume
    Else
        Resume ExitHere
    End If
End Sub

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店