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.

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ı.

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 & "*""")

(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ı.