AccessTr.neT

Tam Versiyon: Formda tarih kayıtlarını sayma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
İyi günler arkadaşlar daha önceden verilen örneklerden yaralanarak yapmaya çalıştım BİR KISMINI YAPTIM ama son noktayı koyamadım...

Acaba formdaki 1 den fazla olan tarih kayıtlarını aylara göre guruplandırarak misal mart ayında B grubundan ayrı tarihlerde 5 kayıt girişi yapılmış C grubundan ayrı tarihlerde 8 kayıt yapılmış bu şekilde istatistik... benim yapmaya çalıştığım veritabanı ekte...

Yardımcı olursanız Sevinirim...
bir kısmını daha düzelttim son noktayı koymak için yardım edebilirmisiniz arkadaşlar
Tablo ve alan adlarınızda Boşluk ve Türkçe karakterler kullanmışsınız.
Sizin öncelikli probleminiz tablo ve alan adlarındaki kurallara uymamanız.
Bunu düzeltmek için aşağıdaki konuyu okumalısınız.
Yapılmaması Gereken Ölümcül Hatalar

Tablo ve alan adında boşluk varsa, bunları [] köşeli parantez içine almak zorundasınız.
Yani, bu şekilde olan kod yanlış,
Kod:
Me.KayitSayisi = DCount("*", "AŞAĞI SUNDURA", "HEPATİT 3 Between " & Bas & " And " & Bit)

Bu şekilde olmalı:
Kod:
Me.KayitSayisi = DCount("*", "[AŞAĞI SUNDURA]", "[HEPATİT 3] Between " & Bas & " And " & Bit)
--
Ayrıca şimdi farkettim, bu kodlarda daha önce sanırım ben yardımcı olmuşum. Herhalde gözümden kaçmış yılı artırmak.
Kod:
If [Secilen_Ay].[Column](2) = 12 Then
kontrolünde yılı bir artırmak gerekiyor.
Kod:
Bit = DateSerial([Açılan Kutu38].[Column](1) + 1, 1, 3)
....
Bit = DateSerial([Secilen_Ay].[Column](1) + 1, 1, 3)

Gerekli değişiklikleri yapıp, dosyayı ekledim.
Çok teşekkür ederim... Sizin sayenizde öğreneceğiz... emeğine sağlık...
Teşekkürler.
Teşekkürler, Seruz hocam...