Adding in sort options into doCmd.OpenReport

[EGTax]

Hello fellow techies,

I am new to the Access genre and having a bit of trouble trying to figure out how to add in query options such as "Order BY" and "Asc" or "Desc" into the doCmd.OpenReport

here is my sub:

Private Sub ReportButton_Click()
Dim sWhere As String
Dim Order As String
Dim vars As String


If Me.Direction = "Ascending" Then
    Order = " Asc"
Else
    Order = " Desc"
End If

vars = "ORDER BY " & Me.SortBy & Order

sWhere = "1=1"
If Not Me.MyCat = "All" Then sWhere = sWhere & " and [Category]='" & Me.MyCat & "'"
If Not Me.CBoxOfficeNumber = "All" Then sWhere = sWhere & " and [Office_Number]='" & Me.CBoxOfficeNumber & "'"

If sWhere = "1=1" Then
  DoCmd.OpenReport "EGTaxInventory", acViewPreview
Else
  DoCmd.OpenReport "EGTaxInventory", acViewPreview, , sWhere, , vars
End If
End Sub

On here I have it in the OpenArgs section of the command, but that doesnt seem to work? although it doesn't error..
I tried to just add it to the end of the sWhere variable but I got a "Missing Operator" error

any help is appreciated

Bob

[EGTax]

ok, so after some more searching I found a work around...

I went into the report and in the "Open" action I then called the Order By and "Asc/Desc"

Private Sub Report_Open(Cancel As Integer)
Dim direct As String
Dim Order As String

direct = [Forms]![Inventory Search By ComboBox]![Direction]

If direct = "Ascending" Then
    Order = " Asc"
Else
    Order = " Desc"
End If

Me.OrderBy = [Forms]![Inventory Search By ComboBox]![SortBy] & Order
Me.OrderByOn = True
End Sub

But please, if you know of a better way, I am always open to better solutions.

Thank you,

Bob

[orange]

With Access, reports have their own Sorting and Grouping which should be used.

Google using ms access reports sorting and grouping for more info and examples.