Aşağıdaki kodu deneyiniz...
Kod:
Private Sub Secilen_Ay_AfterUpdate()
Dim Bas As Long, Bit As Long
Bas = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2), 4)
If [Secilen_Ay].[Column](2) = 12 Then
Bit = DateSerial([Secilen_Ay].[Column](1), 1, 3)
Else
Bit = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2) + 1, 3)
End If
Me.BasTarih = Bas
Me.BitTarih = Bit
Me.KayitSayisi = DCount("*", "Ana", "Tarih Between " & Bas & " And " & Bit & " And Sonuc=-1")
End Sub