Validar texbox
Buenas tengo 2 texbox y quisiera saber como puedo validar un texbox para que solo se puedan introducir números "pero sin dejar deshabilitado la tecla DEL para poder borrar" y el otro solo letras o caracteres, también me gustaría que mostrar un mensaje en el caso de introducir números en el texbox de letras y caso contrario. Le agradecería la ayuda
1 respuesta
Respuesta de santiagomf
1
Lo que debes hacer es controlar las teclas que pulsan cuando está enfocado el textBox.
Te mando un ejemplo de código para dos textBox llamados 'textBoxNumeros' y 'textBoxLetras'.
Option Explicit
Private Sub textBoxLetras_KeyPress(KeyAscii As Integer)
' OJO: La tecla <Supr> no genera este evento, por lo que no la controlamos
' Si es una tecla válida saldremos de este SUB
If KeyAscii >= 65 And KeyAscii <= 90 Then Exit Sub ' Las mayúsculas
If KeyAscii >= 97 And KeyAscii <= 122 Then Exit Sub ' Las minúsculas
If KeyAscii = 8 Then Exit Sub ' La tecla de borrar
' Si no ha salido del procedimiento es porque no es una tecla válida
KeyAscii = 0
' Daremos un par de pitidos para avisar (se puede poner un mensaje con msgbox)
beep
beep
End Sub
Private Sub textBoxNumeros_KeyPress(KeyAscii As Integer)
' OJO: La tecla <Supr> no genera este evento, por lo que no la controlamos
' Si es una tecla válida saldremos de este SUB
If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub ' Es un número
If KeyAscii = 8 Then Exit Sub ' Es la tecla de borrar
' Si no ha salido del procedimiento es porque no es una tecla válida
KeyAscii = 0
' Daremos un par de pitidos para avisar (se puede poner un mensaje con msgbox)
Beep
Beep
End Sub
En lugar de un mensaje, emiten un par de pitidos cuando pulsas una tecla que no corresponde (a mi personalmente me gusta más).
Te mando un ejemplo de código para dos textBox llamados 'textBoxNumeros' y 'textBoxLetras'.
Option Explicit
Private Sub textBoxLetras_KeyPress(KeyAscii As Integer)
' OJO: La tecla <Supr> no genera este evento, por lo que no la controlamos
' Si es una tecla válida saldremos de este SUB
If KeyAscii >= 65 And KeyAscii <= 90 Then Exit Sub ' Las mayúsculas
If KeyAscii >= 97 And KeyAscii <= 122 Then Exit Sub ' Las minúsculas
If KeyAscii = 8 Then Exit Sub ' La tecla de borrar
' Si no ha salido del procedimiento es porque no es una tecla válida
KeyAscii = 0
' Daremos un par de pitidos para avisar (se puede poner un mensaje con msgbox)
beep
beep
End Sub
Private Sub textBoxNumeros_KeyPress(KeyAscii As Integer)
' OJO: La tecla <Supr> no genera este evento, por lo que no la controlamos
' Si es una tecla válida saldremos de este SUB
If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub ' Es un número
If KeyAscii = 8 Then Exit Sub ' Es la tecla de borrar
' Si no ha salido del procedimiento es porque no es una tecla válida
KeyAscii = 0
' Daremos un par de pitidos para avisar (se puede poner un mensaje con msgbox)
Beep
Beep
End Sub
En lugar de un mensaje, emiten un par de pitidos cuando pulsas una tecla que no corresponde (a mi personalmente me gusta más).
