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] & "'")