Block textbox for numbers or text.

[pimentamarqu]

Hi,

Could someone tell me if is posible to block a textbox for numbers or text to prevent users to insert non desired character (text in this case) on a particular textbox.

Tks

[Bob Phillips]

Select Case True

Case Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9"

Case Else: KeyAscii = 0
End Select

[pimentamarqu]

k, tks, but were should I insert this code?

[Tinbendr]

Private Sub TextBox1_Change()
Select Case True

Case Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9"

Case Else: KeyAscii = 0
End Select
End Sub

[Bob Phillips]

No, use the Textbox KeyPress event.

[pimentamarqu]

Tks,

to be able to use "." and numbers i used the following code:


Private Sub number1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case True

Case Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9" Or Chr(KeyAscii) = "."

Case Else: KeyAscii = 0
End Select

End Sub

[Bob Phillips]

Bit picky I know, but I would have used



Private Sub number1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case True

Case Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9"

Case Chr(KeyAscii) = "."

Case Else: KeyAscii = 0
End Select

End Sub

[Bob Phillips]

BTW, you might want to cater for backspace/delete as well.