Export to multiple text files?

[ManningFan]

I'm running through a database in a loop, and each time the loop
finishes I would like to export the values of some variables to new
text files. In reality it's more complex than this, but this is the
simplest way to state it.

Is there a way to write to text files and save them as different names
(presumably one of the variables dot "TXT") using Access VBA?

[RoyVidar]

"ManningFan " <ma********@gma il.comwrote in message
<11************ *********@73g20 00cwn.googlegro ups.com>:

I'm running through a database in a loop, and each time the loop
finishes I would like to export the values of some variables to new
text files. In reality it's more complex than this, but this is the
simplest way to state it.

Is there a way to write to text files and save them as different
names (presumably one of the variables dot "TXT") using Access VBA?

Are you thinking something like this Air Code?

Sub ManningFan_Test ()

Dim ff As Long
Dim lngCounter As Long

For lngCounter = 1 To 100
ff = FreeFile()
Open CurrentProject. Path & _
"\Test" & CStr(lngCounter ) & ".txt" For Output As #ff
Print #ff, "Test " & CStr(lngCounter )
Close #ff
Next lngCounter

End Sub

--
Roy-Vidar

[ManningFan]

Worked perfectly, Roy-Vidar. Thanks!

RoyVidar wrote:

>
Are you thinking something like this Air Code?

Sub ManningFan_Test ()

Dim ff As Long
Dim lngCounter As Long

For lngCounter = 1 To 100
ff = FreeFile()
Open CurrentProject. Path & _
"\Test" & CStr(lngCounter ) & ".txt" For Output As #ff
Print #ff, "Test " & CStr(lngCounter )
Close #ff
Next lngCounter

End Sub

--
Roy-Vidar