+- 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ığı: Sürekli Formda Filtreleme (/konu-surekli-formda-filtreleme--90590.html)
Sayfalar:
1
2
Re: Sürekli Formda Filtreleme - _GAS_ - 07/07/2023
Alıntı:Tablonuzda tarih alanı veri türü kısa metin; bu alanın veri türünü tarih/saat, biçimini kısa tarih olarak tanımlayın.
Formunuzda ilkt ve sont denetimlerinin biçimini kısa tarih yapın.
Listele butonunun olay yordamına yazdığınız
Kod:
Private Sub Komut106_Click()
Select Case Çerçeve117
Case Is = 1
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*' And [uyrugu]='Türkiye'"
Me.FilterOn = True
Me.Refresh
Case Is = 2
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*' And [uyrugu]<>'Türkiye'"
Me.FilterOn = True
Me.Refresh
Case Is = 3
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*'"
Me.FilterOn = True
Me.Refresh
End Select
End Sub
kodu örnek olarak sadece case 1 için yazıyorum:
Kod:
Case Is = 1
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*' And [uyrugu]='Türkiye' and [tarih] Between [Forms]![frm_liste]![ilkt] And [Forms]![frm_liste]![sont]"
Me.FilterOn = True
Me.Refresh
şeklinde revize ederseniz tarih kriterlerinize göre de filtreleme yapabilirsiniz.
Sayın @atoykan
dediklerinizi aynen yaptım ama bonuç değişmedi. Söylediklerinize göre revize edilmiş halini tekrar paylaşıyorum. Ben mi bir yerde yanlış yapıyorum anlamadım. Rica etsem bir bakabilirmisiniz?
RE: Sürekli Formda Filtreleme - _GAS_ - 07/07/2023
Alıntı:Tablonuzda tarih alanı veri türü kısa metin; bu alanın veri türünü tarih/saat, biçimini kısa tarih olarak tanımlayın.
Formunuzda ilkt ve sont denetimlerinin biçimini kısa tarih yapın.
Listele butonunun olay yordamına yazdığınız
Kod:
Private Sub Komut106_Click()
Select Case Çerçeve117
Case Is = 1
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*' And [uyrugu]='Türkiye'"
Me.FilterOn = True
Me.Refresh
Case Is = 2
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*' And [uyrugu]<>'Türkiye'"
Me.FilterOn = True
Me.Refresh
Case Is = 3
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*'"
Me.FilterOn = True
Me.Refresh
End Select
End Sub
kodu örnek olarak sadece case 1 için yazıyorum:
Kod:
Case Is = 1
Me.Filter = "[sonuc] like '*" & sonucara & "*' And [sucu] like '*" & sucuara & "*' And [uyrugu]='Türkiye' and [tarih] Between [Forms]![frm_liste]![ilkt] And [Forms]![frm_liste]![sont]"
Me.FilterOn = True
Me.Refresh
şeklinde revize ederseniz tarih kriterlerinize göre de filtreleme yapabilirsiniz.
Sayın @atoykan
dediklerinizi aynen yaptım ama bonuç değişmedi. Söylediklerinize göre revize edilmiş halini tekrar paylaşıyorum. Ben mi bir yerde yanlış yapıyorum anlamadım. Rica etsem bir bakabilir misiniz?
RE: Sürekli Formda Filtreleme - atoykan - 11/07/2023
Ekli örneği inceleyin.
RE: Sürekli Formda Filtreleme - _GAS_ - 11/07/2023
(11/07/2023, 11:29)atoykan yazdı: Ekli örneği inceleyin.
Sayın @atoykan
Verdiğiniz örnekte tarih aralığını girme zorunluluğu var ve tarih girmeden sadece diğer kriterlere göre süzme yapmıyor sanırım. Ama son tarihi güncel tarih seçtiğimde istediğim verileri elde ediyorum. Bu şekilde sorunum çözüldü. Yardımlarınız için çok teşekkür ederim. Hayırlı günler dilerim.
RE: Sürekli Formda Filtreleme - atoykan - 12/07/2023
Bir iff kontrolü ile tarih yoksa hepsini göster dersiniz
RE: Sürekli Formda Filtreleme - _GAS_ - 14/07/2023
Teşekkür ederim Sayın@atoykan