On Error GoTo ... Resume-udtryk

Aktiverer en fejlhåndteringsrutine efter at en fejl opstår, eller genoptager programudførslen.

Syntaks:

diagrammet On Error Statement


On [Local] Error {GoTo Labelname | GoTo 0 | Resume Next}

Parametre:

GoTo Labelname: Hvis en fejl opstår, aktiveres fejlhåndteringsrutinen som begynder ved linje "Labelname".

Resume Next: Hvis en fejl opstår, vil programudførelsen fortsætte med sætningen, som følger efter sætningen i hvilken fejlen er sket.

GoTo 0: Deaktiverer fejlhåndteringen i den aktuelle procedure.

Local: Valgfrit. Nøgleordet er en påmindelsen om, at udtrykket er lokalt for den rutine, som kalder det; når rutinen afsluttes, afbrydes denne fejlhåndtering automatisk.

Eksempel:


Sub ExampleReset
On Error GoTo ErrorHandler
    Dim iNumber As Integer
    Dim iCount As Integer
    Dim sLine As String
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Dette er en linje tekst"
    Close #iNumber
    iNumber = Freefile
    Open aFile For Input As iNumber
    For iCount = 1 To 5
        Line Input #iNumber, sLine
        If sLine <>"" Then
            Rem
        End If
    Next iCount
    Close #iNumber
    Exit Sub
ErrorHandler:
    Reset
    MsgBox (beskedfelt) "Alle filer bliver lukket",  0,  "Fejl"
End Sub

Fejlhåndterings-funktioner

erklæringen Open