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
