Aqui les dejo un modulo que les permite guardar los errores de nuestras aplicaciones.
Modulo:
Attribute VB_Name = "mdErrores"
' FINALIDAD: GESTIONA Y GRABA LOS ERRORES PRODUCIDOS EN EL PROGRAMA EN UN
' FICHERO PLANO
' PARAMETROS
' ErrDesc: descripcion del error
' ErrMod: localización del error
'Sacado de un programa OpenSource llamado Zas
Option Explicit
Public FileError As String
'FileError = "Error.log"
'llamada en los forms: 'GrabaErr Err.Description, Err.Number, "Main :: Gen"' 'esto lo cambias segun el procedimiento desde donde es llamado
Public Function GrabaErr(ErrDesc As String, ErrNum As String, ErrMod As String)
Open App.Path & "\" & FileError For Append As #3
Print #3, "------> "
Print #3, "Version : " & App.Major & "." & App.Minor & "." & App.Revision
Print #3, "Error en el modulo " & ErrMod
Print #3, "Fecha y Hora: " & Date & " " & Time & " Error: " & ErrNum & " :: " & (ErrDesc)
Print #3, "<------"
Close #3
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & " Se ha grabado el error en " & FileError, vbCritical, "Error en programa"
End Function
Para el que quiera descargarlo:
http://www.4shared.com/file/39425216/6f9e611b/mdErrores.html (http://www.4shared.com/file/39425216/6f9e611b/mdErrores.html)
Gracias x el aporte, un log para nuestras aplicaciones sencillo ;)
Sancho.Mazorka :¬¬