En un comando cualquiera, de un formulario cualquiera, un dia cualquiera y a una hora cualquiera... 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.... 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 ----------------------------------------------------------