AccessTr.neT

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

(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.