Textbox
¿Puedo validar un textbox para que no acepte números al ir ingresando datos en él?
Gracias de antemano.
Terramar
Gracias de antemano.
Terramar
1 Respuesta
Respuesta de fvomaster
1
Ok, por favor prueba con el siguiente código...
Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Un abrazo desde Chile.
Master
Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Un abrazo desde Chile.
Master
¿Qué raro no me funciona... lo puedes revisar bien?
Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii = Asc("1") or keyascii=asc("2") or keyascii=asc("3") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Acá lo validé para que no acepte entre el 1 y el 3, arréglalo para que no te acepte los 10 dígitos correspondientes..
Ahora sí..
If KeyAscii = Asc("1") or keyascii=asc("2") or keyascii=asc("3") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Acá lo validé para que no acepte entre el 1 y el 3, arréglalo para que no te acepte los 10 dígitos correspondientes..
Ahora sí..
