Here is the code:
Code:
Private Sub Command117_Click()
'Kill the old xls file
On Error Resume Next
Kill "D:\flw\Access\qryLACustProg.xls"
On Error GoTo 0
'Export the CURRENT data
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryLaCustProg", "D:\flw\Access\", True
MsgBox ("Finished Exporting qryLACustProg to D:\FLW\ACCESS\")
EndSub
I'm going screwy on this when comparing it to other code that works!
Thanks . . . Rick