Calculation in Form

[SJJB]

Need to get calculated total in Field 3
Formula is field2/field1

How would I do this so that once a person enters number into field2, field 3 automatically enters in the total from the calc.

Thanks in advance

 

[asenft]

You could do it in the After Update event of field2. Something like this.

Private Sub field2_AfterUpdate()

field3 = field2/field1

end sub

Hope that helps.

 

[SJJB]

I have done the above, but am getting a variable not defined error. Is there something else I should do?

 

[tlbroadbent]

Tell Access to use the controls rather than a variable this way.


Private Sub field2_AfterUpdate()

me!field3 = me!field2/me!field1

end sub
Terry

http://members.home.net/tlbroadbent/index.htm

 

[asenft]

Doh!! Sorry about that.. Forgot to tell you to define the variables, or do it like tlbroadbent said..

 

[MichaelRed]

While the offered soloution will generally work, I would almost never do it this way. Unless you are VERY careful re controls navigation, you WILL get an error from this.

In BOTH Field1 AND Field2 AfterUpdate events, call the (General) procedure basCalcField3()

Private Function basCalcField3
[tab]If (Me.Field1 = "&quot Then
[tab][tab]Exit Function
[tab]End If

[tab]If (Me.Field2 = "&quot Then
[tab][tab]Exit Function
[tab]End If

[tab]If (Val(Me.Field1) = 0) Then
[tab][tab]Exit Function
[tab]End If

[tab]'Do other / Additional Checks on the two Source fields'
[tab]'such as range (Field1 > NN) and (Field1 < NNN)

[tab]'Here ONLY if both fields pass ALL checks
[tab]Field3 = field1/field2
End Function

MichaelRed
redmsp@erols.com

There is never time to do it right but there is always time to do it over