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 yarayabilirama nöbet formunda altbilgi kısmına ekleyeceğiniz bir metin kutusunun denetim kaynağı: "=Topla([Toplam])" da yazabilirsiniz (çift tırnak olmadan)