-----Original Message-----
OK,
Ideally what you would need to do is to set the Focus to
the field you would like to sort.
i.e
Then use the following code behind a Command Button for
instance and this will toggle the Ascending and Descending:
Static bTitleAscending As Boolean
Me!Title.SetFocus
If Not bTitleAscending Then
DoCmd.RunCommand acCmdSortAscending
bTitleAscending = True
Else
DoCmd.RunCommand acCmdSortDescending
bTitleAscending = False
End If
Hope this helps you
Mark
.