Skip to main content

AccessTr.neT


Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi

M_Kemal_Askeri
M_Kemal_Askeri
3
132

Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form Üzerinde Gösterilmesi

#1
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.
.rar Ornek.rar (Dosya Boyutu: 666,31 KB | İndirme Sayısı: 6)
NE MUTLU TÜRK'ÜM DİYENE
Cevapla
#2
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

Cevapla
#3
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 & "*""")
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Son Düzenleme: 14/05/2024, 23:00, Düzenleyen: onur_can.
Cevapla
#4
(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ı.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da