Contenido

# Función Erl

Devuelve el número de línea en que se produjo un error durante la ejecución de un programa.

## Sintaxis:

    Erl

## Valor de retorno:

Entero

## Parámetros:

La función Erl sólo devuelve el número, no la etiqueta de línea.

## Ejemplo:

    Sub ExampleError
    On Error GoTo ErrorHandler ' Configurar manipulador de errores
    Dim iVar As Integer
    Dim sVar As String
    ' Error causado por un archivo inexistente
        iVar = Freefile
        Open "\file9879.txt" For Input As #iVar
        Line Input #iVar, sVar
        Close #iVar
        Exit Sub
    ErrorHandler:
        MsgBox "Error " & err & ": " & Error$ + chr(13) + "En el renglón: " + Erl + chr(13) + Now , 16 ,"Se ha producido un error"
    End Sub

Temas relacionados

Error-Handling Functions

¡Necesitamos su ayuda!