Guardar en tiempo real en access

Vi tu código para guardar datos calculados en access, y me funciono de maravilla, el problema, que cuando meto la formula en el cuadro independiente no me refleja el dato al instante y cuando se guarda tarda mucho para actualizarse.

No se que se deberá. Este el código que utilice basándome a tu ejemplo:

Private Sub bm__cuatrimestral_AfterUpdate()
Dim vmonto_total_cuatri_sep_dic_2014 As Double
vmonto_total_cuatri_sep_dic_2014 = Nz(Me.txtmonto_total_cuatri_sep_dic_2014.Value, 0)
Me.monto_total_cuatri_sep_dic_2014.Value = vmonto_total_cuatri_sep_dic_2014
End Sub

y en el segundo campo:

Private Sub bc_monto_total_AfterUpdate()
Call bm__cuatrimestral_AfterUpdate
End Sub