Input box Validation

[smokey786b21]

how can i validate a inputbox, i need it so that the user can only put numbers like, 10, 20 30 etc. the input box will input the data into a textbox. can some one help me pleasE?

[mabubakarpk]

You can do validation such

          Dim sInput As Variant
    
Label_Check_Validation:

    sInput = InputBox("Enter Value", "Value")
    If IsNumeric(sInput) = False Then
        GoTo Label_Check_Validation
    Else
        'what u want to do next
    End If

[smokey786b21]

thanks ill try that out :)

[rajaaryan44]

text1 is the textbox just put this code in the textbox key press event . u will get the result

Private Sub Text1_KeyPress( Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= 47 And KeyAscii <= 57) Or KeyAscii = 8) Then
Beep
KeyAscii = 0
Else
KeyAscii = Asc(UCase(Chr(K eyAscii)))
End If
End Sub

[devonknows]

how can i validate a inputbox, i need it so that the user can only put numbers like, 10, 20 30 etc. the input box will input the data into a textbox. can some one help me pleasE?

Just to point out that the same conversation was going on a few posts earlier, heres the link

http://www.thescripts.com/forum/thread620015.html

*Hint, when using the search function use specific words, like Numeric, Text box

If the above posts dont help, then maybe this other discussion will do

Kind Regards.
Devon.