Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Φίλτρο Κώδικας (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2092-filtro-kodikas.html)

kirillos 02-10-12 09:08
Φίλτρο Κώδικας
 
καλημέρα σε όλους.
Θέλω να φτιάξω ένα φίλτρο σε ένα κουμπί που να κάνει ταξινόμηση σε στήλη από τον μεγαλύτερο αριθμό στον μικρότερο και ένα άλλο κουμπί που να κάνει σε μία άλλη το αντίθετο.
ευχαριστώ Χρήστος.

Dangel82 02-10-12 15:05
Μπορείς να βάλεις το παρακάτω στο διπλό κλικ κάποιου control ώστε με το ίδιο κουμπί να μπορείς να κάνεις την αντίθετη ταξινόμηση...
Δλδ, αν είναι αύξουσα η ταξινόμηση να εφαρμόσει την φθίνουσα και το ανάποδο...
Κώδικας:
If Form.OrderBy = "afm" Then
        Form.OrderBy = "afm DESC"
    Else
        Form.OrderBy = "afm ASC"
    End If
    Me.OrderByOn = True
Ελπίζω να σου κάνει... .

kapetang 02-10-12 15:19
Καλησπέρα

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

Κώδικας:
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 είναι τα πεδία ταξινόμησης.

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

kirillos 02-10-12 16:36
Σας ευχαριστώ και τους δύο για τις απαντήσεις σας θα τις κοιτάξω και τις δύο, και πάλι ευχαριστώ.


Η ώρα είναι 11:30.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2