IBM Lotus Symphony
|
Возвращает код ошибки, возникшей во время выполнения программы.
Err
Integer
Функция Err применяется в процедурах обработки ошибок для определения ошибки и действий по ее исправлению.
sub ExampleError
on error goto ErrorHandler REM Настроить блок обработки ошибок
Dim iVar as Integer
Dim sVar As String
REM Причина ошибки - отсутствие файла
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Ошибка " & Err & ": " & Error$ + chr(13) + "В строке: " + Erl + chr(13) + Now , 16 ,"произошла ошибка"
end sub