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.
NE MUTLU TÜRK'ÜM DİYENE