[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» είναι τύπου κειμένου, ενώ παίρνει αριθμητικές τιμές.