IsNumeric Function

[munkeyb0i]

Hi,
The program that I have to make is suppose to check if the things I entered in the textbox is numeric and also if it's 9 digits. I tried a lot of ways to do it but none of them seem to work. Maybe someone can help me. This is my code for it:

Private Function TestInput() As Boolean

If IsNumeric(txtID.Text) and Len(Val(txtID.text)) Then
MsgBox("Please enter an appropriate FID.", MsgBoxStyle.Exclamation, "Enter FID Properly")
txtFID.Focus()
Return False
End If
End Function

Thanks

[Killer42]

This might be some help (just off the top of my head, not tested)

Private Function TestInput() As Boolean
  If IsNumeric(txtID.Text) and Len(Val(txtID.text) = 9) Then
    TestInput = True
  Else
    MsgBox("Please enter an appropriate FID.", MsgBoxStyle.Exclamation, "Enter FID Properly")
    txtFID.SetFocus()
    TestInput = False ' (Not strictly necessary, as False is default)
  End If
End Function

Also note, we may be using different versions of VB - this should work in VB6.

Also, according to the manual, the input for IsNumeric must be a variant, not a string. I haven't checked this.

[munkeyb0i]

Yeah unfortunately, that doesn't work. It might be b/c i'm using VB5 but don't know. Thanks for your effort though

[Killer42]

Yeah unfortunately, that doesn't work. It might be b/c i'm using VB5 but don't know. Thanks for your effort though

Hm... you could try leaving out the IsNumeric check. Try this...

Private Function TestInput() As Boolean
  If Len(Format(Val(txtID.text))) = 9) Then
    TestInput = True
  Else
    MsgBox("Please enter an appropriate FID.", MsgBoxStyle.Exclamation, "Enter FID Properly")
    txtFID.SetFocus()
    TestInput = False ' (Not strictly necessary, as False is default)
  End If
End Function

Incidentally, I think we'll need more information than "doesn't work" to help further. It's a bit vague.

[munkeyb0i]

Yeah I finally got it. I just made 2 if statements and it works perfectly.


'return false if it is not all numbers inputted in the textbox
If IsNumeric(txtID.Text) = False Then
MsgBox("Please enter an appropriate ID.", MsgBoxStyle.Exclamation, "Enter ID Properly")
txtFID.Focus()
Return False
End If

'return false if it's not 9 digits long
If Len(txtID.Text) <> 9 Then
MsgBox("Please enter an appropriate ID.", MsgBoxStyle.Exclamation, "Enter ID Properly")
txtFID.Focus()
Return False
End If

Thanks for your help killer

[Killer42]

No worries. I'm glad it helped.

I'm curious, though - based on the .Focus method and the Return statement, this is not VB6 or earlier. Must be some version of VB.Net, correct?

[munkeyb0i]

Oh yeah...sorry...it's VB.Net. I guess it's a lot different from VB6 eh?

[Killer42]

Oh yeah...sorry...it's VB.Net. I guess it's a lot different from VB6 eh?

Details do differ quite a bit, but the logic tends to work the same across lots of languages, so we can often help. Feel free to try us. (As with this thread, you may need to adjust the answers slightly.)

You could also try the .Net forum when you have questions, as they may have more directly related experience.

[munkeyb0i]

Details do differ quite a bit, but the logic tends to work the same across lots of languages, so we can often help. Feel free to try us. (As with this thread, you may need to adjust the answers slightly.)

You could also try the .Net forum when you have questions, as they may have more directly related experience.

Oh okay then...thanks:D