Modul
Indhold
Indholdsfortegnelse 🔎︎

# Erl-funktion

Returnerer linjenummeret hvor en fejl har fundet sted under programudførslen.

## Syntaks:

    Erl

## Returværdi:

Integer

## Parametre:

Erl-funktionen returnerer kun et linjetal, og ikke en linjeetiket.

## Eksempel:

    Sub ExampleError

    On Error Goto ErrorHandler REM Sæt fejlhåndteringen op

    Dim iVar As Integer

    Dim sVar As String

    REM Fejl foranlediget af ikke-eksisterende fil

        iVar = Freefile

        Open "\file9879.txt" For Input As #iVar

        Line Input #iVar, sVar

        Close #iVar

        Exit Sub

    ErrorHandler:

        MsgBox "Fejl " & err & ": " & error$ + chr(13) + "I linje : " + Erl + chr(13) + Now, 16, "Der er opstået en fejl"

    End Sub