I am using a command button on the form against the table and set it to Me.OrderByOn=True, Me.OrderBy [lastname]
Is there any way to have it sort by either asc or desc. order ?

I think that was answered from previous post:

if Len(me.Orderby) > 0 Then
if Instr(Me.Orderby, "DESC") Then
Me.OrderBy = Replace(Me.OrderBy, "DESC", "")
Else
Me.OrderBy = Me.OrderBy & " DESC"
End If
Me.OrderByOn = True
Else
Me.OrderByOn=False
End If

On LoadEvent of the form:
Me.OrderBy = "[LastName]"

You'll have to include some conditional logic to determine the current sort order and swap it.


You may refine it further--as Arnel has shown already--, but that ought to get you started