When I run it, the error says " ... could not find the object 'DFT#csv'.
Code: Select all
Private Sub btnExport_Click()
On Error GoTo Err_btnExport_Click
Dim stDFT As Variant, exDFT As Variant, pnDFT As Variant
stDFT = "qryDFT"
exDFT = "DFT"
pnDFT = "C:\Files\Exports\DFT.csv"
DoCmd.Echo False
DoCmd.SetWarnings False
DoCmd.OpenQuery stDFT, acViewNormal
DoCmd.TransferText acExportFixed, "DFT Export Specification", exDFT, pnDFT, False
DoCmd.Echo True
DoCmd.SetWarnings True
Exit_btnExport_Click:
Exit Sub
Err_btnExport_Click:
MsgBox Err.Description
Resume Exit_btnExport_Click
End Sub