Private Sub Oplopend_Click()
DoCmd.SetOrderBy "Titel ASC"
End Sub
Private Sub Aflopend_Click()
DoCmd.SetOrderBy "Titel DESC"
End Sub
Kan ook met 1 knop.
Private Sub Sorteer_Click()
If Me.OrderBy = "Titel" Then
Me.OrderBy = "Titel desc"
Else
Me.OrderBy = "Titel"
End If
Me.OrderByOn = True
End Sub