Kodları incelediyseniz sebebi gözünüzün önünde duruyor
Kod:
Dim a, b, c As String
a = DCount("*", "TBL_GDATA")
b = DCount("DONEM", "TBL_GDATA")
c = DCount("ID", "TBL_GDATA")
If a > 0 Then Check32 = -1
If a = b Then Check36 = -1
If a = c Then Check38 = -1
2. satır: b değişkenine DÖNEM alanındaki kayıt sayısı atandı
3. satır: c değişkenine ID alanındaki kayıt sayısı atandı
4. satır: Eğer a sıfırdan büyükse onay32 işaretlensin
5. satır: Eğer a=b ise(Buraya dikkat) onay 36 işaretlensin
6. satır: Eğer a=c ise(Buraya da dikkat) onay 38 işaretlensin
Şimdi, hiç kayıt yoksa a = 0
o zaman
b = 0
c = 0
a=b olduğunda göre onay36 işaretlenir
a=c olduğuna göre onay38 de işaretlenir. Gayet normal bir durum değil mi?
İlk kutu kodun başına şart koyulduğu için işaretlenmiyor:
If a > 0 Then Check32 = -1
Aynı şekilde diğer kodların başına da bir if..then ile şart getiriseniz ve "eğer 0 değilse çalış" derseniz kodlar sorunsuz çalışır.