Inhoud

# Instructie On Error GoTo ...

Schakelt een foutafhandelingsroutine in nadat er een fout is opgetreden, of hervat de uitvoering van het programma.

### Syntaxis:

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

### Parameters:

GoTo LabelNaam: Als er een fout optreedt, wordt hiermee de foutafhandelingsroutine ingeschakeld die begint bij de regel LabelNaam.

Resume Next: Als er een fout optreedt, wordt de uitvoering van een programma voortgezet met de instructie die volgt op de instructie waarin de fout optrad.

GoTo 0: Schakelt de foutafhandelingsroutine in de huidige procedure uit.

Locaal: Optioneel. Het sleutelwoord is een herinnering dat de instructie lokaal is voor de routine die deze aanroept; wanneer de routine eindigt, wordt deze foutafhandeling automatisch geannuleerd.

### Voorbeeld:

    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 #iGetal, "Dit is een tekstregel"
        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 "Alle bestanden worden gesloten",  0,  "Error"
    End Sub

Verwante onderwerpen

Functies voor foutafhandeling

Instructie Open