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

Fejlhåndterings-funktioner