VBA for button to format an export

[captiangvp]

So, the project i'm working on is getting ready to be put in the hands of the end users and we are putting the finishing touches on things
The users will not see the "file, home, create, etc" SO I have created a button to export the query as a csv file that has the date included on the file.


My question is, How do i get it to export it using the formatting of "delimited by comma" and "including the field names on the first row" I'm not a perfect expert on access and i appreciate all the help tossed at me. I've searched the web and can't find an answer, or maybe i'm wording my search wrong. My code is shown below

Private Sub Export_Products_Click()
Dim filename1 As String
Dim theFilePath As String
filename1 = "Products Export" & "_" & Format(Date, "dd-mm-yyyy") & ".csv"
theFilePath = "C:\Users\Damian\Desktop\Work\Zimmerman"
 
DoCmd.OutputTo acOutputQuery, "Products Export", acFormatTXT, filename1, False
End Sub

[June7]

Explore DoCmd.TransferText command.

[ssanfu]

Also, it looks like you are NOT using the "theFilePath" in the DoCmd command, only "filename1".

Here are options:

Private Sub Export_Products_Click()
    Dim filename1 As String
    Dim theFilePath As String
    
    filename1 = "Products Export" & "_" & Format(Date, "dd-mm-yyyy") & ".csv"
    theFilePath = "C:\Users\Damian\Desktop\Work\Zimmerman"


    DoCmd.OutputTo acOutputQuery, "Products Export", acFormatTXT, theFilePath & "\" & filename1, False
    
End Sub

Private Sub Export_Products_Click()
    Dim filename1 As String
    Dim theFilePath As String
    
    filename1 = "Products Export" & "_" & Format(Date, "dd-mm-yyyy") & ".csv"
    theFilePath = "C:\Users\Damian\Desktop\Work\Zimmerman\"    '<<-- added backslash


    DoCmd.OutputTo acOutputQuery, "Products Export", acFormatTXT, theFilePath & filename1, False
    
End Sub

Private Sub Export_Products_Click()
    Dim filename1 As String
    Dim theFilePath As String
    
    filename1 = "Products Export" & "_" & Format(Date, "dd-mm-yyyy") & ".csv"
    theFilePath = "C:\Users\Damian\Desktop\Work\Zimmerman\" & filename1     '<<-- added backslash and filename1


    DoCmd.OutputTo acOutputQuery, "Products Export", acFormatTXT, theFilePath, False
    
End Sub