Docmd.openreport

[JohnM]

I don't seem to be able to get opening a report and sortin the rcords right.
I an open the report, limited to a range of my choosing. So, for example
the code below opens my report and limits it to the dates required.
DoCmd.OpenReport stDocName, acPreview, "[NegBehave].[NegDate] Between #" &
Format(startdate, "DD MMM YYYY") _
& "# and #" & Format(enddate, "DD MMM YYYY") & "#"

The start date and end date are chosen by the user.

All is fine, but I wan to offer the user the opportunity to sort and print
in any order. I feel I ought to be able to tack on the end of this Orber By
FieldX, but nothing seem to work.

[Fred Zuckerman]

"JohnM" <jo**@jmawer.demon.co.uk> wrote in message
news:di*******************@news.demon.co.uk...

I don't seem to be able to get opening a report and sortin the rcords right. I an open the report, limited to a range of my choosing. So, for example
the code below opens my report and limits it to the dates required.
DoCmd.OpenReport stDocName, acPreview, "[NegBehave].[NegDate] Between #" &
Format(startdate, "DD MMM YYYY") _
& "# and #" & Format(enddate, "DD MMM YYYY") & "#"

The start date and end date are chosen by the user.

All is fine, but I wan to offer the user the opportunity to sort and print
in any order. I feel I ought to be able to tack on the end of this Orber By FieldX, but nothing seem to work.

In the OPEN event of your report put code similar to this:
(CAUTION: air code)

Select Case Forms!MyForm!SortOrder
Case 1
Me.OrderBy = "Date1, Account, Lname"
Me.OrderByOn = True
Case 2
Me.OrderBy = "Account, Date1, Lname"
Me.OrderByOn = True
Case 3
Me.OrderBy = "Lname, Account, Date1"
Me.OrderByOn = True
End Select

Good Luck,
Fred Zuckerman