Kod:
Private Sub Alan3_AfterUpdate()
hesapla
End Sub
Private Sub Alan4_AfterUpdate()
hesapla
End Sub
Private Sub Alan5_AfterUpdate()
hesapla
End Sub
Function hesapla()
Me.Alan2 = Nz(Me.Alan4 + Me.Alan5)
Me.Alan1 = Nz(Me.Alan2 + Me.Alan3)
End Function