Trouble with macro within a subform

[MLangendorf]

Anyone that can help,



I have a macro within a form that performs a calculation and then populates a separate field with the answer. It works fine in the form but a virtually identical macro will not perform and populate within a subform on that same form. Below is my macro (very simple) and the error message that I am getting.

[RuralGuy]

As SubForms are *not* listed in the Forms collection, perhaps this link will help: http://access.mvps.org/access/forms/frm0031.htm

[MLangendorf]

Unfortunately this did not help me out much. I tried to use the information but it didn't work.
I am not experienced in writing code. I can put together a macro that will usually get the job done but trying to figure out how to develop the expression to do the calculation within the macro tool itself is proving difficult for me. I'm sure it has something to do with the Parent and Child form issue.

[RuralGuy]

What is the name of the MainForm?

[RuralGuy]

This macro is running on the Form [Frm_Clinical Data] right? If that's true then it is not necessary to use the Forms collection.
Here's the code that would do the calculation:
Me.BMI = Round((Me.Weight*703)/(Me.Height^2),1)

[MLangendorf]

let me try to explain this. First, use my screen shots above for reference.
The right hand side of the screen is my subform affectionately named Subfrm_ClinicalFUData
This is where I am trying to run a macro that is living behind the scenes of the Weight field. So, when I enter a new weight it is suppose to look at the Height (which, even though it shows on the subform it is actually a field on the main form (which, to answer your question is named Frm_Clinical Data).
In other words, it is trying to usedata from two different forms (or a parent form and a child form (subform)) to calculate the BMI field.

Now, on the left hand side of the screen shot, this is my main form. This calculation is made on that form as well and works perfectly fine.

I will try your code and see what happens.

thanks again for trying to help me sort this out.

[MLangendorf]

This is what mine looks like but it doesn't seem quite right to me.
So, I am entering the weight into a field on the subform, the Height that is being used is a field on the main form, and the outcome field (BMI) is on the subform

Private Sub Weight_AfterUpdate()
End Sub
Private Sub Weight_Click()
Me.BMI = Round((Me.Weight * 703) / (Me.Height ^ 2), 1)
End Sub

[MLangendorf]

I think that I may have resolved it. Give me a few and I will reply again with my findings.

[RuralGuy]

The code I posted will not work if it is using values from both a MainForm and a SubForm.

[MLangendorf]

After looking at the code, I realized something didn't look quite right.
This is what was there when I first tried to do the Code Builder
Private Sub Weight_AfterUpdate()
End Sub
Private Sub Weight_Click()
Me.BMI = Round((Me.Weight * 703) / (Me.Height ^ 2), 1)
End Sub

Then I went back in and backed some stuff out and ended with this: which then worked perfectly.
Private Sub Weight_Afterupdate()
Me.BMI = Round((Me.Weight * 703) / (Me.Height ^ 2), 1)

Thanks so much for your guidance RG
End Sub

[RuralGuy]

Outstanding! Thanks for posting back with your success and solution.
Have you used the Thread Tools at the top of the Thread to mark this thread as Solved?

[MLangendorf]

Yes sir!
Just did it.

[RuralGuy]

Thank you for your cooperation.