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)

 

[psycoperl]

Bob you are the best! Thank you that was so simple. I just hard coded the log file name into the function to save on typing as I only need one log file for it.
P.S. Also thank you for your Front End Auto Update Tool... I have added that to our project!

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.

 

[boblarson]

Personally, I would go with the much shorter code I posted. I just don't see any benefits from the longer, more complicated code, do you?

 

[boblarson]

If you want to hard code the log file name in - you could use:

Function writeToLog(strDebug As String)
   Open "C:\Temp\MyLog.log" For Append As #1
 
    Print #1, strDebug
 
   Close #1  
End Function

And then just call this code like you would the Debug.Print code

 

[psycoperl]

Personally, I would go with the much shorter code I posted. I just don't see any benefits from the longer, more complicated code, do you?

The longer code had given me an error, just as I was going to mention that I saw your code and it was great! It also appears to act just like Debug.print feature. It gives me the exact output I need.

 

[psycoperl]

I actually went with the following to make it easier for me to edit the file name without risk of screwing up the actual command.

Function writeToLog(strDebug As String)
   
   Dim strLogFile As String
   strLogFile = "T:\SNRTool\Logs\Processing.log"
   
   Open strLogFile For Append As #1
 
    Print #1, strDebug
 
   Close #1
End Function

If you want to hard code the log file name in - you could use:

Function writeToLog(strDebug As String)
   Open "C:\Temp\MyLog.log" For Append As #1
 
    Print #1, strDebug
 
   Close #1  
End Function

And then just call this code like you would the Debug.Print code

 

[boblarson]

What I would really suggest is to have a table with the path and name for the log file and then use a Dlookup to get it when necessary. That way you don't have to revise any code if you want the log file path or name to change.

So, for example, have a table named tluPreferences and have these fields:

PrefID - Autonumber (PK)
PrefName - Text
PrefValue - Text

And then you can have the PrefName text for this set to ErrorLog and then the PrefValue text to the file path and name (like C:\Temp\MyLog.log)

And then in the code you change to:

Function writeToLog(strDebug As String)
   
   Dim strLogFile As String
   strLogFile = Nz(DLookup("PrefValue", "tluPreferences", "[PrefName]='ErrorLog'"), vbNullString)
   If strLogFile <> vbNullString Then   
      Open strLogFile For Append As #1
 
         Print #1, strDebug
 
      Close #1
   Else
      MsgBox "No log file has been specified in tluPreferences", vbExclamation, "Missing info"
   End If
End Function