Private Sub alacak_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
tborc = Dsum ("[borc]", "Tablo1", "[ünvani]= [ünvani1]")
talacak = Dsum ("[alacak]", "Tablo1", "[ünvani]= [ünvani1]")
tbakiye = tborc - talacak
Recalc
End Sub

kodu aşağıdaki ile değiştirerek dene.