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