IBM Lotus Symphony
|
Retorna o número da linha em que ocorreu um erro durante a execução do programa.
Erl
Inteiro
![]() |
A função Erl retorna apenas um número da linha e não um rótulo de linha. |
sub ExampleError
on error goto ErrorHandler REM Configurar a rotina de tratamento de erro
Dim iVar as Integer
Dim sVar As String
REM Erro causado por arquivo não existente
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Erro " & err & ": " & error$ + chr(13) + "Na linha : " + Erl + chr(13) + Now , 16 ,"Ocorreu um erro"
end sub