k ve j alanlarındaki toplama formüllerini silin.
aşağıdaki kodu raporunuzun kod sayfasına yapıştırın. Mevcut olanla bunu değiştirin.
Yazıcıdan çıktı alırken toplayacaktır.
Kolay Gelsin.

Option Compare Database

Public ii, ff As Integer

private Sub Ayrıntı_Paint()

 

End Sub



Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

ii = ii + Val(Me.f)

ff = ff + Val(Me.g)

Me.k = ff

Me.j = ii

End Sub



Private Sub Report_Open(Cancel As Integer)

DoCmd.Maximize

End Sub