I get this error when I type in a whole number or .00.. but it still works. I just want the error to go away.
Here is the code:
Here is the code:
Code:
Private Sub ServiceHours_AfterUpdate()
On Error GoTo Err_Handler
Dim number, number2
number = Int(Me.[ServiceHours])
number2 = Me.[ServiceHours] - number
Select Case number2
Case 0
Me.[ServiceHours] = [Me.ServiceHours]
Case 0.0001 To 0.2499
Me.[ServiceHours] = Me.[ServiceHours] - number2 + 0.25
Case 0.2601 To 0.4999
Me.[ServiceHours] = Me.[ServiceHours] - number2 + 0.5
Case 0.51001 To 0.7499
Me.[ServiceHours] = Me.[ServiceHours] - number2 + 0.75
Case 0.76001 To 0.9999
Me.[ServiceHours] = Me.[ServiceHours] - number2 + 1
End Select
Exit_Handler:
Exit Sub
Err_Handler:
MsgBox Error$
Resume Exit_Handler
End Sub
Comment