Private Sub Text1_KeyPress(KeyAscii As Integer) --> Tipo de datos
If (KeyAscii >= 65) And (KeyAscii <= 90) Or (KeyAscii >= 97) And (KeyAscii <= 122) Or (KeyAscii = 32) Or (KeyAscii = 8) Then --> Los números son de acuerdo al código ASCII y dependerán de lo que queremos que acepte nuestro campo.
Exit Sub
Else
MsgBox "Sólo letras" --> Mensaje de error
KeyAscii = DEL
End If
End Sub
If (KeyAscii >= 65) And (KeyAscii <= 90) Or (KeyAscii >= 97) And (KeyAscii <= 122) Or (KeyAscii = 32) Or (KeyAscii = 8) Then --> Los números son de acuerdo al código ASCII y dependerán de lo que queremos que acepte nuestro campo.
Exit Sub
Else
MsgBox "Sólo letras" --> Mensaje de error
KeyAscii = DEL
End If
End Sub
Comentarios
Publicar un comentario