Insert only numbers in textbox

[Stiletto]

Hello,
How can I Force the user to insert only numbers in a textbox?
Or in a different way, How can I check under the KeyPress event if the user pressed 0 to 9? (I think that would be better)

Thanks

[Ghostpk]

Select the Text field in which you want to limit the user to numbers only. In it's properties, look for Dataformat, and click the "..." You should be able to choose General, Currancy, Number, Date, ect....

[Logophobic]

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case vbKeyBack, vbKey0 To vbKey9
    ' These keys are allowed to pass
  Case Else
    ' Everything else is blocked
    KeyAscii = 0
  End Select
End Sub

[tanchuhan]

I think you could do it like this:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case Asc("0") To Asc("9"), vbKeyBack
        Case Else
            KeyAscii = 0
    End Select
End Sub

[tanchuhan]

when I submited my reply, I found Logophobic had replied.
I think vbKey0 would be better than Asc("0"), ha ha.

[Stiletto]

I'm starting to remember slowly how to do stuff after a long time i didnt touch VB. I got this

If KeyAscii < 48 Or KeyAscii > 57 Then
    If KeyAscii <> 8 Then
        MsgBox "Error"
        KeyAscii = 0
    End If
End If

Yours are better, I think I will go on the DataFormat suggestion. Thanks anyway

[Stiletto]

when I submited my reply, I found Logophobic had replied.
I think vbKey0 would be better than Asc("0"), ha ha.

Logophobic ?

[Stiletto]

Select the Text field in which you want to limit the user to numbers only. In it's properties, look for Dataformat, and click the "..." You should be able to choose General, Currancy, Number, Date, ect....

Ive tried it, but it doesnt prevent me from typing letters...

[MartinLiss]

Download and compile the NumberBox ActiveX control from my signature.

[Hack]

How about

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
   Msgbox "Only numbers allowed."
   Text1.Text = vbNullString
End If

By putting it in the Change event you cover not only typing but also pasting.