You can use I/O code:
Dim db as DAO.Database
Dim rst as DAO.Recordset
Set db = CurrentDb
Set rst = db.Openrecordset("YourQuery")
Open "C:\DatabaseFolder\YourFile.csv" For Output As #1
'Add any header information that you want
rst.MoveFirst
Do Until rst.EOF
'Copy in the record information something like
Print #1, rst!First; & "," rst!Last; & "," & rst!email & vbCrLf
rst.MoveNext
Loop
Close #1
rst.Close
Set rst = Nothing
Set db = Nothing
or you can use the TransferText Method:
DoCmd.TransferText acExportDelim, , "YourQuery",
"C:\DatabaseFolder\YourFile.csv"
Using this method, the query can contain only the 3 fields you want to
export.
