Debug code to text file

[psycoperl]

Is there a way to have any messages that are normally sent to the immediate window sent to a text file that I can view. This way if there is an error I can use it to help debug from other users of my application.

(MS ACCESS 2010)

 

[jackd]

I have some code for a routine I call Logger that write a timestamped message to a file.
You Identify the file.

' Date      : 1/21/2009
' Purpose   : To write records to a LOG file using FileSystemObject.
'
'Parameters
' sLogName As String -- full path and file name of the log file
' sLogRec As String  -- record to be written to the log
'
' NOTE: Each log record has a timestamp appended
'
' Special Note/restriction:
'***** Must set a reference to MICROSOFT SCRIPTING RUNTIME ***
'---------------------------------------------------------------------------------------
'
Sub Logger(sLogName As String, sLogRec As String)
Dim tslog As TextStream
Dim fileLog As file
Dim I As Integer
Dim fso As FileSystemObject
   On Error GoTo Logger_Error

Set fso = New FileSystemObject
Set fileLog = fso.GetFile(sLogName) '"I:\wordtest\output\Results.log")
Set tslog = fileLog.OpenAsTextStream(ForAppending)
tslog.WriteLine Now() & vbTab & sLogRec
tslog.Close

   On Error GoTo 0
   Exit Sub

Logger_Error:

    MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure Logger of Module ADO_Etc"
End Sub

Typical usage

....
Dim myLog As String
myLog = "I:\jColby\myLog.txt"
Dim x As String

Set db = CurrentDb()
I = 0    'for testing
hName = "zzzqqq"
x = "List Tables with Indexes and/or " & vbCrLf & "Primary Key and Display Components" & vbCrLf & vbCrLf
Debug.Print x
Logger myLog, x
....

I just saw Norie's post. I'm assuming you're saying messages , but are referring to
Debug.Print to the immediate window.

 

[Norie]

How are the messages being sent to the Immediate window?

That's not any built-in option so it must be getting done by some other code.

Is that what's happening?

 

[psycoperl]

I am currently using Debug.Print

 

[Norie]

What jackd just posted is exactly the kind of thing I meant.

A separate sub that writes the the error message and any other relevant information to a file.

 

[jackd]

I am currently using Debug.Print

I'm sure the code I listed in previous post will work for you.

 

[psycoperl]

Ok I will give this a try. I have to work on this this weekend or next week if I get a chance.

 

[psycoperl]

I might have to ask a few more questions when I am testing this out.

Thanks all.

 

[boblarson]

You can do it without the filesystem dialog as well:

Function writeToLog(strLogFile As String, strDebug As String)
   Open strLogFile For Append As #1
 
    Print #1, strDebug
 
   Close #1  
End Function

Then you can write to it by using

writeToLog "C:\Temp\MyLog.log", x

or you could use a table for the log name and use a DLookup instead of a parameter passed to it or you could hard code it. But very few lines of code really needed.

 

[psycoperl]

In regards to the code:

Do I have to set the file name twice? Or can I just set it in the Logger Sub and everytime to the file?

I have some code for a routine I call Logger that write a timestamped message to a file.
You Identify the file.

' Date      : 1/21/2009
' Purpose   : To write records to a LOG file using FileSystemObject.
'
'Parameters
' sLogName As String -- full path and file name of the log file
' sLogRec As String  -- record to be written to the log
'
' NOTE: Each log record has a timestamp appended
'
' Special Note/restriction:
'***** Must set a reference to MICROSOFT SCRIPTING RUNTIME ***
'---------------------------------------------------------------------------------------
'
Sub Logger(sLogName As String, sLogRec As String)
Dim tslog As TextStream
Dim fileLog As file
Dim I As Integer
Dim fso As FileSystemObject
   On Error GoTo Logger_Error

Set fso = New FileSystemObject
Set fileLog = fso.GetFile(sLogName) '"I:\wordtest\output\Results.log")
Set tslog = fileLog.OpenAsTextStream(ForAppending)
tslog.WriteLine Now() & vbTab & sLogRec
tslog.Close

   On Error GoTo 0
   Exit Sub

Logger_Error:

    MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure Logger of Module ADO_Etc"
End Sub

Typical usage

....
Dim myLog As String
myLog = "I:\jColby\myLog.txt"
Dim x As String

Set db = CurrentDb()
I = 0    'for testing
hName = "zzzqqq"
x = "List Tables with Indexes and/or " & vbCrLf & "Primary Key and Display Components" & vbCrLf & vbCrLf
Debug.Print x
Logger myLog, x
....

I just saw Norie's post. I'm assuming you're saying messages , but are referring to
Debug.Print to the immediate window.