IBM Lotus Symphony
|
Zwraca numer wiersza, w którym wystąpił błąd w czasie wykonywania programu.
Erl
Liczba całkowita
![]() |
Funkcja Erl zwraca tylko numer wiersza, a nie jego etykietę. |
sub Przyklad_Error
on error goto Obsluga_bledu REM Ustawianie procedury obsługi błędów
Dim iZm as Integer
Dim sZm As String
REM Błąd spowodowany przez brak pliku
iZm = Freefile
Open "\file9879.txt" for Input as #iZm
Line Input #iZm, sZm
Close #iZm
exit sub
Obsluga_bledu:
MsgBox "Błąd " & err & ": " & error$ + chr(13) + "W wierszu: " + Erl + chr(13) + Now , 16 ,"Wystąpił błąd"
end sub