' ExportToCSV
' http://www.utteraccess.com/wiki/index.php/ExportToCSV
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev  date                          brief descripton
' 1.0  2011-04-11                    
'
Public Function ExportToCSV(strSource As String, _
                           strFilename As String, _
                           Optional strColumnDelimiter As String = ",", _
                           Optional blHeaders As Boolean) As Byte
'Exports a table or query or SQL statement to a text file.  If a SQL is passed
'as the source, enclose it in Parenthesis.
   
   Dim intChannel As Integer
   Dim strSQL As String
   Dim strCSV As String
   Dim x As Integer
   
   'Close any open files
   For intChannel = 1 To 511
       Close #intChannel
   Next intChannel
     
   'Open a channel to communicate with your file
   intChannel = FreeFile
   Open strFilename For Output Access Write As #intChannel
   
   'Write the contents of the table to the file
   'Open the source
   strSQL = "SELECT * FROM " & strSource & " As vTbl"
   
   With CurrentDb.OpenRecordset(strSQL, 4) 'dbOpenSnapshot = 4
       
       'Write the headers if appropriate
       If blHeaders = True Then
           For x = 0 To .Fields.Count - 1
               strCSV = strCSV & strColumnDelimiter & .Fields(x).Name
           Next x
           Print #intChannel, Mid(strCSV, Len(strColumnDelimiter) + 1)
       End If
       
       'Write the CSV
       Do Until .EOF
           strCSV = ""
           For x = 0 To .Fields.Count - 1
               strCSV = strCSV & strColumnDelimiter & Nz(.Fields(x), "<NULL>")
           Next x
           Print #intChannel, Mid(strCSV, Len(strColumnDelimiter) + 1)
           .MoveNext
       Loop
       
   End With
         
   'Close all the files
   Close #intChannel
   
End Function