[ Φόρμες ] Αλλαγή Περιεχομένων ενός Πλαισίου Λίστας με Ομάδα Επιλογής

[ΤΖΙΜΗΣ]

Καλημέρα σε όλους τους αγαπητούς φίλους και καλή εβδομάδα
Επειδή δεν έχω ασχοληθεί καθόλου με κουμπιά επιλογής μιας ομάδας επιλογών θα ήθελα την εξής βοήθεια στη φόρμα moria_ aei του αρχείου που επισυνάπτω.
1.Αν μπορούμε στο πλαίσιο λίστας να αλλάζοuμε την σειρά ταξινόμησης χρησιμοποιώντας την ομάδα επιλογής «ΤΑΞΙΝΟΜΗΣΗ». Δηλαδή όταν επιλέγουμε ένα κουμπί από την ομάδα επιλογής να πραγματοποιείται αλφαβητική ή φθίνουσα ταξινόμηση βάσει μορίων.
2.Αν μπορούμε επιλέγοντας από την ομάδα επιλογής «ΠΕΔΙΑ» και ταυτόχρονα από την ομάδα επιλογής «ΤΑΞΙΝΟΜΗΣΗ» , το πλαίσιο λίστας να μου επιστρέφει τις ανάλογες εγγραφές, με την αντίστοιχη ταξινόμηση.
3.Με βάση το προηγούμενο (2) να μου επιστρέφει και τις ανάλογες εγγραφές στην έκθεση moria_ aei
Με εκτίμηση Τζίμης

[kapetang]

Καλημέρα
Δημήτρη, η συνημμένη ΒΔ περιέχει μια υλοποίηση του ζητούμενου.
Βασίζεται στην αλλαγή της τιμής της ιδιότητας «Προέλευση γραμμής» του πλαισίου λίστας της φόρμας «moria aei», ανάλογα με τις επιλογές στις ομάδες επιλογών.

Αυτό γίνεται με τον παρακάτω κώδικα:

Private Sub opFields_Click()
    opOrder_Click
End Sub

Private Sub opOrder_Click()
    Dim strSQL As String
    strSQL = "SELECT [moria aei].ID, [moria aei].[ΟΝΟΜΑΣΙΑ ΣΧΟΛΗΣ], " & _
        "[moria aei].Πεδίο1, [moria aei].[ΒΑΣΗ 2010] FROM [moria aei]"
    If Me.opFields <> 6 Then strSQL = strSQL & " Where [Πεδίο1]='" & Me.opFields & "'"
    If Me.opOrder = 1 Then
        strSQL = strSQL & " Order By [ΟΝΟΜΑΣΙΑ ΣΧΟΛΗΣ] ;"
    Else
        strSQL = strSQL & " Order By [ΒΑΣΗ 2010] Desc;"
    End If
    Me.Σύνθετο_πλαίσιο10.RowSource = strSQL
End Sub

Για την εμφάνιση στην έκθεση των εγγραφών, σύμφωνα με τις επιλογές στις ομάδες επιλογών, προστέθηκε ο κώδικας:

    If Me.opFields <> 6 Then strWhere = "[Πεδίο1]='" & Me.opFields & "'"
    DoCmd.OpenReport stDocName, acPreview, , strWhere

Private Sub Report_Load()
    If Forms("moria aei").opOrder = 1 Then
        Me.OrderBy = "[ΟΝΟΜΑΣΙΑ ΣΧΟΛΗΣ]"
    Else
        Me.OrderBy = "[ΒΑΣΗ 2010] Desc"
    End If
    Me.OrderByOn = True
End Sub

Για τη φθίνουσα ταξινόμηση (δεν το διευκρινίζεις), χρησιμοποιείται το πεδίο «ΒΑΣΗ 2010».

Φιλικά/Γιώργος
Υ.Γ Δεν κατάλαβα γιατί το πεδίο «Πεδίο1» είναι τύπου κειμένου, ενώ παίρνει αριθμητικές τιμές.

[ΤΖΙΜΗΣ]

Γιώργο καλή σου μέρα.Για μία ακόμη φορά ζωγράφισες.Η απάντησή σου άψογη.Επειδή με μια πρώτη ματιά βλέπω ότι περιέχει αρκετές δυσκολίες η υλοποίησή του (με τα δικά μου στάνταρ) ίσως να επανέλθω με κάποιες απορίες.
Φιλικά Τζίμης.

[Tasos]

Καλησπέρα αγαπητέ Τζίμη!

Βασισμένοι στην φράση σου "με τα δικά μου στάνταρ....", και επειδή τα στάνταρ στον τομέα που ασχολούμαστε πρέπει να υψώνονται,
ο Γιώργος και εγώ κοιτάξαμε το αρχείο σου ξανά, το τροποποιήσαμε αυθαίρετα και το επισυνάπτουμε στο μήνυμα αυτό.
Είμαστε σίγουροι ότι θα σε ωφελήσει.

Καλή συνέχεια!

Τάσος - Γιώργος

[ΤΖΙΜΗΣ]

Τασο μέχρι και αυτή τη στιγμή μελετώ την υλοποίηση του φίλου Γιώργου.Τώρα εσείς θέλετε να με βάλετε να μελετώ για καμιά 10 ημέρες.Η παρουσίασή σας άκρως επαγγελματική, και νομίζω ότι θα βοηθήσει όλους τους φίλους.
Να είστε καλά για αυτά που μας προσφέρετε και για τον πολύτιμο χρόνο που μας αφιερώνεται.
Τζίμης.