
29-09-10, 16:45
|
 | Συντονιστής Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 28-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
| |
Καλημέρα...
Με άρεσαν οι προσεγγίσεις του Γιώργου και του Άγγελου. Μοντέρνος κώδικας.Θα τον χρησιμοποιήσω.
Χρήστο ο κώδικας που ανέβασα, τον έχω προσαρμόσει -όπως φαίνεται παρακάτω και δουλεύει ! Κώδικας: 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
Να είμαστε όλοι καλά / Νίκος Δ.
|