Sub AdisyonHesapla()

Me.ADTOP = IIf(IsNumeric(adisyon1.Form!toplam), adisyon1.Form!toplam, 0)

Me.HESTOP = Me.KONTOP + Me.ADTOP

Me.ODTUTARI = Me.HESTOP - Me.onodeme - Me.ıskonto

Me.KAL = Me.ODTUTARI - Me.Nakitodeme - Me.Kredikartiodeme

şeklinde kod ekleyip, hesaplama için veri girişi yapılan denetimlerin güncelleştirme sonrasında olaylarına

Call AdisyonHesapla

yazarak hesaplama yaptırabilirsiniz.