Export to CSV with All fields Quoted

You could do a macro.

Sub CREATE_FILE()

Rem File name to be used
FileName = "C:\somefile.TXT"

Rem Get the next free file number, this is used for file I/O
FileNumber = FreeFile

Rem If the file is found delete it
If Dir(FileName) <> &quot;&quot; Then Kill FileName

Rem Open the file for output lock the file while it is open
Open FileName For Output Access Write Lock Read Write As FileNumber

Rem Get the first record in the report
GetRandom 1

Rem Loop through all of the records in the report
For i = 1 to TotalRecords()

Rem Write the record to the file
Write #FileNumber,Field(&quot;SomeField1&quot+&quot;,&quot;+Field(&quot;SomeField2&quot

Rem Get the next record
GetNext

Rem Loop
Next i

MsgBox &quot;File Created&quot;

End Sub CharlesCook.com
ADP - PeopleSoft - SAP
ReportSmith - Crystal Reports - SQR - Query - Access
Reporting - Interfaces - Data Mining