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.
Veritabani2003_Seruz.rar
(Dosya Boyutu: 18,92 KB | İndirme Sayısı: 48)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs