I am trying to output a report to Excel with the following code:
Private Sub cmdExcelExec_Click()
On Error GoTo Err_Handler
Dim strReport as String
strReport = rpt_TransRegister
Docmd.OutputTo acOutputReport, strReport, acFormatXLS, "expenditure_report.xls", True
Exit_cmdExcelExec_Click...