I need help on the following code in VB 2005 express. In the following code, VB only executes the 'second IF' not the 'first IF' statement. I am not sure what I am doing wrong or it is a bug.


Thanks

KCTin

----------------------------------------------------------------

If IsNumeric(textbox1.Text) Then
   If Val(textbox1.Text) >= 0 Then
   Else
       MsgBox("Please enter valid number")
   End If
End If

----------------------------------------------------------------

What are you putting in the text box to test this and what event are you firing? This worked OK for me although I wouldn't use Val to check for numbers greater than 0.

Also, in order for the second If statement to run, the first one has evaluate to True. If you are getting a result from the second one, the first is executing.

J

I am just using numeric value number 10 or 20. I also tried without Val in the IF statement.

I tried input Alphabets to see if the first IF statement will catch and It didn't

Try using alpahabets in your input and see if you get error message box

Thanks

KCTin

What I meant about the Val function is that I would use something else like "Convert".

I think your problem is your logic. You have to look at the order of execution for your If statements. What you have:

-----------------

If IsNumeric(textbox1.Text) Then
   If Val(textbox1.Text) >= 0 Then
   Else
       MsgBox("Please enter valid number")
   End If
End If

-----------------

means that unless the textbox value is numeric, then it won't execute. So if you put in letters, it is false and nothing else is executed. Try this instead:

-----------------

        If IsNumeric(TextBox1.Text) Then
            If Convert.ToInt32(TextBox1.Text) >= 0 Then
                'do something here if the number is >= 0
                MessageBox.Show("Great! Your number was >= 0.")
            Else
                'do something here if the number is < 0
                MessageBox.Show("Your number was less than 0")
            End If
        Else
            MessageBox.Show("Please enter valid number")
        End If

-----------------

J