Validación de Entradas en Visual Basic...!!!

Rafa 19:10
Se debe seleccionar la caja de texto correspondiente y seleccionar el método KeyPress
Campos solo Numéricos


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

Publicar un comentario

1 Comentarios

  1. Unknown10 de mayo de 2017, 14:12

    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:

    If (KeyAscii = 127 Or KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
    .
    .
    .
    End If

    ResponderEliminar

Emoji
(y)
:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:P
:o
:>)
(o)
:p
(p)
:-s
(m)
8-)
:-t
:-b
b-(
:-#
=p~
x-)
(k)