[Meteora]

Καλημέρα...
Με άρεσαν οι προσεγγίσεις του Γιώργου και του Άγγελου. Μοντέρνος κώδικας.Θα τον χρησιμοποιήσω.
Χρήστο ο κώδικας που ανέβασα, τον έχω προσαρμόσει -όπως φαίνεται παρακάτω και δουλεύει !

Private Sub Εντολή48_Click()

< ...κώδικας>

Select Case Me.Filter
   Case ""
      Me.Filter = "[Επιλογη] = true"
      Me.Εντολή48.Caption = "Όλοι οι μαθητές"
   Case "[Επιλογη] = true"
      Me.Filter = ""
      Me.Εντολή48.Caption = "Επιλογή μαθητών"
    End Select
     Me.FilterOn = True
End Sub

Να είμαστε όλοι καλά / Νίκος Δ.