DAO SayME() : İstenilen Yerdeki Kayıt Sayısını Bulmak

Mehmet Eser · 03-05-2012, 21:42

SayME: Beni say anlamında bir terimdir VBA'da

Örnek kullanım:
SayME("Kisiler") : Kisiler Tablsunun kayıt sayısını verir.
SayME("Select * Form Kisiler Where Ad='Mehmet'") : Adı Mehmet olan verisetinin sayısını verir.
SayME(yordam) : İlgili yodam sonucu seçilen kayıt sayısını verir.

Visual Basic
Function SayME(strSQL As String) As Long
 
'ME: AVTdeki istediğiniz tabloların kayıt sayısını döndüren fonksiyondur.
'03.05.2012 21:35
'Mehmet Eser : eserbilisim.name.tr   -   access-sql.com
'AVT: Access Veri Tabanı
'strSQL yerine tablo adı, yordam veya SQL cümlesi yazabilirsiniz. 
'Fakat bu içerik verileri seçmeye yarayan bir şey olmalıdır.
 
Dim AVT As DAO.Database
Dim veriseti As DAO.Recordset
 
On Error GoTo ErrorHandler
 
   Set AVT = CurrentDb
 
   Set veriseti = AVT.OpenRecordset(strSQL)
 
   If veriseti.EOF Then
      SayME = 0
   Else
      veriseti.MoveLast
      SayME = veriseti.RecordCount
      MsgBox SayME , vbOKCancel
   End If
 
   veriseti.Close
   AVT.Close
 
   Set veriseti = Nothing
   Set AVT = Nothing
 
Exit Function
 
ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Function

MirzaKatar · 03-05-2012, 22:15

Mehmet Bey değerli paylaşımınız için teşekkür ederim.

Taruz · 04-05-2012, 00:14

Merhaba..

Düşünce çok güzel.. Azminize hayranım ayrıca.. Bir olayın tüm sonuçlarını görmek için ipin ucunu tutmanız yeterli.. Gerisini çekip getiriyorsunuz..

Fonksiyonunuzla ilgili bir kaç öneride bulunayım.. İç parametrede kayıt kaynağı veya sorgu kullanmak işi pratikleştiriyor fakat kriter eklediğimizde Dcount fonksiyonu bi kıt daha öne geçiyor.. Durumu eşitlemek hatta öne geçmek için fonksiyon parametrelerine seçenekli (Optional) kriter koymanızı öneririm..:

Visual Basic
Function SayME(KayitKaynagi As String, Optional alan As String, _
                    Optional kriter As String) As Long
 
'ME: AVTdeki istediğiniz tabloların kayıt sayısını döndüren fonksiyondur.
'03.05.2012 21:35
'Mehmet Eser : eserbilisim.name.tr   -   access-sql.com
'AVT: Access Veri Tabanı
'strSQL yerine tablo adı, yordam veya SQL cümlesi yazabilirsiniz.
'Fakat bu içerik verileri seçmeye yarayan bir şey olmalıdır.
 
Dim AVT As DAO.Database
Dim veriseti As DAO.Recordset
 
On Error GoTo ErrorHandler
If Nz(alan, "") <> "" Then 'Kriterli..
 strSQL = "select count(""*"") from " & KayitKaynagi & _
            " where cstr(" & alan & ")= " & "'" & CStr(kriter) & "'"
 Else 'Kritersiz.
 strSQL = "select count(""*"") from " & KayitKaynagi & ""
 End If
 
   Set AVT = CurrentDb
 
   Set veriseti = AVT.OpenRecordset(strSQL)
 
      SayME = veriseti(0)
      MsgBox SayME
 
   veriseti.Close
   AVT.Close
 
   Set veriseti = Nothing
   Set AVT = Nothing
 
Exit Function
 
ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Function

Kriter sayısını çoğaltabilirsiniz de..

Kullanımı..:

Visual Basic
'Kriterli
Call SayME("tablo/sorgu", "alan", "kriter")
 
'Kritersiz
Call SayME("tablo/sorgu")

Mehmet Eser · 04-05-2012, 01:23

Selamlar, katılımınız ayrıca memnun etti.

SayME = veriseti(0) idadesinin anlamı nedir?

Siz Dcount ile yarıştırıp öne de geçirmişsiniz sağolun. Kodun bitiminde neden geliştiriciler bunu kullansın ki dedim bir SQL cümlesi varken? Cevap: Bu işlev modülde olacağından her seferinde Dcount ya da SQL içinde count kullanmak(sırf bu iş için) zahmetinden kurtaracak. Bir de diğer nesnelerin kayıt kaynağı olan SQL cümleleri hazır oalrak gönderilecek formdan, rapordan ... Fonksiyona kriter ve de alanı ekleyince aslında işlevini daraltıyoruz farkında olmadan. İstenilen türden yapı VBA içinde ya da başka yerde zaten kodlandıktan sonra başka amaçlar için bu fonksiyona gönderilsin diye düşündüm.

Böylelikle alan ve kriter sayıları değişse bile esnek yapı sürekli çalışır halde olacaktı. Kritersiz olup iki alana göre saydırma vb birçok kombinasyon bu sayede mümkün görünüyor. Sorgu adı da yazabiliyoruz zaten mesaja yazmayı unutmuşum.

Sizin düzenlemeniz haliyle Dcount'un papucunu dama attı. Farklı bir bakış ve tarz. Gzüel çözüm. Zaten amaca göre uyarlanırsa kapılar aralanıyor iyice.

Zaten varolan bir tekniği DAO ile eklememin amacı DAO'nun VBA ile çok hızlı çalışmasıdır. Ayrıca her adımda kontrol edebilmesi her şeyi işit atlandırıyor. SQL gibi yerlerde kafamıza yatmayan ne varsa yenisini DAO ile tasarlayabiliyoruz. Belki ondan daha hızlı çalışıyordur. Okunabilirlik açısından da ayrı bir kolaylılığı var ve bir kere yazdıktan sonra her yerde kullanılıyor ve de tüm çağrıları birden değiştiriyor. Yoksa SQL ile yapsak zamanı gelince tüm kdoları arayıp düzeltmeke gerekecek. İleriyi düşünürsek merkezi bir yönetim ipleri elimize veriyor.

SQL kolay gibi görünen zor, DAO zor gibi görünen kolay. Zamanında ADO ile baştan sona bağlantılar oluşturup kayıtları işlerken(ASP dönemi) onu unutup DAO'yla keyf yapacağım aklımın ucundan geçmezdi.

Access şehirse DAO hayattır!

furkan_68200 · 04-05-2012, 17:55

Sayın Mehmet Eser;
Paylaşımınız için teşekkürler..

Taruz · 04-05-2012, 23:19

Alıntı: SayME = veriseti(0) idadesinin anlamı nedir?

Merhaba..

Modülün oluşturduğu sorgu count kullandığımız için tek satır ve tek alan veri döndürür..
veriseti oluşan sorguyu, (0) ise bu ilk alanı ifade eder.. Birden fazla alan olsaydı ve oradaki verileri kullanmak isteseydik 1,2,3.. diye devam edecekti..

Bunu açılan kutu ve liste kutuarı için kullandığımız Column(n) yapısı gibi düşünebilirsiniz..

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL