Öncelikle Hayırlı günler. Kendi çabalarım ile forumun değerli yönetici ve üyelerinin örneklerine bakarak bir şeyler öğrenmeye ve yapmaya çalışıyorum. Benim yapmak istediğim sürekli formda verilerin Birleşik Giriş kutusu, Metin Kutusu, Seçenek Grubu ve Tarih Aralığı ile aynı anda birlikte filtreleme yapabilmek. Forumda bulunan örneklerden yararlanarak örneğimde Birleşik Giriş kutusu, Metin Kutusu ve Seçenek Grubu ile birlikte filtreleme yapıyorum ancak tarih aralığını dahil edemedim. İstediklerimi liste kutusunda mı yapmalıyım. Sorun sürekli formda yapmak istememden mi kaynaklanıyor? Bu konuda yardımcı olabilir misiniz?
Yardımcı olacak kimse yok mu?
Merhaba Sayın @
_GAS_
Örneğinizi indirip inceleme şansım olmadı ama sorguda tarih kriteri için # kullanıyor musunuz?
(20/06/2023, 22:20)atoykan yazdı: [ -> ]Merhaba Sayın @_GAS_
Örneğinizi indirip inceleme şansım olmadı ama sorguda tarih kriteri için # kullanıyor musunuz?
Merhaba Sayın @
atoykan
Hayır kullanmadım forumda örneklere bakıp deneyeceğim. Teşekkür ederim.
Sayın @
atoykan
Forumdaki örneklere göre yapmaya çalıştım ancak yine olmadı.
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.