Campos solo
If KeyAscii = 127 Or KeyAscii < 48 Or
KeyAscii > 57 Then
MsgBox "Solo Numeros", vbCritical
KeyAscii = 0
Text1.SetFocus
End If
Campos solo Letras
If (KeyAscii < 58 Or KeyAscii > 127)
And (KeyAscii < 0 Or KeyAscii > 47) Then
MsgBox "Solo Letras", vbCritical
KeyAscii = 0
Text1.SetFocus
End If
1 Comentarios
Utilizando este codigo, la tecla "Retroceso" no puede ser accionada para Campos de Solo numericos. Se recomienda hacer un pequeño cambio a la condicion del IF para permitir que el usuario pueda borrar con la tecla de Retroceso:
ResponderEliminarIf (KeyAscii = 127 Or KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
.
.
.
End If