Problem using "On Error" Statement...

Hi all,

On my form I have a text box(Text1) and a button(Command1), here is the code at the moment:

Private Sub Command1_Click()
On Error GoTo Err1

If Int(Text1) < 0 Then
MsgBox ("Only enter a positive number")
Else
MsgBox ("You have entered a correct digit")
End If

Err1: MsgBox ("An Error has occured")
End Sub

The reasons I have put in the error statement is to prevent the user from entering letters into the box. The problem is, if I enter a positive digit, e.g. 10 into the box, I get the expected message box appearing and then straight after I get the error box appearing??

Any info on how I can fix this? Thanks.

Mark

TRY

If VAL(Text1) < 0 Then
MsgBox ("Only enter a positive number")
Else
MsgBox ("You have entered a correct digit")
End If

I tried this but you can still enter letters such as a,b,c an it will accept it.

I want it to produce the error message when non-numerical characters are entered.

Thanks anyway. Any more info...

Mark

Modify your code as follow to prevent the execution of the msgbox when all is good

Code:

---

...
End If

Exit Sub
Err1: MsgBox ("An Error has occured")
End Sub

---

Thanks, got it working fine now.

Mark

You can also look for the CInt() function, and don't forget that Exit Sub (in a function, use Exit Function) :)

JeffB