IBM Lotus Symphony
|
Returnerer nummeret på den linje, hvor der opstod en fejl under programkørslen.
Erl
Heltal
![]() |
Funktionen Erl returnerer kun et linjenummer, ikke linjens tekst. |
Sub EksempelFejl
On error goto ErrorHandler REM Indstil fejlhåndtering
Dim iVar as Integer
Dim sVar As String
REM Fejl, der skyldes, at fil ikke findes
iVar = Freefile
Open "\fil9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Fejl " & err & ": " & error$ + chr(13) + "På linje: " + Erl + chr(13) + Now , 16 ,"Der er opstået en fejl"
End Sub