[kapetang]

Καλησπέρα

Χρήστο, θα μπορούσες να προσαρμόσεις τον παρακάτω κώδικα.

Private Sub cmdOrderAsc_Click()
    'Ταξινόμηση αύξουσα   
    Me.OrderBy = "fName1"
    Me.OrderByOn = True
End Sub

Private Sub cmdOrderDesc_Click()
    'Ταξινόμηση φθίνουσα
    Me.OrderBy = "fName2 DESC"
    Me.OrderByOn = True
End Sub

Τα fName1 και fName2 είναι τα πεδία ταξινόμησης.

Φιλικά/Γιώργος