** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Limitar número de caracteres en texbox.
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoLimitar número de caracteres en texbox.

 Responder Responder
Autor
Mensaje
fredy8alc Ver desplegable
Asiduo
Asiduo


Unido: 19/Abril/2016
Localización: España
Estado: Sin conexión
Puntos: 239
Enlace directo a este mensaje Tema: Limitar número de caracteres en texbox.
    Enviado: 16/Abril/2020 a las 16:49
Buenas tardes:

He puesto en el evento "Al pulsar una tecla" este código para que me escriba en mayuúsculas el texto introducido y para que no permita escribir más de 20 caracteres.

KeyAscii = Asc(UCase(Chr$(KeyAscii)))
If Len(Identidad) = 21 Then
KeyAscii = 0
MsgBox "La longitud máxima es de 20 caracteres"
Exit Sub
End If

La entrada en mayúsculas sí que funciona.
Pero la limitación a 20 caracteres no.

Alguien puede decirme porqué no me limita la entrada y como solucionarlo?

Muchas gracias.
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 16/Abril/2020 a las 17:13
Porque cuando lanzas el evento estas evaluando la propiedad Value y esta no se actualiza hasta al salir.

Prueba
If Len(Identidad.Text) > 20 Then

(manías mias: evaluar > 20 por si las moscas)

Xavi, un minyó de Terrassa

Mi web
Arriba
fredy8alc Ver desplegable
Asiduo
Asiduo


Unido: 19/Abril/2016
Localización: España
Estado: Sin conexión
Puntos: 239
Enlace directo a este mensaje Enviado: 16/Abril/2020 a las 17:26
jod*r, Xavi eres una máquina.
Muchas gracias por haberme ayudado siempre que lo he pedido.

Repito, Muchas gracias.

Con esto podemos cerrar. Queda totalmente resuelto.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable