Skip to main content

AccessTr.neT


Sürekli Formda Filtreleme

Sürekli Formda Filtreleme

Çözüldü #1
Ö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?
.rar örnek (2).rar (Dosya Boyutu: 133,58 KB | İndirme Sayısı: 5)
Son Düzenleme: 13/06/2023, 13:41, Düzenleyen: _GAS_.
Cevapla
#2
Yardımcı olacak kimse yok mu?
Cevapla
#3
Merhaba Sayın @_GAS_

Örneğinizi indirip inceleme şansım olmadı ama sorguda tarih kriteri için # kullanıyor musunuz?
Cevapla
#4
(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.
Son Düzenleme: 22/06/2023, 16:15, Düzenleyen: _GAS_.
Cevapla
#5
Sayın @atoykan

Forumdaki örneklere göre yapmaya çalıştım ancak yine olmadı.
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da