26-03-12, 19:15
|
 | Συντονιστής Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 28-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
| |
Διόρθωσε τον κώδικα. Θα σε "κλωστήσει" το me.Filter="" Κώδικας: Private Sub cboFilter_AfterUpdate()
If Me.cboFilter = "<ΟΛΑ>" Then
Me.FilterOn = False
Else
Me.Filter = "[Πεδίο2]='" & Me.cboFilter & "'"
Me.FilterOn = True
End If
End Sub
Καλό μας βράδυ / Νίκος
|