How to export from query/database table to cvs file - vba

Question

Hi friends at Stackoverflow
Im trying to export a table to a cvs file but i get an error. I tried to troubleshoot but no success so far.
Private Sub cmdGenerateExcelFilesPM_Click()
On Error GoTo HandleError
Dim fullPath As String
fullPath = CurrentProject.path
Dim CaseNumber As String
CaseNumber = Forms("Form").Controls("txtCaseNum").Value
Dim query As String
query = "Select * from PromoAPI"
'this line works fine and generate an excel file
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "PromoAPI",
CurrentProject.path & "\" & CaseNumber & " Promo API" & Format(Now(), " mm dd yyyy"), True
'I need a CVS file - none of the below line works -all of them throw the same error
DoCmd.TransferText acExportDelim, , "PromoAPIQuery", CurrentProject.path & "\" &
CaseNumber &
" Promo API" & Format(Now(), " mm dd yyyy"), True
DoCmd.TransferText acExportDelim, , "query", CurrentProject.path & "\" & CaseNumber & "
Promo API" & Format(Now(), " mm dd yyyy"), True
DoCmd.TransferText acExportDelim, "", "PromoAPI", CurrentProject.path & "\" & CaseNumber & "
Promo API" & Format(Now(), " mm dd yyyy"), True
HandleExit:
Exit Sub
HandleError:
MsgBox Err.Description
Resume HandleExit
End Sub
I have my query named PromoAPIQuery
The error I keep getting is
If anyone can Point me in the right direction please I'd appreciate it.
Thank you

Answer 1

That is just a "bad" error message.
Your issue is you not supplied a file extension (csv) in this case.
Hence, this should work:
Dim strF As String
strF = CurrentProject.path & "\" & _
CaseNumber & " Promo API" & Format(Now(), " mm dd yyyy") & ".csv"
DoCmd.TransferText acExportDelim, , "PromoAPIQuery", strF, True
so note the "addition" of the ".csv" in above.