export using form

[riantoaji]

hellow expert

i'm a beginner and i have a case want to filter date with start date and end date and make a report and that's clear and now i want to export the report with a button in .xls .what should i do?please be kindness

[cyanidem]

Quick draw, untested but should work with some tweaking:

Private Sub btExportReportToXls_Click()
Dim XlsName As String
Dim XlsFullPath As String
Dim ReportName As String
    ReportName = "repToExport"
    DoCmd.OpenReport ReportName, acViewPreview, , , acHidden 'opens report preview, required for export
    XlsName = "ExportedReport" ' file name of your exported xls
    XlsFullPath = Application.CurrentProject.Path & "\XLS\" & XlsName & ".xls" 'full path to above file
    DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, XlsFullPath 'export command
    DoCmd.Close acReport, ReportName, acSaveNo     'close report preview back
End Sub

That should work but personally I don't think exporting report to Excel format is the best idea. Maybe you'd consider exporting query results?

[ItsMe]

If you use the OutputTo method you will want to apply Criteria to the Report's Filter property in the OpenReport event.

DoCmd.OpenReport ReportName, acViewPreview, ,"My date criteria here" , acHidden 'opens report preview, required for export