Sort In Report

[data808]

In red is what I am trying to add on to the code. Can anyone tell me where to add my strWhat string? Or if I even need to do this?
The strWhere that is set for the filter, carries over nicely from the split form to report. I would like to do the same with sorts. If the split form has sorts running, I would like this to carry over to the report as well. How can this be done? Ultimately, I would like the report to look exactly the same as the split form for how the records are listed. Can it be done? This code is behind the open report button on the split form.


Private Sub cmdPrintReport_Click()
On Error Resume Next

Dim strWhere As String
Dim strWhat As String
If Me.Dirty Then Me.Dirty = False
If Me.FilterOn Then strWhere = Me.Filter
If Me.OrderByOn Then strWhat = Me.OrderBy
DoCmd.OpenReport "Permit Dates Issued_report", acViewReport, , strWhere, , strWhat
Me.txtStart.SetFocus

End Sub

[June7]

There is no argument in the OpenReport method for sort parameters.

Sorting must be in the report design using Grouping & Sorting features or perhaps code can set the report OrderBy property. I've never tried the latter.

[GinaWhipp]

Hmm, I think this is what you are looking for...
http://www.access-programmers.co.uk/...d.php?t=227013

[data808]

Thanks for the reply GinaWhipp. Maybe I am missing something but it sounds like the sorting takes place every time the report is open. In this case the code is for the OnLoad event of the report. I need something that the user can decide how the report is sorted. Do you have any ideas for that? This seems like a pretty close solution though.

[GinaWhipp]

I don't have anything for that but I know it can be done. You would need a little Form to open with the Report and then you can set your GroupBy's from it. Hmm, sounds like maybe I should make a sample for that... sounds like fun!

[June7]

Maybe code can set the OrderBy property of report.

Maybe an expression in the OrderBy property can reference controls on a form.

[data808]

Yes please. If you make something, please post back.

[data808]

June7,

could you assist with expressions. I tried the VBA code of messing with the OrderBy commands and was not able to get it to work. I think the other command was OrderBy On. I have a FilterBy and FilterBy On VBA code that works great which is why I used the same concept for the OrderBy and OrderBy On but could not get it to work. I know practically nothing when it comes to expressions so if you could help with that, that would be great. Thanks.

[GinaWhipp]

Hmm, will do. Tonight is Friday and I'm not going anywhere, so...

[GinaWhipp]

Well, looks like I don't have to write anything, I found this...
http://www.databasedev.co.uk/sorting_reports.html