Φίλτρο με σύνθετα πλαίσια για ημερομηνία

[kapetang]

Ο κώδικας που χρησιμοποίησες είναι σωστός.

Σωστός είναι και ο κώδικας για το κουμπί που πρόσθεσα.

Επειδή έχει ένα μη αναγκαίο 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