Crear control de errores

[xavi]

Palabras clave: manejador, control, errores, log
Autor: Parece que McPegasus
Extraído de: La web del Búho

Objetivo
Estandarizar el manejo del control de errores.


En un comando cualquiera, de un formulario cualquiera, un dia cualquiera y a una hora cualquiera...

Código [Seleccionar] Expandir


Private Sub CmdFacturar_Click()
On Error GoTo Err_CmdFacturar_Click

    'cuerpo del procedimiento, codigo cualquiera

Exit_CmdFacturar_Click:
    Exit Sub

Err_CmdFacturar_Click:
    'En la siguiente funcion ERRORES, recogemos errores para escribirlas posteriormente en un LOG
    'además de mostrar datos en pantalla al usuario:

     Errores Err.Number, Err.Description & vbCrLf & _
            "Evento: " & Screen.ActiveControl.EventProcPrefix & vbCrLf & _
            "Formulario: " & Me.Name
    Resume Exit_CmdFacturar_Click
   
End Sub


En el resto de la aplicacion solo habrá que copiar y pegar la linea:

Errores Err.Number, Err.Description & vbCrLf & _
            "Evento: " & Screen.ActiveControl.EventProcPrefix & vbCrLf & _
            "Formulario: " & Me.Name

en todos los flujos de errores de todos los eventos de los formularios.Tampoco cuesta tanto...¿No?



Ahora en un módulo BAS,las funciones de apoyo para grabar indicencias y para dar aviso en pantalla al usuario....

Código [Seleccionar] Expandir


Function Errores(NumeroError As Integer, Texto As String)

  MsgBox "Atención, mensaje Nº: " & NumeroError & vbCrLf _
         & Texto, vbInformation + vbOKOnly, "Servicio de Mantenimiento"
   
     EscribeDatosTxt ("----------------------------------------------------------")
     EscribeDatosTxt ("Incidencia en el programa:")
     EscribeDatosTxt ("Aviso Nº: " & NumeroError)
     EscribeDatosTxt ("Descripción: " & Texto)
     EscribeDatosTxt ("Fecha de la incidencia:" & Date & " -> Hora : " & Time)
     EscribeDatosTxt ("----------------------------------------------------------")
     ' Fin de control de esta incidencia

End Function

Function EscribeDatosTxt(Texto As String)
Dim NumeroArchivo
NumeroArchivo = FreeFile
Open CurrentProject.Path & "\Incidecnias.txt" For Append As #NumeroArchivo
Print #NumeroArchivo, Texto
Close #NumeroArchivo
End Function




....asi si abrimos el fichero de incidencias...observaríamos unas lineas grabadas como esta...

----------------------------------------------------------
Incidencia en el programa:
Aviso Nº: 2102
Descripción: El nombre del formulario 'McPegasus :-P' está mal escrito o hace referencia a un formulario que no existe.
Evento: CmdFacturar
Formulario: Facturacion
Fecha de la incidencia:23/10/2003 -> Hora : 10:03:05
----------------------------------------------------------