IBM Lotus Symphony
|
Zwraca kod błędu określający błąd, który wystąpił w czasie wykonywania programu.
Err
Liczba całkowita
Funkcja Err jest używana w procedurze obsługi błędów do określania błędu i działania naprawczego.
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