Run-time Error 5 ????

Hi Guys,

I have the folowing code with what I thought had Error handling built in? However during testing, when I compile and run the app, a run-time error 5 apperars (followed by MY error msgbox) if a value grater than an 'integer' ie 555555, is entered in a filed.

I thought I was handling any Error.

My question is why does the system generate an error dialog, if I was handling it ??(obviously I wasn't doing a good enough job:( ).

Private Sub txtClimb_Min_LostFocus()
On Error GoTo Input_Error

varClimb_Min = txtClimb_Min.Text
varRoundUp = varClimb_Min

Call RoundUp(varRoundUp)
txtClimb_Lit = varRoundUp

Exit Sub
Input_Error:
MsgBox "Please enter a valid number", vbOKOnly + vbCritical
txtClimb_Min.SelStart = 0
txtClimb_Min.SelLength = Len(txtClimb_Min.Text)
txtClimb_Min.SetFocus
End Sub

PS. 1. The Function (Call RoundUp(varRoundUp)) has the same type error handling.
2. It ONLY happens to the compiled app, I can't trip it up running under VB?

Cheers,
Bruce (I'm still learning:)).
________
Angelique

Can you post the code for RoundUp() too ?

Function RoundUp(NumberArg As Integer)
On Error GoTo Round_Error

If ((NumberArg * varFuelBurnRate / 60) - Int(NumberArg * varFuelBurnRate / 60)) _
> 0 Then

varRoundUp = Int(NumberArg * varFuelBurnRate / 60) + 1
Else
varRoundUp = (NumberArg * varFuelBurnRate / 60)

End If

Exit Function

Round_Error:
MsgBox "Please enter a valid number", vbOKOnly + vbCritical

End Function

Try using Doubles instead of Integers.

The reason I say Doubles is because they have the largest valid numeric range. I had to guess the values for the fuel consumption rate, and Longs werent working for me.

Anyway this is the code that I'd suggest

VB Code:

Private Function RoundUp(NumberArg As Double) As Double
    If ((NumberArg * varFuelBurnRate / 60) - Int(NumberArg) * varFuelBurnRate / 60) > 0 Then
        varRoundUp = Int(NumberArg * varFuelBurnRate / 60) + 1
    Else
        varRoundUp = (NumberArg * varFuelBurnRate / 60)
    End If
End Function
 
' elsewhere
 
varRoundUp = RoundUp(555555)
MsgBox varRoundUp

Using Doubles worked !!!.

I too tried longs earlier before I posted, and that didn't work.
However, the Doubles do.


(Hmmmmmm VB)

Thanks again mate.

Bruce :)
________
Live Sex

I think the run-time error was due to the returned (from the call) value being decimal, and the varxxxx being integers/longs!

Hence the varxxxx needed to be capable of holding decimal values.

Hindsight, what a wonderfull thing it is :)

Bruce.
________
SugarBaby

Use Resume or Resume next to release error.

oh1mie/Vic