Hi! Walther,
Just wanted to give you the code for the error_log that I have
written thanks to tips from you. If you think it would be useful you can
put it up on
the website. This is real simple, and the file is kept
open for the full session, that the application is running.
It is called by putting in the following call in the login or first form
of the application
Setup_Error_Log
and calling the Close_Error_Log when exiting the application.
Kumar
**********************CODE *****************************************
Public sub
Setup_Error_Log()
Dim strErrorLog as
String
On Error GoTo ErrSetup_Error_log
strErrorLog = App.Path & "\" & App.EXEName & ".log"
If Dir(strErrorLog) <> "" Then Kill strErrorLog
intFileNum = FreeFile
Open strErrorLog For output
as
intFileNum
Exit Sub
ErrSetup_Error_log:
MsgBox "error " & Err & Err.Description
End Sub
Public sub
Close_Error_Log()
Close #intFileNum
End Sub
Return