Función Err
Devuelve un código que identifica el error que se ha producido durante la ejecución del programa.
Sintaxis:
Err
Valor de retorno:
Entero
Parámetros:
La función Err se usa en rutinas de manejo de errores para determinar el error y la acción correctiva.
Ejemplo:
Sub ExampleError
On Error Goto ErrorHandler REM Configurar manipulador 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
ErrorHandler:
MsgBox "Error " & Err & ": " & Error$ + chr(13) + "En la línea: " + Erl + chr(13) + Now , 16 ,"se ha producido un error"
End Sub