Fark adında bir text box ekledim ve alttaki kodları yazdım.
Kod:
Option Compare Database
Option Explicit
Dim OncekiDeger
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
If IsNull(OncekiDeger) Or IsEmpty(OncekiDeger) Or OncekiDeger = 0 Then
Me.FARK = 0
Else
Me.FARK = Me.EA1 - OncekiDeger
End If
OncekiDeger = Me.EA1
End Sub
tüm günü detaylı olarak görebileceğiniz bir örnek ekledim ve 3 farklı şeklini yaptım.
Ayrıca sorguda kod ile de çözülebilirdi ancak fırsatım olmadı ve
bunlar yeterli sanırım.