Module
Contents
Index 🔎︎

# Erl Function

Torna el nombre de línia on s'ha produït un error durant l'execució del programa.

## Sintaxi:

    Erl

## Valor de retorn:

Enter

## Paràmetres:

La funció Erl només torna un nombre de línia, i no una etiqueta de línia.

## Exemple:

    Sub ExampleError
    On Error Goto ErrorHandler ' Estableix el gestor d'errors
    Dim iVar As Integer
    Dim sVar As String
    ' Error provocat per un fitxer inexistent
        iVar = Freefile
        Open "\file9879.txt" For Input As #iVar
        Line Input #iVar, sVar
        Close #iVar
        Exit Sub
    ErrorHandler:
        MsgBox "Error " & err & ": " & Error$ + chr(13) + "a la línia: " + Erl + chr(13) + Now , 16 ,"S'ha produït un error"
    End Sub