Açılır Kutu Değerine Göre Filtreleme

Hayırlı akşamlar.
Acceste benim alt formun kayıt kaynağı S_LİSTE 
Altformda malzeme ve dönem sutunlarım var.
Dönem sutununa tarih giriyorum.
Açılır kutuda "Bu aya gelenler" göster dediğimde geçen ayın 21'i ile bu ayın 20'si arasındaki kayıtları göstersin.
Açılır kutuda "Geçen ay gelenler" göster dediğimde önceki ayın 21'i ile geçen ayın 20'si arasındaki kayıtları göstersin.
Yani ay her ayın 21'inde başlasın sonraki ayın 20'sinde bitsin.
Açılır kutu güncelleştirme olayına nasıl bir kod yazmam gerekir acaba.

Private Sub Açılan_Kutu1_AfterUpdate()
If Açılan_Kutu1 = "Bu aya gelenler" Then
Me.FORMALT.Form.Filter = "[DÖNEMİ]=...............................
Me.FORMALT.Form.FilterOn = True

ElseIf Açılan_Kutu1 = "Geçen ay gelenler" Then
Me.FORMALT.Form.Filter = "[DÖNEMİ]=................................
Me.FORMALT.Form.FilterOn = True
End If
End Sub

İnceleyip olumlu/olumsuz bildirimde bulununuz.

(11/01/2023, 23:33)ozanakkaya yazdı: İnceleyip olumlu/olumsuz bildirimde bulununuz.

Hocam siz bir dahisiniz. Emeğinize sağlık. Hayırlı işlerin olsun inşallah.

(11/01/2023, 23:33)ozanakkaya yazdı: İnceleyip olumlu/olumsuz bildirimde bulununuz.

Hayırlı akşamlar hocam tecrübeniz sayesinde güzel şeyler öğreniyorum. Bir sorum olacak benim.
Uygulamamışsa filtreleme yapıyorum ama formda 4 tane tarih sütünüm var ve ben DÖNEMİ ne göre filtre yapmak istiyorum bu konuda bana yardımcı olursan memnun olurum.

Ne demek istediğinizi zerre anlamadım ancak filtreleme yapmak için hangi alanı belirlerseniz kriter olarak bu alan üzerinde filtreleme yapılır. Benzer alanın bir tane veya 10 tane olması birşey değiştirmez. @ozanakkaya Hocamın örneği son derece sade ve net kendi uygulamanıza nasıl uyarlayamıyorsunuz?

Acemiliğime bağışlayın hocam tabloda 
muayene tarihi
dönemi
geliş tarihi
onay tarihi sütunları var 
sorgudaki  DÖNEMİ sütununa 
Between [Formlar]![FORM]![tar1] And [Formlar]![FORM]![tar2]
ifadesini aşağıdaki kodun içine nasıl yazabilirim acaba.
Private Sub Açılan_Kutu1_AfterUpdate()
If Açılan_Kutu1 = "Bu aya gelenler" Then
Me.tar1 = DateAdd("m", -1, Date)
Me.tar1 = CDate("21." & Month(tar1) & "." & Year(tar1))
Me.tar2 = CDate("20." & Month(Date) & "." & Year(Date))
ElseIf Açılan_Kutu1 = "Geçen ay gelenler" Then
Me.tar1 = DateAdd("m", -2, Date)
Me.tar1 = CDate("21." & Month(tar1) & "." & Year(tar1))
Me.tar2 = DateAdd("m", -1, Date)
Me.tar2 = CDate("20." & Month(tar2) & "." & Year(tar2))
End If
Me.FORMALT.Requery
End Sub