Saving report IDs to a text file

[Ruegen]

I am running some VBA and I would like to log each ID not used in a do until in a text file

so I know how to create a path etc

I would like to create a text file, log the id into that text file on a new line (just for easier reading) and then move to the next record to do the same



my question I guess is how do I insert data into the text file without overwriting the whole file?

[Dal Jeanis]

Here are some pages with examples of VBA opening a text file for append.

http://bytes.com/topic/access/answer...txt-file-query
http://bytes.com/topic/access/answer...ing-text-files
http://www.vbforums.com/showthread.p...g-VBA-MS-excel
http://stackoverflow.com/questions/9...to-a-text-file

[Ruegen]

Here are some pages with examples of VBA opening a text file for append.

http://bytes.com/topic/access/answer...txt-file-query
http://bytes.com/topic/access/answer...ing-text-files
http://www.vbforums.com/showthread.p...g-VBA-MS-excel
http://stackoverflow.com/questions/9...to-a-text-file

Great! It seems to work fine however I wouldn't mind if someone had a look at it to check I have things in order (hoping it looks ok)

                   
 'check to see if the folder exists and create one if it doesn't                   
 If Dir("C:\AccessLogs", vbDirectory) = "" Then
                    MkDir ("C:\AccessLogs")
                    Set fs = CreateObject("Scripting.FileSystemObject")
                    Set txFile1 = fs.CreateTextFile("c:\AccessLogs\Employee.txt", True)
                    txFile1.WriteLine ("Created file on " & Date)
                    txFile1.Close
                    Else
                    End If
                    
                    'write to a text file
                    intFileNum = FreeFile()
                    Open "C:\AccessLogs\Employee.txt" For Append As #intFileNum
                    Write #intFileNum, "School ID " & rs!NewSchoolsID & " was sent (including confirmations) on " & Date
                    Close #intFileNum

[Dal Jeanis]

Looks good to me. The proof is whether it works or not.