triggering a value to be passed from a control on a subform to a parent form

[Gerry Abbott]

Hi all,
A subForm control, txtTotalSubForm contains a total from one of the fields
on this subForm . The mainForm contains a combo, myCombo which filters, and
updates the details on the subForm. I want this update to pass the value in
txtTotalSubForm to a control txtMainForm, on the main form. Ive tried using
the parent property, but this is not adequate since I must click onto the
subform to trigger it (on current event of the subform).

The code i tried for the update of the myCombo is as follows

----------------------------------------
Private Sub myCombo_AfterUp date()
Me.Controls("My SubForm").Reque ry
Me.Refresh

Me.myMainFormTx tBox = Me.mySubform.Co ntrols("mySubfo rmTotalControl" )
End Sub

----------------------------------------

I know the last line works, since it works from a button, after i've
updated, but not from the combo box update.
Is there some kind of timing issue that im missing. Its like calling on this
before the data is updated?

Any help/Advice would be most welcome.

Gerry Abbott

[Arno R]

Gerry,
I would try to requery the txtTotalSubForm before your last line.

Arno R

"Gerry Abbott" <pl****@ask.i e> schreef in bericht news:Kj******** ***********@new s.indigo.ie...

Hi all,
A subForm control, txtTotalSubForm contains a total from one of the fields
on this subForm . The mainForm contains a combo, myCombo which filters, and
updates the details on the subForm. I want this update to pass the value in
txtTotalSubForm to a control txtMainForm, on the main form. Ive tried using
the parent property, but this is not adequate since I must click onto the
subform to trigger it (on current event of the subform).

The code i tried for the update of the myCombo is as follows

----------------------------------------
Private Sub myCombo_AfterUp date()
Me.Controls("My SubForm").Reque ry
Me.Refresh

Me.myMainFormTx tBox = Me.mySubform.Co ntrols("mySubfo rmTotalControl" )
End Sub

----------------------------------------

I know the last line works, since it works from a button, after i've
updated, but not from the combo box update.
Is there some kind of timing issue that im missing. Its like calling on this
before the data is updated?

Any help/Advice would be most welcome.

Gerry Abbott

[Gerry Abbott]

Sorry, that does not work for me.

Thanks for the quick reply.
Added the line as advised (see code below). Still no change.
----------------------------------------
Private Sub myCombo_AfterUp date()

Me.Controls("My SubForm").Reque ry
Me.MySubform.co ntrols("txtTota lSubForm")
Me.Refresh

Me.myMainFormTx tBox = Me.mySubform.Co ntrols("mySubfo rmTotalControl" )
End Sub

----------------------------------------

if I remove the requery then it updates the txt box. But it wont run the
filter.
So once the requery and the assignment are in the same module, it wont work.
Could probably get round this with and sql statement, but thought there
would be an easy way.
Im sure that im missing something simple here.
Any more Advice ?

Gerry Abbott

[Arno R]

> Private Sub myCombo_AfterUp date()

Me.Controls("My SubForm").Reque ry
Me.MySubform.co ntrols("txtTota lSubForm")
Me.Refresh

Me.myMainFormTx tBox = Me.mySubform.Co ntrols("mySubfo rmTotalControl" )
End Sub
Gerry,
I don't see the requery in your new code ... Typo?
Should be: Me.MySubform.co ntrols("txtTota lSubForm").Requ ery <<====
However it would not surprise me if it won't work also...
I also recall having these issues sometimes. (Refresh-Repaint-DoEvents, nothing works 'sometimes')
Could probably get round this with and sql statement, but thought there
would be an easy way.

If you can't work it out I would go for the sql-option.
Maybe even in this case I would go for the sql-option right away.
If you rely on a calculated control you never know when Access is ready...

Arno R

[Gerry Abbott]

Yes Arno, Typo in the mail only (unfortunately)
U know it would give me a big error if i left it out in the code.

Private Sub myCombo_AfterUp date()

Me.Controls("My SubForm").Reque ry
Me.MySubform.co ntrols("txtTota lSubForm").Requ ery
Me.Refresh

Me.myMainFormTx tBox = Me.mySubform.Co ntrols("mySubfo rmTotalControl" )
End Sub

Yeah, Ive run into this problem before.
For the moment, until i get a better solution, ive got a big 'calculate'
button on the form.
(Im not that happy with it, but there you go)

I'll get a better solution if i've time left at the end of the project...
(or unless some person much wiser than I, can supply me a magical
solution....... )

Gerry.