Kod:
nsAY: DCount("Kimlik";"TblNobet";"G1 = '" & "N" & "' AND [donem]=#" & Format([Forms]![FrmNobet]![Dtdonem];"mm/dd/yyyy") & "#")
Sorguda TblNobet tablosunda bulunan G1 deki N metinlerini formdaki tarihe göre saydırabiliyorum.
Peki tablomdaki G1-G31 aralığındaki (G1 ve G31 dahil) "N" metinlerini nasıl saydırabilirim.
döngüyle yapabilirsiniz?
for x=1 to 31
nsAY=nsAY+ DCount("Kimlik";"TblNobet";"G" & x & " = 'N' AND [donem]=#" & Format([Forms]![FrmNobet]![Dtdonem];"mm/dd/yyyy") & "#")
next x
yada
DCount("Kimlik";"TblNobet";"(G1 = 'N' or G2='N' or G3='N'.......... )AND [donem]=#" & Format([Forms]![FrmNobet]![Dtdonem];"mm/dd/yyyy") & "#")
denemedim sadece tahmini
Burada tarih formatlama doğru mu sizce? yani formda OCAK 2021 olan değer tabloya 01.01.2021 olarak gidiyor.
ben aşağıdaki gibi kullandım sorun çıkmadı ama açıklamanız yetersiz bu hesaplama nerde olacak?
aşağıdaki kod bir butona basınca ekrana yazdırmakta işe yarar ama siz bu işlem nerde yapılacak sonucunu nereye yazılacak belirtmezseniz bu kod işe yaramaz.
nsAY = DCount("Kimlik", "TblNobet", "G1 = 'N' AND format([donem],'mmmm yyyy')='" & [DtDonem] & "'")
Sayın hocam formun yüklendiği, geçerli olduğu ve formdaki dtdonem açılır kutusunun güncelleştirme sonrasında kullanacağım.
nSay = 0
For x = 1 To 31
nSay = nSay + DCount("Kimlik", "TblNobet", "G" & x & " = 'N' AND format([donem],'mmmm yyyy')='" & [DtDonem] & "'")
Next x
bu kod işinize yarayabilir
ama nöbet formunda altbilgi kısmına ekleyeceğiniz bir metin kutusunun denetim kaynağı: "=Topla([Toplam])" da yazabilirsiniz (çift tırnak olmadan)