Skip to main content

AccessTr.neT


Sürekli Formda Filtreleme

Sürekli Formda Filtreleme

#7
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?
Son Düzenleme: 07/07/2023, 16:00, Düzenleyen: _GAS_.
Cevapla
#8
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?
Cevapla
#9
Ekli örneği inceleyin.
.rar örnek_editedatoykan.rar (Dosya Boyutu: 126,68 KB | İndirme Sayısı: 6)
Cevapla
#10
(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.
Cevapla
#11
Bir iff kontrolü ile tarih yoksa hepsini göster dersiniz
Cevapla
#12
Teşekkür ederim Sayın@atoykan
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task