A.S.C Filtre, Grafik ve Raporlama Eklentisi

Toplam Kayıt Sayısı Fonksiyonu (ToplamKayit)
#1
Arkadaşlar Merhaba
Yapmış olduğunuz projenin herhangi bir yerinde herhangi bir tablonuzun veya sorgunuzun toplam kayıt sayısını bulmak için bir fonksiyon ekliyorum. Bu fonksiyonu yeni bir modül içerisine kopyalayın,

Visual Basic
  1. Public Function ToplamKayit(TabloAdi)
  2. Dim rs As DAO.Recordset
  3. Dim db As DAO.Database
  4. Dim strSQL As String
  5.  
  6. Set db = CurrentDb
  7.  
  8. strSQL = "SELECT COUNT(*) FROM " & TabloAdi
  9.  
  10. Set rs = db.OpenRecordset(strSQL)
  11.  
  12. ToplamKayit= rs.Fields(0)
  13.  
  14. 'Bağlantıyı kesiyoruz, değişkenleri Sıfırlıyoruz
  15. rs.Close
  16. Set rs = Nothing
  17. Set db = Nothing
  18. End Function



Kullanımı:

Metin Kutusunda
=ToplamKayit("TabloVeyaSorguİsmi")

VBA'da
Dim KayitSay As Integer
KayitSay=ToplamKayit("TabloVeyaSorguİsmi")

Sorguda
Herhangi Boş bir sütuna
KayıtToplamı:ToplamKayit("TabloVeyaSorguİsmi")

Faydalı olması dileğiyle...





  Alıntı
Bu mesajı beğenenler:
#2
üstadım elinize sağlık teşekkürler



  Alıntı
Bu mesajı beğenenler:
#3
sayın onur_can
form üzerindeki liste kutusundaki kayıtlara filtre uyguladıktan sonra liste kutusundaki kayıt sayısını nasıl hesaplatabiliriz.



  Alıntı
Bu mesajı beğenenler:
#4
Kayıt sayısını barındıran Metin Kutusunu sorgulayarak,
Mesela Kayıt Sayısını Alan Kutunun Adı KayıtSayısı olsun, siz filtre uyguladığınızda o olayın içerisine KayıtSayısı.Requery komutunu yazın yeter.



  Alıntı
Bu mesajı beğenenler:
#5
(06-04-2014, 18:36)onur_can demiş ki: Kayıt sayısını barındıran Metin Kutusunu sorgulayarak,
Mesela Kayıt Sayısını Alan Kutunun Adı KayıtSayısı olsun, siz filtre uyguladığınızda o olayın içerisine KayıtSayısı.Requery komutunu yazın yeter.

hocam sanırım beceremedim Taruz hocanın filtreleme8 örneğine uygulaya bilirmisiniz size zahmet


Eklenti Dosyaları
.rar   Fitreleme8.rar (Boyut: 18,49 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#6
sn YILMAZZZ,
örnekte liste kutusundaki öğeler sayılacağından fonksiyonu kullanamnıza gerek yok, Liste Kutusunun ListCount özelliğinden faydalanarak sorun çözülür, burada ayrıca kayıt sayısı alanını tekrar sorgulamanıza da gerek yok.
dosya ekte..


Eklenti Dosyaları
.rar   Fitreleme8_KAYITSAY.rar (Boyut: 23,52 KB / İndirilme: 32)



  Alıntı
Bu mesajı beğenenler:


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi