+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılır Kutu Değerine Göre Filtreleme (/konu-acilir-kutu-degerine-gore-filtreleme.html)
Sayfalar:
1
2
Re: Açılır Kutu Değeri̇̇ne Göre Fi̇̇ltreleme - berduş - 14/01/2023
aslında filtrenin mantığı aynı. sorgudan kaldırıp filtreye ekleyeceksiniz
tarihi olduğu gibi aldığımızda sorun çıkarabildiği için clng-uzun tamsayı formatını kullanmayı tercih ettim
PHP Kod:
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.Form.Filter = ""
Me.FORMALT.Form.Filter = "[DÖNEMİ] Between " & CLng(Me.tar1) & " And " & CLng(Me.tar2) '"[DÖNEMİ] Between [Formlar]![FORM]![tar1] And [Formlar]![FORM]![tar2]"
Me.FORMALT.Form.FilterOn = True
End Sub
RE: Açılır Kutu Değeri̇̇ne Göre Fi̇̇ltreleme - ertuğrul2022 - 14/01/2023
(14/01/2023, 14:13)berduş yazdı: aslında filtrenin mantığı aynı. sorgudan kaldırıp filtreye ekleyeceksiniz
tarihi olduğu gibi aldığımızda sorun çıkarabildiği için clng-uzun tamsayı formatını kullanmayı tercih ettim
PHP Kod: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.Form.Filter = ""
Me.FORMALT.Form.Filter = "[DÖNEMİ] Between " & CLng(Me.tar1) & " And " & CLng(Me.tar2) '"[DÖNEMİ] Between [Formlar]![FORM]![tar1] And [Formlar]![FORM]![tar2]"
Me.FORMALT.Form.FilterOn = True
End Sub
Sağolun hocam hayırlı işleriniz olsun inşallah. Konuyu kapatabiliriz.