On Error语句

1.含义（MSDN）

On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序。

 On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

On Error GoTo line 启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。

以上MSDN上的解释 一般情况下，如果在对我们创建的对象或控件进行错误捕捉，需要使用On Error Resume Next ，然后在判断它的Err.Number，根据错误类型来做相应的处理。

2.例子

一个错误处理函数，当系统发生错误用来处理相应的错误。

Public Sub Hbora_err_handler(prmstrProgName As String)        

      Dim lngErrCD        As Long     ' 错误Code

      Dim strErrDes       As String   '  错误内容

      ' Oracle连接错误   

     If Err.Number = 440 Then             

           ' セッション系を先に参照するように変更        

             If PBora_session.LastServerErr <> 0 Then            

                              lngErrCD = PBora_session.LastServerErr            

                              If prmstrProgName <> "" Then                

                                                      strErrDes = "｢" & prmstrProgName & "｣ " & _            

                                                        PBora_session.LastServerErrText           

                              Else                

                                                         strErrDes = PBora_session.LastServerErrText            

                             End If                

               ElseIf PBora_database.LastServerErr <> 0 Then           

                            lngErrCD = PBora_database.LastServerErr            

                             If prmstrProgName <> "" Then                

                                                        strErrDes = "｢" & prmstrProgName & "｣ " & _         

                                                        PBora_database.LastServerErrText            

                             Else                

                                                          strErrDes = PBora_database.LastServerErrText           

                             End If                

                 Else            

                            lngErrCD = Err.Number            

                             If prmstrProgName <> "" Then                

                                                         strErrDes = "｢" & prmstrProgName & "｣ " & Err.Description       

                             Else                

                                                         strErrDes = Err.Description           

                              End If      

                    End If        

    ' Oracle连接外的错误    

      Else        

                  lngErrCD = Err.Number        

                  If prmstrProgName <> "" Then            

                                    strErrDes = Chr(10) & "｢" & prmstrProgName & "｣ " & Chr(10) & Chr(10) & Err.Description

                  Else            

                                       strErrDes = Err.Description       

                  End If    

       End If    

 On Error Resume Next        

                  ' 打印log

                  Call Hbpub_put_log(HM_LOG_ERROR, lngErrCD, strErrDes)      

                 ' 显示信息

                  Call Hbora_msg_stop("WCM001", lngErrCD, strErrDes)        

                  ' 回滚 

                  PBora_session.Rollback       

                  ' 断开连接

                 Call Hbora_close_connection    

On Error GoTo 0       

                 ' 程序终了

                  End    

 End Sub