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

[jamman]

Καλησπέρα σε όλους. Θα ήθελα μία βοήθεια. Σε μία φόρμα από ένα ερώτημα , έχω προσθέσει 2 σύνθετα πλαίσια. Το ένα cbomonth και το άλλο cboyear. Πως μπορώ να φιλτράρω τη φόρμα επιλέγοντας μόνο το μήνα ή μόνο το έτος ή και τα δύο μαζί.
Δηλαδή θα ήθελα να βλέπω μόνο τις εγγραφές που αφορούν μόνο έναν μήνα , μόνο ένα έτος ή έναν μήνα έτους.
Ευχαριστώ πολύ!

[kapetang]

Καλησπέρα

Βασίλη, κάνε δοκιμές στο συνημμένο.

Πρόσθεσα ένα κουμπί για το φιλτράρισμα και κώδικα και για τα 2 κουμπιά.

Επίσης αρίθμησα τους μήνες για να ταξινομούνται σωστά

Την αρίθμηση τη χρησιμοποίησα και στον κώδικα, συνεπώς είναι αναγκαία.

[jamman]

Καλημέρα . Γιώργο για άλλη μία φορά σ'ευχαριστώ για την πολύτιμη βοήθειά σου. "Δανειζόμενος" από άλλα post και εφαρμογές , κώδικα , παραμετροποίησα τα rowsource , χρησιμοποίησα την after_update στα σύνθετα πλαίσια και πέτυχα τελικά αυτό που ήθελα. Είχα δοκιμάσει νομίζω και τη δική σου πρόταση αλλά προφανώς κάτι έκανα λάθος στον κώδικα. Ανεβάζω πάλι την εφαρμογή και αν έχεις χρόνο θα ήθελα τη γνώμη σου για το αποτέλεσμα.
Ευχαριστώ και πάλι !

[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