Module
Contents
Index 🔎︎

# On Error GoTo ... Resume Statement

Habilita una rutina de manexu de fallos dempués de producise éstos o sigue la execución del programa.

## Sintaxis:

    On {[Local] Fallu GoTo NomeEtiqueta | GoTo 0 | Resumi Next}

## Parámetros:

GoTo NomeEtiqueta: Si produz un fallu, activa la rutina de manexu de fallos qu'empieza na llinia "NomeEtiqueta".

Resumi Next: Si produz un fallu, la execución del programa sigue cola instrucción que siguía a aquélla na que se produció l'erru.

GoTo 0: Desactiva'l remanador de fallos pal procedimientu actual.

Local: L'ámbitu de "On fallu" ye global, y permanez activu hasta que-y lu encaboxa por aciu otra sentencia "On fallu". Sicasí, l'ámbitu de "On Local fallu" ye local pa la rutina que la invoca. El manexu local de fallos anula cualquier configuración global previa. Cuando remata la rutina invocadora, atáyase automáticamente el manexu local del fallu, y restáurase la configuración global previa.

La instrucción On Fallu GoTo utilizar pa reaccionar a los fallos que se producen nuna macro.

## Exemplu:

    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 #iNúmberu, "Esta ye una llinia de testu"

        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 "Tolos ficheros van zarrase",0,"Fallu"

    End Sub