Skip to main content

AccessTr.neT


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

ertuğrul2022
ertuğrul2022
7
422

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

#7
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", -1Date)
    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", -2Date)
    Me.tar1 CDate("21." Month(tar1) & "." Year(tar1))
    Me.tar2 DateAdd("m", -1Date)
    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 
Cevapla
#8
(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", -1Date)
    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", -2Date)
    Me.tar1 CDate("21." Month(tar1) & "." Year(tar1))
    Me.tar2 DateAdd("m", -1Date)
    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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task