Sum in Continious Form Footer Delayed Update

[Guest]

I have a textbox field Units that is displayed along with a description. I
have a unbound textbox in the footer with a control source of =Sum([Units]).
The sum is calculated correctly however it will only update when moving
between records in the continuous form. I tried to use a DoCmd.Save on in the
AfterUpdate subroutine with no change in behavior. How can I make the total
units textbox update after an individual unit textbox has updated? Thank you.

 

[Marshall Barton]

I have a textbox field Units that is displayed along with a description. I
have a unbound textbox in the footer with a control source of =Sum([Units]).
The sum is calculated correctly however it will only update when moving
between records in the continuous form. I tried to use a DoCmd.Save on in the
AfterUpdate subroutine with no change in behavior. How can I make the total
units textbox update after an individual unit textbox has updated? Thank you.

You can requery the form to both save the record and
recalculate the aggregate functions. Since the form's
dataset is being changed, the first record will become the
current record so you will have to find the record you were
working in before:

Dim lngPK As Long 'type of primary key field
lngPK = Me.PK 'PK is name of primary key field
Me.Requery
With Me.recordsetClone
.FindFirst "PK = " & lngPK
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With