Validación en campo de texto de una tabla

La respuesta que le de dan no sirve porque acepta también otros caracteres como números y símbolos, por ejemplo. PrtswTR97881 ¿'.-,.

Observe este formulario:

Le preparé 2 procedimientos, uno que solo acepta letras consonantes mayúsculas, este es el código. No acepta ningún otro carácter y va en el evento Al presionar una tecla.

Este otro solo acepta consonantes minúsculas o mayúsculas. No acepta ningún otro carácter y va en el evento Al presionar una tecla.

Para que los eventos respondan tiene que configurar el formulario en Propiedades, Eventos, Tecla de vista previa en SI, como muestra la figura.

Disculpe no adicioné el otro código :

Eduardo tiene razón, probare con el nuevo código y les aviso, muchas gracias por la ayuda

el codigo que envias es el mismo del principio

Coloque el primer codito que indica Eduardo y no hace ningún filtro, me deja ingresar cualquier letra y caracter y eso que también coloque en SI el evento (tecla de vista previa) en el formulario. Asi ahora probare el segundo código para ver como funciona.

Tiene que habilitar Tecla de vista previa, como muestra la imagen.

Veo que tiene al final del primer Select Case .....Case False y es Case Else

Para poner la primera letra en mayúscula utilice la función StrConv() como le explican en el evento Después de actualizar del control, pero no se complique con tanto ElseIf. Para este caso es más practico el evento Al presionar una tecla KeyPress que KeyDown, el cual tiene más uso en detectar combinación de teclas especiales, por ejemplo CTRL, ALT y teclas de navegación.

Ya corregí

el código y la Tecla de vista previa, ya la tenia en Si como me indicaba anteriormente, pero me deja poner vocales y no me deja avanzar con el espaciador

Veo que en el ultimo LIKE esta usando es parentesisis y es [....]

Si, eso era, pero no puedo separar las letras con el espaciador. Como lo puedo hacer. Escribo Hctrmnl y debería poder escribir Hctr Mnl

Si efectivamente faltaba vbKeySpace por esto no permite la barra espaciadora. Debe quedar así:

Este código va convirtiendo las consonantes a mayúsculas, no acepta las vocales, si quiere que deje la primera letra de cada grupo en mayúscula, ingrese este código en el evento Después de actualizar del campo texto, sería algo como:

Me.Texto0 = StrConv(Me.Texto0, vbProperCase)

En donde Texto0 es el nombre de su campo de texto.

Estuve probando el código que le dan y no funciona lo siguiente:

- Barra espaciadora

- Tecla Suprimir

- Teclas de desplazamiento (Flechas izquierda y derecha)

- Tecla Enter

Como quien dice tendría que llenarse de ElseIf, ya es de su elección cual ejemplo toma.

Ya agregue el código en el recuadro y funciona a la perfección. El otro código después de actualizar ya lo tenia agregado. Agradezco su paciencia y ayuda. Muchas gracias.

si tuviera que crear un texbox adicional que ingrese letras y números que tendría que agregarle al código que me envió? 

¿Pero todo el abecedario?. Mañana le enseño el ejemplo y es algo que utilizo bastante

Oka, muchas gracias

Este es el código para controlar el ingreso de letras (todo el abecedario) y números del 0 al 9.

Código del evento Al presionar una tecla:

Observe que es muy parecido al código que le suministré, solo adicioné una línea y retiré la excepción de las vocales, si las quiere excluir adicione el código al final como está en anterior ejemplo. Imagínese si utilizara KeyDown cuántas líneas y ElseIF tendríamos, pero hay otros que insisten en lo que no sirve. Le recomiendo que conserve este código tiene bastante utilidad, lo utilizo en todos mis formularios.

Se paso, muchas gracias

Tengo una duda, me toco escribir letras que contemplan la Ñ, pero no pude colocarla, me faltara algo que hacer para agregarla?

Escríbame a [email protected] y le envío el ejemplo, tengo problemas por TodoExpertos.

Esto es:

Este es el código:

Solo adicione lo que indica la flecha y listo.

Si quiere algo más completo y con acentos:

Este es el código:

Con esto queda demostrado que KEYDOWN no se debe utilizar en este caso y doy por terminada las respuestas a su consulta.

Muchas gracias una vez más, por la ayuda y paciencia. Los códigos funcionan a la perfección.

Me alegro le haya servido, conserve el código le servirá para hacer validaciones, en otra oportunidad le enseño el código para que acepte solo números con la coma (,) y el punto (.) Y más.

Muchas gracias por su amabilidad y dedicación

Si los datos los metes a través de un formulario, y no te quieres calentar la cabeza, basta con que en el evento Al bajar una tecla del cuadro de texto que sea crees un procedimiento de evento y entre Private Sub... y End sub lo pongas como

Select Case KeyCode
Case 65, 69, 73, 79, 85, 97, 101, 105, 11, 117
KeyCode = 0
End Select

O sea, que cuando vayas a escribir en ese cuadro de texto y pulses una vocal, sea minúscula o mayúscula no te escribe nada. Si ya quieres tener en cuenta que sean acentuadas o no, con ir cogiendo los números del código ASCII e ir poniéndolos a continuación, listo.

¡Gracias! Funciona perfectamente

no, me había dado cuenta pero también permite algunos números y signos. Es posible que solo sean consonantes y que la primera letra sea mayúscula y las demás en minúscula y esto que lo realice después de cada espacio. ejemplo Hctr Hdlg Glr

Supongamos que tengo la tabla Copia como en la imagen

Con ella hago un formulario donde voy a "usar" el campoA. Escribo en él, sólo permite consonantes

Cuando pongo el cursor en el siguiente control

Prefiero alargar un poco el código pero es más didáctico. El código del evento al bajar una tecla del cuadro de texto CampoA es

Private Sub CampoA_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <= 64 Then
KeyCode = 0
ElseIf KeyCode >= 91 And KeyCode <= 96 Then
KeyCode = 0
ElseIf KeyCode >= 123 Then
KeyCode = 0
ElseIf KeyCode = 65 Or KeyCode = 69 Or KeyCode = 73 Or KeyCode = 79 Or KeyCode = 85 Then
KeyCode = 0
ElseIf KeyCode = 97 Or KeyCode = 101 Or KeyCode = 105 Or KeyCode = 111 Or KeyCode = 117 Then
KeyCode = 0
End If
End Sub

Me explico, si la tecla que pulsas tiene un valor menor ó igual que 64 no hace nada

si está entre 91 y 96 lo mismo, etc.

El código del evento Después de actualizar del cuadro de texto campoa es

Private Sub CampoA_AfterUpdate()
CampoA = StrConv([CampoA], vbProperCase)
End Sub

Es decir, que ponga la primera letra en mayúsculas

Julián, el código mejoro bastante, pero igual puedo colocar números y no me funciona la tecla espaciadora, ni enter, y tampoco puedo borrar lo que e puesto. De seguro estoy haciendo algo mal pero no se que es

Lo de los números es imposible. Mira en la imagen, el código ASCII del 5, por ejemplo es

Es 53, que entra dentro de <=64

Por otro lado, si para borrar usas la tecla retroceso, que su valor es 8, tendrías que poner la instrucción como

Private Sub CampoA_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <= 7 Then
KeyCode = 0
ElseIf KeyCode > 8 And KeyCode <= 64 Then
KeyCode = 0
ElseIf KeyCode >= 91 And KeyCode <= 96 Then
KeyCode = 0
ElseIf KeyCode >= 123 Then
KeyCode = 0
ElseIf KeyCode = 65 Or KeyCode = 69 Or KeyCode = 73 Or KeyCode = 79 Or KeyCode = 85 Then
KeyCode = 0
ElseIf KeyCode = 97 Or KeyCode = 101 Or KeyCode = 105 Or KeyCode = 111 Or KeyCode = 117 Then
KeyCode = 0
End If
End Sub

De todas formas, si quieres, repito, si quieres mándame un mensaje(sólo el mensaje) a [email protected] y te mando un ejemplo, que es como se ve mejor.

Si lo haces, en el asunto del mensaje pon tu alias Hector Manuel, ya que si no sé quien me escribe ni los abro.

Ya pude ver el ejemplo que me envío a mi correo, pero igual me deja colocar números y algunos símbolos. Trate de buscar unos códigos y agregarlos, como el código del espacio en blanco y desplazamiento para ambos lados, pero no se porque me siguen apreciando números y algunos signos. Igual agradezco la paciencia por ayudarme. Seguiré buscando algunos códigos Ascii para ver como puedo solucionarlo. Muchas gracias.