Como validar que una caja texto
Buenas días .. Quisiera saber una preguntita como yo puedo validar una caja de texto para que dentro de ella solo se escriba números... En igual caso como puedo yo para que se escriba solo letras.. Esperando una pronta respuesta ... Gracias de antemano
1 respuesta
Respuesta de denciso
1
Adapta la siguiente rutina para lo que me preguntas:
Private Sub txtClaveBancoRecursos_KeyPress(KeyAscii As Integer)
Dim retVal As Integer
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
If InStr("0123456789.", Chr(KeyAscii)) = 0 And KeyAscii <> 13 And KeyAscii <> 8 Then
Beep
Beep
Beep
retVal = MsgBox("Solo se pueden Digitar Números: 0,1,2,3,4,5,6,7,8,9" & vbCrLf & "Vuelva a intentarlo...", 4112, "Error de Opciones")
KeyAscii = 0
txtClaveBancoRecursos.SetFocus
End If
If KeyAscii = 13 Or KeyAscii = 8 Then
' Se verifica que el proceso se trate de borrar o modificar para que se
' presenten los datos faltantes del grupo de alimentos de acuerdo a la clave
' que se selecciono.
txtClaveBancoRecursos.Text = Format$(txtClaveBancoRecursos.Text, "0000")
End If
End Sub
Private Sub txtClaveBancoRecursos_KeyPress(KeyAscii As Integer)
Dim retVal As Integer
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
If InStr("0123456789.", Chr(KeyAscii)) = 0 And KeyAscii <> 13 And KeyAscii <> 8 Then
Beep
Beep
Beep
retVal = MsgBox("Solo se pueden Digitar Números: 0,1,2,3,4,5,6,7,8,9" & vbCrLf & "Vuelva a intentarlo...", 4112, "Error de Opciones")
KeyAscii = 0
txtClaveBancoRecursos.SetFocus
End If
If KeyAscii = 13 Or KeyAscii = 8 Then
' Se verifica que el proceso se trate de borrar o modificar para que se
' presenten los datos faltantes del grupo de alimentos de acuerdo a la clave
' que se selecciono.
txtClaveBancoRecursos.Text = Format$(txtClaveBancoRecursos.Text, "0000")
End If
End Sub
