Puletin'in eklediği kodlarda sadece Ctl50'de problem var, toplam end sub'un altına yazılmış, muhtemelen bunu düzeltmişsinizdir. Birde aşağıdaki kodu deneyin, fonksiyona recalc kodu ekledim.

Function Toplam()

Me.Toplam_nakit = Me.[5 Toplam] + Me.[10 Toplam] + Me.[20 Toplam] + Me.[50 Toplam] + Me.[100 Toplam] + Me.[200 Toplam]

Recalc

End Function



Private Sub Ctl5_tl_AfterUpdate()

Me.[5 Toplam] = Nz([5 tl], 0) * 5

Toplam

End Sub





Private Sub Ctl10_tl_AfterUpdate()

Me.[10 Toplam] = Nz([10 tl], 0) * 10

Toplam

End Sub





Private Sub Ctl20_tl_AfterUpdate()

Me.[20 Toplam] = Nz([20 tl], 0) * 20

Toplam

End Sub



Private Sub Ctl50_tl_AfterUpdate()

Me.[50 Toplam] = Nz([50 tl], 0) * 50

Toplam

End Sub





Private Sub Ctl100_tl_AfterUpdate()

Me.[100 Toplam] = Nz([100 tl], 0) * 100

Toplam

End Sub



Private Sub Ctl200_tl_AfterUpdate()

Me.[200 Toplam] = Nz([200 tl], 0) * 200

Toplam

End Sub



Private Sub Form_AfterInsert()

MsgBox ("deneme")

End Sub