Calculate a field in a form

[alscompany]

Hi all, I'm trying to use two values to calculate a field on a form. When I use code below in the AfterUpdate in the fields KPI1 and KPI2

Me.Score = (Me.KPI1.Value + Me.KPI2.Value) / (Me.TouchesTotal.Value * 2)

it doesn't calculate properly, for example when the values above are 5, 5 and 5, I should get 100%, however, I get 5.5, when I use values 4,4 and 5, I should get 80%, but I get 4.4. When I use the above statement with SUM in front, I get SUB or FUNCTION not defined error. I've tried using the control source of the field and that doesn't display anything. Thanks in advance for any help provided.

[Robeen]

Have you tried using the same code in the LostFocus event?

[Robeen]

Sorry - I just tried what you described and realized the error that I was getting.
I got the same results as you.
Then I put a break point in the code and realized that the values in my text boxes were coming out as "5", "5", and "5" - instead of 5, 5, and 5.

I changed my AfterUpdate event to this:

Private Sub Text3_AfterUpdate()
Dim intText1, inText2, inText3 As Integer

intText1 = CInt(Me.Text1.Value)
intText2 = CInt(Me.Text2.Value)
intText3 = CInt(Me.Text3.Value)

Me.Text4 = ((intText1 + intText2) / (intText3 * 2)) * 100

End Sub

. . . and I got the correct percentage.

Let me know if this works for you.

[alscompany]

worked like a charm! thanks a bunch Robeen.

[Robeen]

Happy to help.
Mark the thread as solved if you're done with it!