Smart Error Handling- Need help..

[mxnmx]

Is there a way to log all the errors in a text file, when they occur...so that when there's a run time error- and there's on error goto ErrorHandler, then the error handler takes over. But I was reading somewhere that we can trap the errors (how they happened) and log them in a text file. How is that possible??? Any idea, anyone!!!

[Armbruster]

Option Explicit
 
 
Sub Something()
On Error GoTo errhandler
    'some code with an error
 
Exit Sub
errhandler:
    LogEvent Now, Err.Number, Err.Description, Err.Source
End Sub
 
Public Sub LogEvent(myTime As Date, myError As Long, myErrorString As String, myErrorSource As String)
    Dim NextFreeFile As Long
    NextFreeFile = FreeFile
    Open "\Error.log" For Append As #NextFreeFile
        Write #NextFreeFile, myTime; myError; myErrorString, myErrorSource
    Close #NextFreeFile
End Function

something like that?