update textbox with total

[Alex]

I'm using
Me.txtTextBox1.ControlSource = "Staff"
Me.txtTotal.Requery
Me.txtTotal.Value = DSum("Staff", "Table1")

to calculate total for txtTextBox1 on a continuious form.

When data is changed in txtTextBox1 I'm trying to use the
following:
Private Sub txtTotal_AfterUpdate()
Dim intDoEvents

Me.txtTotal.Requery
Me.txtTotal.Value = DSum("Staff", Table1)
intDoEvents = DoEvents
Me.Repaint

End Sub
But, it doesn't update the txtTotal on the Form.

Could you please advise how could I update this value in
associated Table1 and the txtTotal with the changing in
txtTextBox1 on the Form. I think, I can use DAO,
recordset, edit, and update. But, may be there is some
simpler way of doing this.

Thanks

Thanks

 

[Alex]

I didn't mention that when I close the form and open it
again txtTotal appeares updated. But, without closing and
opening the Form it's not updated.

 

[John Vinson]

When data is changed in txtTextBox1 I'm trying to use the
following:
Private Sub txtTotal_AfterUpdate()
Dim intDoEvents

Me.txtTotal.Requery
Me.txtTotal.Value = DSum("Staff", Table1)
intDoEvents = DoEvents
Me.Repaint

End Sub
But, it doesn't update the txtTotal on the Form.

Instead of Me.txtTotal.ReQuery do a Me.Recalc.