eyvallah hocam çok teşekkürler, bu kod biraz kafamı karıştırdı da ben sabah yayınladığım, yani çalıştı dediğim kodu tekrer aldım o yine çalıştı , konuyu taşıyabilirsiniz, ilginize çok teşekkürler
Çoklu Kritere Göre Form Filtrede Hata
kod oldukça basit aslında kriter olarak kullanmak istediğiniz metin kutularını tek tek tarıyor boş ise atlıyor boş değilse ilgili metin kutusunun değerini ilgili alana atayıp filtreye ekliyor
2. mesajdaki
2. mesajdaki
Me.surecAltForm.Form.Filter = " siniflar.sinifAdi='" & Me.acilan.Column(1) & "' And surec.İslemTarihi Between #" & Format(Me.tarih1, "mm\/dd\/yyyy") & "# And #" & Format(Me.tarih2, "mm\/dd\/yyyy") & "#"
kodunu kabaca aşağıdaki gibi yazıp deneyebilirsinizStrFiltre = ""
If Len( Me.acilan.Column(1) & "") > 0 Then StrFiltre = " and [ siniflar.sinifAdi]=" & Me.acilan.Column(1)
If Len(Me.tarih1 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]>=" & CLng(Me.tarih1)
If Len(Me.tarih2 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]<=" & CLng(Me.tarih2)
StrFiltre = Mid(StrFiltre, 6)
Me.surecAltForm.Form.Filter = StrFiltre
Me.surecAltForm.Form.FilterOn = True
kodu denemeden yazmıştım şimdi deneyince hatalı yazdığım yerleri gördüm
düzenleyip tekrar ekliyorum
düzenleyip tekrar ekliyorum
StrFiltre = ""
If Len(Me.acilan.Column(1) & "") > 0 Then StrFiltre = " and [siniflar.sinifAdi]='" & Me.acilan.Column(1) & "'"
If Len(Me.tarih1 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]>=" & CLng(Me.tarih1)
If Len(Me.tarih2 & "") > 0 Then StrFiltre = StrFiltre & " and [surec.İslemTarihi]<=" & CLng(Me.tarih2)
StrFiltre = Mid(StrFiltre, 6)
Me.surecAltForm.Form.Filter = StrFiltre
Me.surecAltForm.Form.FilterOn = True
Konuyu Okuyanlar: 1 Ziyaretçi