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