Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/04/2009 16:25
Konu Sahibi
serjando
Yorumlar
5
Okunma
2065
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

serjando

Üye
Üye
SE.... IŞ....
 39
 16
 5
 06/01/2009
0
 Artvin
 
 Ofis 2007
 31/07/2018,15:42
Çö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)

Kullanici Avatari

serjando

Üye
Üye
SE.... IŞ....
 39
 16
 5
 06/01/2009
0
 Artvin
 
 Ofis 2007
 31/07/2018,15:42
Çözüldü 
bir kısmını daha düzelttim son noktayı koymak için yardım edebilirmisiniz arkadaşlar



Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çö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

Kullanici Avatari

serjando

Üye
Üye
SE.... IŞ....
 39
 16
 5
 06/01/2009
0
 Artvin
 
 Ofis 2007
 31/07/2018,15:42
Çözüldü 
Çok teşekkür ederim... Sizin sayenizde öğreneceğiz... emeğine sağlık...



Kullanici Avatari

assenucler

Aktif Üye
Aktif Üye*
A..... SE.... ŞE....
 2.056
 125
 31/10/2008
63
 İstanbul
 
 -
 13/08/2018,19:49
Çözüldü 
Teşekkürler.



Kullanici Avatari

assenucler

Aktif Üye
Aktif Üye*
A..... SE.... ŞE....
 2.056
 125
 31/10/2008
63
 İstanbul
 
 -
 13/08/2018,19:49
Çözüldü 
Teşekkürler, Seruz hocam...




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Alt Formda Seçilen Kategoriye Göre O Kategoride Bulunan Ürünlerin Süzülmesi 001hacker 2 61 20/09/2018, 23:07
Son Yorum: 001hacker
Çözüldü Tarih Filtreli Toplama İslemi notrino 4 113 07/09/2018, 08:06
Son Yorum: notrino
Çözüldü Alt Formda Yeni Kayıt Açma notrino 1 115 23/08/2018, 09:46
Son Yorum: notrino
Çözüldü Sürekli Formda Seçili Satırın Renk Değiştirmesi ielmacilar 4 115 19/08/2018, 13:22
Son Yorum: ielmacilar
Çözüldü Tarih Ve Saati Birlikte Yazma kübrashn 2 95 14/08/2018, 15:49
Son Yorum: kübrashn

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.