Sürekli Formda Filtreleme

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?

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?

Ekli örneği inceleyin.

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

Bir iff kontrolü ile tarih yoksa hepsini göster dersiniz

Teşekkür ederim Sayın@atoykan