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?
