Sorting data in a List Box

[helpmeplease213]

Hello,

I have a list box that I want to display data that is sorted by Date and by unit.
This is the current code that I have used but nothing seems to happen when the date text box has the date that I want sorted.

Any help would be appreciated

Thanks

Private Sub Optiongroup_AfterUpdate()
 
    Select Case Me.Optiongroup
        Case 2   'Order by Date
 
            Me.TextBoxDate.Visible = True
            Me.TextBoxUnit.Visible = False
 
        Case 3 'Order by Unit
 
            Me.TextBoxUnit.Visible = True
            Me.TextBoxDate.Visible = False
 
        Case Else
 
            Me.TextBoxUnit.Visible = False
            Me.TextBoxDate.Visible = False
 
    End Select
 
End Sub
 
Private Sub TextBoxDate_AfterUpdate()
 
 
    Select Case Me.Optiongroup
        Case 2   'Order by Date
 
           order = "Date"
           Me!Result.RowSource = "QueryDate"
           Source = "QueryDate"
           Result.Requery
 
        Case 3 'Order by Unit
 
           order = "Unit"
           Me!Result.RowSource = "QueryUnitNo"
           Source = "QueryUnitNo"
           Result.Requery
 
        Case Else
 
    End Select
 
End Sub

[Scott Price]

I'm assuming that Result is the name of your list box?

In the queries that you are using for the Row Source of this list box, you need to add the sort order there... Open the query in design view, you will see these rows, from top to bottom: Field, Table, Sort, Show, Criteria, Or. The Sort criteria (Ascending or Descending) are set here.

Regards,
Scott