VBA Error Handling

just a simple example

Sub StartPROC()

    Debug.Print „start“ ‚ write to immediate
        
    Dim Con As ADODB.Connection, SQL As String

    Set Con = New ADODB.Connection
    SQL = „Testdb.scripts“
    
    On Error GoTo errHandler
    
    Con.ConnectionString = „DSN=Testdb;Uid=Test;Pwd=test123;“
    Con.Open
    Con.Execute (SQL)
    Con.close
    Set Con = Nothing
    
    Debug.Print „end“ ‚ write to immediate
DoCleanUp:

    ‚ do other clean up here

    Exit Sub ‚important to exit sub before errHandler
    
errHandler:
    Dim ShortErr, ErrorPath As String
    ErrorPath = „StartPROC() „
    ShortErr = Left(Err.Description, 150 – Len(ErrorPath))
    Debug.Print „print: “ & Err.Description & “ “ & Err.Number & “ “ & Err.Source ‚ write to immediate
Resume DoCleanUp

End Sub

more examples here and an explanation of all error handling methods here

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s