26-10-22, 21:50
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Ο κώδικας που χρησιμοποίησες είναι σωστός.
Σωστός είναι και ο κώδικας για το κουμπί που πρόσθεσα.
Επειδή έχει ένα μη αναγκαίο IF θα μπορούσε να συντομευτεί στον ακόλουθο: Κώδικας: Private Sub cmdFilter_Click()
Dim sFilter As String
If Nz(Me.cboyear, "") <> "" Then
sFilter = "Year([ΗΜΕΡΟΜΗΝΙΑ])=" & Me.cboyear
If Nz(Me.cbomonth, "") <> "" Then
sFilter = sFilter & " And "
End If
End If
If Nz(Me.cbomonth, "") <> "" Then
sFilter = sFilter & "Month([ΗΜΕΡΟΜΗΝΙΑ]) = " & Left(Me.cbomonth, 2)
End If
Me.Filter = sFilter
Me.FilterOn = sFilter <> ""
End Sub
|