Contents
Index 🔎︎

# On Error GoTo ... Resume Statement

Aktiverar en felhanteringsrutin efter att ett fel inträffat eller återupptar programkörningen.

## Syntax:

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

## Parametrar:

GoTo Labelname: Om ett fel inträffar aktiveras felhanteringsrutinen som startar vid raden "Labelname".

Resume Next: Om ett fel inträffar fortsätter programkörningen med den sats som kommer efter satsen som felet inträffade i.

GoTo 0: Inaktiverar felhanteraren i den aktuella proceduren.

Lokal: "On error" har ett globalt definitionsområde (scope) och förblir aktivt tills det avbryts av en annan "On error"-sats. "On Local error" är lokalt för den rutin som anropar det. Lokal felhantering åsidosätter alla tidigare globala inställningar. När den anropande rutinen avslutas så avbryts den lokala felhanteringen automatiskt, och alla tidigare globala inställningar återställs.

Deklarationen On Error GoTo används för att hantera fel som inträffar i ett makro.

## Exempel:

    Sub ExampleReset
    On Error GoTo ErrorHandler
    Dim iNumber As Integer
    Dim iCount As Integer
    Dim sLine As String
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "Det här är en textrad"
        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 "Alla filer stängs",0,"Fel"
    End Sub