Sorting problem

[Mike]

Hi All,

I wish to sort by different fields at the user's discretion by using buttons
as headers and clicking the button sorts ascending or desending if it was
ascending previously.

I have the following code

Private Sub Label9_Click()
If Me.OrderBy = "Shipper City" Then
Me.OrderBy = "Shipper City DESC"
Else
Me.OrderBy = "Shipper City"
End If
Me.OrderByOn = True

End Sub

It sorts ascending but does not reverse when clicked again like I believe it
should. Any ideas?

Thanks in advance.
Mike

 

[Guest]

Try adding this line as the last line in your sub:
Me.Requery

 

[Mike]

I added that without success. Thanks for the idea though.