19/03/2004, 12:49
|
| | | Fecha de Ingreso: marzo-2004 Ubicación: Trujillo
Mensajes: 30
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| Hola esto te valida solo numeros
Espero que te sirva
lo haces en el evento keypress de una caja de texto cualquiera...
Private Sub txtPrueba_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> vbBack Then
KeyAscii = 0
End If
End Sub
pero si deseas solo letras quitale el "<< not >>"
me entiendes o no???
osea
if isnumeric.....
__________________
Danny
"En la mayoría de los casos la ignorancia es algo superable. No sabemos por qué no queremos saber"
Última edición por danlu; 19/03/2004 a las 12:52 |