IBM Lotus Symphony
|
Devuelve un código que identifica el error que se ha producido durante la ejecución del programa.
Err
Entero
La función Err se usa en rutinas de manejo de errores para determinar el error y la acción correctiva.
sub EjemploError
on error goto ManejadorError REM Configurar manejador de errores
Dim iVar As Integer
Dim sVar As String
REM El error se produce debido a un archivo no existente
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ManejadorError:
MsgBox "Error " & Err & ": " & Error$ + chr(13) + "En la línea: " + Erl + chr(13) + Now , 16 ,"se ha producido un error"
end sub