Formda tarih kayıtlarını sayma
Tarih
02/04/2009 16:25
Konu Sahibi
serjando
Yorumlar
5
Okunma
1790
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
serjando
Üye
Kullanici Avatari
Üye
S.... I....
16
5
06/01/2009
0
Artvin
Ofis 2007
28/09/2015,16:18
Çözüldü 
İ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...


Ek Dosyalar
.rar   veritabaniv2.rar (Dosya Boyutu: 27,38 KB / İndirme Sayısı: 16)
Cevapla

serjando
Üye
Kullanici Avatari
Üye
S.... I....
16
5
06/01/2009
0
Artvin
Ofis 2007
28/09/2015,16:18
Çözüldü 
Sponsor Reklam
bir kısmını daha düzelttim son noktayı koymak için yardım edebilirmisiniz arkadaşlar
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
28/05/2017,22:33
Çözüldü 
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.



Ek Dosyalar
.rar   Veritabani2003_Seruz.rar (Dosya Boyutu: 18,92 KB / İndirme Sayısı: 47)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

serjando
Üye
Kullanici Avatari
Üye
S.... I....
16
5
06/01/2009
0
Artvin
Ofis 2007
28/09/2015,16:18
Çözüldü 
Sponsor Reklam
Çok teşekkür ederim... Sizin sayenizde öğreneceğiz... emeğine sağlık...
Cevapla

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
22/03/2017,13:18
Çözüldü 
Teşekkürler.
Cevapla

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
22/03/2017,13:18
Çözüldü 
Sponsor Reklam
Teşekkürler, Seruz hocam...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Access Formda Veri Çoğaltma cagatay1234 6 143 27/05/2017, 15:36 cagatay1234
  Formda Açılan Websayfasının Sesini Kapatmak ALTANs 7 182 27/05/2017, 00:49 ozanakkaya
Sad İki Tarih Arası Sorgu Problemi AloneX 13 268 26/05/2017, 11:14 ozanakkaya
  Formda Koşullu Toplama cagatay1234 8 215 24/05/2017, 10:02 cagatay1234
  Faklı Değerleri Sayma Hk. serkan1985 3 97 17/05/2017, 14:06 serkan1985


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status