Report Sorting

[B30]

Reference: https://www.accessforums.net/reports...orm-24335.html



I am attempting to do the same thing datadude60 was and I came across this thread. Did anyone ever come up with a way to do this? I have a form that allows the user to filter the data by date range and send the results to a report. I have the report grouped, but I would like to allow the user to select a sort order within the group. I imagined a combo box on the form letting them choose which field from the query to sort on. Maybe multiple combo boxes for multiple levels of sorting. Is this possible?

[ranman256]

This works for me...

Private Sub btnSetRptSort_Click()
Dim sFld As String
Dim rpt As Report
Dim vRpt

sFld = Forms!frmMain!cboFld   'user picked sort fld
vRpt = "rRpt"

DoCmd.OpenReport vRpt, acViewDesign
   Set rpt = Reports(vRpt)
   ''rpt.printer = "Brother"
   rpt.OrderByOn = True
   rpt.OrderBy = sFld
DoCmd.Close acReport, rpt.Name, acSaveYes
DoCmd.OpenReport vRpt, acViewPreview
Set rpt = Nothing
End Sub