Missing Field Names

[paulS30berks]

Just used the code below to output to .csv. however Field Names have been omitted from the output .csv file.

Can anyone help?

Thanks

Paul

Private Sub export_Click()
On Error GoTo Err_export_Click
Dim AString As String
AString = "Export_Occupancy_"
DoCmd.TransferText acExportDelim, "", "ChildCare Vouchers For Accor", "c:\\Temp" & AString & Format(date, "YYYY_MMDD") & Format(Time, "-HH_MM") & ".csv"
Exit_export_Click:
Exit Sub
Err_export_Click:
MsgBox Err.Description
Resume Exit_export_Click
End Sub

 

[ByteMyzer]

The DoCmd.TransferText statement should read:

DoCmd.TransferText acExportDelim, "", "ChildCare Vouchers For Accor", "c:\\Temp" & AString & Format(date, "YYYY_MMDD") & Format(Time, "-HH_MM") & ".csv", True

This will include the field names in the CSV file.

 

[paulS30berks]

Many Thanks