Form-text field updates to show Balance

[sjvandevoorde]

I need some help with a couple forms/test fields. Bare with me I have been out of the field for some time and only consider myself an intermediate user.

The first one is a subfrom which lists records including Decrease and
Increase field. I have two text fields which are suppose to total each of these fields.
This subform is within another form which should be displaying the current balance.

The subform text feilds are:
Decrease - (I have a text field = Sum([Increase]) which is suppose to total that field.
Increase - (I have a text field =Sum([Decrease]) which is suppose to total that field.

On the main form I have the following text fields:
=[Action Subform]!Decrease (text65)
=[Action Subform]!Increase (text63)
=([Text63]-[Text65]) = which is suppose to show the balance.

I thought I had these working properly at one time, but put it aside for awhile and now I don't know what happened or what I may have done to mess it up.

I have on the main form:
EVENT procedures.....

Private Sub Text63_AfterUpdate()
Me.Recalc
Me.Repaint
End Sub
_________

Private Sub Text65_AfterUpdate()
Me.Recalc
Me.Repaint
End Sub
__________________
Private Sub Text69_AfterUpdate()
Me.Recalc
Me.Repaint
End Sub

What I need these to do is update after each entry in the subform to show the correct balance on the main form. What it is doing now is it only shows the amount entered in the record on the subform. As soon as I tab to the next field it shows that amount and does not do the calculations or update to show the correct balance.

Can anyone help me with this?

Thanks.

Sandra

[MMcCarthy]

On the main form I have the following text fields:
=[Action Subform]!Decrease (text65)
=[Action Subform]!Increase (text63)
=([Text63]-[Text65]) = which is suppose to show the balance.

These should be in the control source of the text fields

=[Action Subform].Form!Decrease
=[Action Subform].Form!Increase
=[Text63]-[Text65])