03-04-2014, 15:38
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,
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...
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
- Public Function ToplamKayit(TabloAdi)
- Dim rs As DAO.Recordset
- Dim db As DAO.Database
- Dim strSQL As String
-
- Set db = CurrentDb
-
- strSQL = "SELECT COUNT(*) FROM " & TabloAdi
-
- Set rs = db.OpenRecordset(strSQL)
-
- ToplamKayit= rs.Fields(0)
-
- 'Bağlantıyı kesiyoruz, değişkenleri Sıfırlıyoruz
- rs.Close
- Set rs = Nothing
- Set db = Nothing
- 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...