[kapetang]

Καλημέρα

Σταύρο, αν δε θέλεις να χρησιμοποιήσεις την απλή λύση που πρότεινε ο Τάσος, θα μπορούσες:

1) Να δημιουργήσεις μία συνάρτηση όπως η παρακάτω

Public Function CustomOrder(X As String) As Long
    Select Case X
        Case "ΠΡΕΣ": CustomOrder = 1
        Case "ΦΟΡΤΗΓΟ 4": CustomOrder = 2
        Case "ΑΡΠΑ": CustomOrder = 3
        Case "ΚΟΝΤΕΙΝΕΡ 8": CustomOrder = 4
    End Select
End Function

2) Να χρησιμοποιήσεις τη συνάρτηση αυτή για την ταξινόμηση.

Αυτό μπορεί να γίνει είτε με τη βοήθεια ερωτήματος (SortCars) είτε και απευθείας στην έκθεση (rprCars).

Δες τη ΒΔ που επισυνάπτω

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