+- 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ığı: Çoklu Kritere Göre Form Filtrede Hata (/konu-coklu-kritere-gore-form-filtrede-hata.html)
Sayfalar:
1
2
RE: Çoklu Kritere Göre Form Filtrede Hata - tarkanaykın - 15/04/2022
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
RE: Çoklu Kritere Göre Form Filtrede Hata - berduş - 16/04/2022
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
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") & "#"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 RE: Çoklu Kritere Göre Form Filtrede Hata - berduş - 16/04/2022
kodu denemeden yazmıştım şimdi deneyince hatalı yazdığım yerleri gördüm
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