textbox Keypress

[Moses420ca]

How do I force a textbox to only accept numbers as a input and not text?

Thankz, Drew
[email protected]?SUBJECT=I Love Your Stuff

[DSJ]

private Sub Text1_KeyPress(KeyAscii as Integer)
If KeyAscii < 47 Or KeyAscii > 57 then
KeyAscii = 0
End If
End Sub

[Boumxyz2]

Well the other suggestion works but if you want to block all key except numbers and Backspace here is the code

' ***************************************************************
' * *
' * Sub-routine name : *
' * TxtFTE_Keydown *
' * *
' * Objective : *
' * Checks which key was pressed *
' * *
' * Parameters : *
' * Keycode : The key that was pressed *
' * ****: Check wether shift was pressed*
' * or not. *
' * *
' ***************************************************************
private Sub txtFTE_KeyDown(KeyCode as Integer, Shift as Integer)
KeyCode = ValidateKeyNumbers(KeyCode)
End Sub

' ***************************************************************
' * *
' * Sub-routine name : *
' * ValidateKeyNumbers *
' * *
' * Objective : *
' * Blocks all key except backspace and *
' * numbers *
' * *
' * Parameters : *
' * Keycode : The key that was pressed *
' * *
' ***************************************************************
private Function ValidateKeyNumbers(byval KeyCode as Integer) as Integer
If (KeyCode >= vbKey0 And KeyCode <= vbKey9) Or KeyCode = vbKeyBack Or _
(KeyCode >= vbKeyNumpad0 And KeyCode <= vbKeyNumpad9) Or _
(KeyCode = vbKeyDecimal) or 190 then ' 190 is the dot key
ValidateKeyNumbers = KeyCode
else
ValidateKeyNumbers = 0
End If
End Function

[cloud311]

You could also try this. Mind you that this doesn't include the "." key, but it is fairly small and works.
private Sub Text1_KeyPress(KeyAscii as Integer)
If Not IsNumeric(Chr(KeyAscii)) then KeyAscii = 0
End Sub