Dim GHesToplam, GOdeme As Integer
GHesToplam = Dsum ("[TUTAR]", "tbl_MUSTERI_CARI_ALT", "[MUSID]=" & [MUSID])
GOdeme = Forms![F_GIRIS]![MUSTERI_CARI]![mtn_ODEMETOP]
Forms![F_GIRIS]![MUSTERI_CARI]!mtn_TOPLAM = GHesToplam
Forms![F_GIRIS]![MUSTERI_CARI]![mtn_KALAN] = GHesToplam - GOdeme
frm_MUSTERI_CARI_ALT isimli formun güncelleştirme sonrasında olayındaki kodun tamamını aşağıdaki ile değiştir. Alt forma yeni kayıt eklediğinde hesaplamayı yapar.