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.) aradığımda kaç tane bu kritere uyan 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 kod üzerinde yaptığım değişikllik 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.

Private Sub Liste19_AfterUpdate() da Call kayitsayisi eklemelisiniz.