Toggle Button to Sort Records

[sparker75]

Hello,

Can someone help me with the following VBA? I'm trying to toggle a column ascending or descending when the toggle is clicked. I would like to add this to each of my tabular column form so users and sort as they wish.

This is what I have so far.... My Column that I'm trying to sort is OrderNum

If Toggle102.Value = True Then


DoCmd.SetOrderBy OrderNum, DESC
Else
DoCmd.SetOrderBy OrderNum, ASC
End If
End Sub

Thank you for your help!

[June7]

DoCmd.SetOrderBy "DESC", "OrderNum"

[sparker75]

After this

Private Sub Toggle102_AfterUpdate()
If Toggle102.Value = True Then
DoCmd.SetOrderBy "DESC", ([qryOrderStatus]![OrderNum])

Else
DoCmd.SetOrderBy "ASC", ([qryOrderStatus]![OrderNum])
End If
End Sub


I get this error

[sparker75]

This is what I got from the code you provided so I added the query to it

[isladogs]

Your code is wrong. It was almost correct originally.
See https://ss64.com/access/setorderby.html

Try this

Private Sub Toggle102_AfterUpdate()
    If Toggle102.Value = True Then
DoCmd.SetOrderBy "OrderNum DESC"
    Else
        
DoCmd.SetOrderBy "OrderNum ASC"
    End If
End Sub

You could omit the ASC as it's the default

[sparker75]

Works! But I would like to sort ASC when the toggle is False. Is this possible?

[isladogs]

That should already happen in the Else section with the code I provided

[June7]

Oops, I misunderstood function arguments. Got this one-liner to work:

DoCmd.SetOrderBy "OrderNum " & IIf(Me.Toggle102, "DESC", "ASC")