# Overflow Error on Calculation

Morning all,

Trying to calculate the wieight on a punch in Microsoft Access (form) in order to calculate the transport charge.

I'm getting an overflow on the following line of code. Can anyone help me overcome this?

w_calc = 3.14159265 * (Me.ShankDiameter / 10) ^ 2 * Me.OverallLength * 7.8 / 10 * 4 * 1000

shankdiameter = 4
overalllength = 80

Thanks
Sean

LVL 1
###### Who is Participating?

Commented:
try w_calc = CLNG(3.14159265 * (Me.ShankDiameter / 10) ^ 2 * Me.OverallLength * 7.8 / 10 * 4 * 1000)
0

Commented:
Hi SeanNij,

What Data_Type are w_calc ,shankdiameter & overalllength ? (integer,single etc)

Gary
0

Author Commented:
w_calc is long
shankdiameter is single
overlength is single
0

Author Commented:
nope - same error
0

Commented:
hmmm looks like maybe the 2 * Me.OverallLength * 7.8 / 10 * 4 * 1000 is getting multiplied together before the power is applied giving a large exponential whereas presumably it's (shankdiameter/2) squared.
try

3.14159265 * ((Me.ShankDiameter / 10) ^ 2) * Me.OverallLength * 7.8 / 10 * 4 * 1000)
0

Commented:
w-calc is ?long?
Are you intentionally trying to lose the decimal part?

But I can't reproduce the problem in A2003.
All I'm doing is  this...

Private Sub Command4_Click()
Dim wcalc As Long
wcalc = 3.14159265 * (Me.Shankdiameter / 10) ^ 2 * Me.OverallLength * 7.8 / 10 * 4 * 1000
MsgBox wcalc
End Sub

msgbox shows...125463
0

Author Commented:
Me.WeightPP = 3.14159265 * (Me.ShankDiameter / 10) ^ 2 * Me.OverallLength * 7.8 / (10 * 4 * 1000)
0

Commented:
That works for me as well.

Go into the immediate pane and try:

?3.14159265 * (4 / 10) ^ 2 *80 * 7.8 / (10 * 4 * 1000)
0

Author Commented:
RunTime Error '6'
Overflow i use immediate window
0

Commented:
How peculiar...see attached

You are definitely using Access 2003?

Doc6.doc
0

Commented:
Check that you don't have any missing references
0

Author Commented:
brand new database
started from scratch yesterday on it.

what i did was uninstall office service pack 3 yesterday, cuase since i installed it my Access keeps crashing in weird places.

since uninstalling been fine....except for this error now....
0

Author Commented:
hmmm

Me.WeightPP = 3.14159265 * (Me.ShankDiameter / 10) ^ 2 * Me.OverallLength * 7.8 / (10 * 4 * CLng(1000))

works....

WTF!!!!!!!!!!!!!
0

Commented:
That might be an explanation.  I never moved to SP3 because of all the problems reported as soon as it was issued.
So my examples are all on sp2.

0

Commented:
You should install the hotfix for SP3
http://support.microsoft.com/kb/945674
0

Author Commented:
Splitting points for all the input - but the Clng got me working!
Thanks!
0

Commented: