AccessTr.neT
Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi (/konu-formda-kriterlere-gore-sorgulanan-kayit-miktarinin-form-uzerinde-gosterilmesi.html)

Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi - M_Kemal_Askeri - 12/05/2024

Herkese merhabalar,

Bizleri dünyaya getiren, son nefesine kadar bizi seven koruyan fedakar ve cefakar annelerimizin Anneler Gününü kutlar, sağlıklı huzurlu ve mutlu günler dilerim.

Arkadaşlar bir sorunum var, sitemizden uzun zaman önce aldığım ve uygulamalarımda kullandığım bir kodu (ListBox'lar ile kullanılıyor siteden aldığım hali ile)
Bu kod ben form üzerinde kriterlere uygun kayıtları (mesela Hasan isimli kayıtları veya H harfi ile başlayanları vb.) arattığımda bu kritere uyan kaç tane kayıt olduğunu miktar olarak yazıyor.
Ben bu kodu üzerinde Listbox değil de Altform olan bir forma uygulamak istedim ve Kodun içinde ListBox'ı çıkarıp AltForm adını yazdım. Ama kritere uyan kayıtları değil de sanırım toplam rakamı verdi.

Kodun orijinali;
Sub kayitsayisi()
If Liste.ListCount = 0 Then
kayitsay.Caption = "Kriterinize uygun kayıt bulunamadı.."
Else
kayitsay.Caption = "Kritere uygun toplam " & Liste.ListCount - 1 & " kayıt bulunmuştur.."
End If
End Sub

Benim Altform için kod üzerinde yaptığım değişiklik ile yeni hali;
Sub kayitsayisi()
If Forms![Frm_Site_Tesis_Uye_ve_Ucret_Kayit]![AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu].Form.Count = 0 Then
kayitsay.Caption = "Kriterinize uygun kayıt bulunamadı.."
Else
kayitsay.Caption = "Kritere uygun toplam " & Forms![Frm_Site_Tesis_Uye_ve_Ucret_Kayit]![AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu].Form.Count - 1 & " kayıt bulunmuştur.."
End If
End Sub

Bu kodu örnek olarak eklediğim uygulamamdaki "Frm_Site_Tesis_Uye_ve_Ucret_Kayit" formu üzerinde nasıl uygulayabilirim?
Destekleriniz için teşekkür ederim.

RE: Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi - feraz - 14/05/2024

Merhaba.
Accessten fazla anlamam ama yinede birşey yaptım alttaki gibi deneyiniz.

Sub kayitsayisi()

Dim rs As Recordset

If Forms![Frm_Site_Tesis_Uye_ve_Ucret_Kayit]![AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu].Form.Count = 0 Then

kayitsay.Caption = "Kriterinize uygun kayýt bulunamadý.."

Else



Set rs = Form_AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu.RecordsetClone

kayitsay.Caption = "Kritere uygun toplam " & rs.RecordCount & " kayýt bulunmuþtur.."

End If

End Sub
Hatta galiba en mantıklısı alttaki gibi olmalı.

Kod:
Sub kayitsayisi()
    Dim rs As Recordset
    Set rs = Form_AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu.RecordsetClone
   
    If rs.RecordCount = 0 Then
        kayitsay.Caption = "Kriterinize uygun kayıt bulunamadı.."
    Else
        kayitsay.Caption = "Kritere uygun toplam " & rs.RecordCount & " kayıt bulunmuştur.."
    End If
End Sub


RE: Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi - onur_can - 14/05/2024

Sn feraz'ın çözümüne bende ek olarak tek satırlık şöyle bir çözüm yolu önerebilirim.
Me.kayitsay.Caption = DCount("*", "Tbl_Site_Tesis_Uye_Kayit", "[isim] Like ""*" & Me.Metin5 & "*""")


RE: Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi - feraz - 15/05/2024

(14/05/2024, 22:58)onur_can yazdı: Sn feraz'ın çözümüne bende ek olarak tek satırlık şöyle bir çözüm yolu önerebilirim.
Me.kayitsay.Caption = DCount("*", "Tbl_Site_Tesis_Uye_Kayit", "[isim] Like ""*" & Me.Metin5 & "*""")

Hocam yanılmıyorsam o kodu dosyada görmüştüm bir yerlerde belki ilgili yerde kullanmamış olabilir.Belkide başka formdaydı.