Impedir la entrada de un espacio blanco al comienzo de un campo de texto.

Dudas sobre cualquier tema relacionado con Access que no tenga cabida expresa en los otros hilos
Rafael
Nivel 5
Mensajes: 153
Registrado: Dom Dic 27, 2015 10:33 am

Impedir la entrada de un espacio blanco al comienzo de un campo de texto.

Mensajepor Rafael » Mar Ago 07, 2018 1:07 pm

Hola, una facilita :)

En un campo de texto (corto) llamado Cliente, dispuesto en un formulario de una BD para que el usuario introduzca el nombre de una persona física (apellidos, nombre) o jurídica, he comprobado que con el paso del tiempo han entrado en la tabla 'Clientes' que empiezan con un carácter en blanco, alterando con ello el orden alfabético que me presentan los combos de otros formularios de filtrado de la misma BD basados en tal campo.

Más que Máscara de Entrada -de las que no soy muy amigo... me han dado demasiados problemas...- quisiera que por código, probablemente asociado al evento 'Antes de Actualizar' -como he conseguido disponer para casos que guardan cierta similitud con el enunciado ahora-, cuando el usuario haya introducido el nombre del cliente y comience éste con un carácter en blanco, sin consultarle siquiera, elimine tal carácter. Por supuesto me da lo mismo que la eliminación tenga lugar sobre la marcha o al validar la entrada del dato...

Alguien me puede decir cómo hacerlo, gracias :?:

Avatar de Usuario
Neckkito
Moderador
Mensajes: 752
Registrado: Dom Oct 25, 2015 3:42 pm

Re: Impedir la entrada de un espacio blanco al comienzo de un campo de texto.

Mensajepor Neckkito » Mar Ago 07, 2018 1:21 pm

Echa un ojo a la función Trim() y familiares -por la izquierda y por la derecha-

Saludos.
Access MVP 2017-2019
http://bit.ly/NckAccess

Rafael
Nivel 5
Mensajes: 153
Registrado: Dom Dic 27, 2015 10:33 am

Re: Impedir la entrada de un espacio blanco al comienzo de un campo de texto.

Mensajepor Rafael » Mar Ago 07, 2018 2:09 pm

Perdona mi bisoñez Miquel :oops:

Después de varios intentos con el último creí que iba a tener más suerte pero...

Este ha sido mi último intento:

Private Sub Interesado_BeforeUpdate(Cancel As Integer)
Dim MyString, TrimString
MyString = " <-Trim-> " ' Initialize string.
TrimString = LTrim(MyString)
End Sub

Avatar de Usuario
Neckkito
Moderador
Mensajes: 752
Registrado: Dom Oct 25, 2015 3:42 pm

Re: Impedir la entrada de un espacio blanco al comienzo de un campo de texto.

Mensajepor Neckkito » Mar Ago 07, 2018 2:25 pm

Evento Después de Actualizar de Cliente

If not isnull(me.cliente) then
me.cliente=ltrim(me.cliente)
end if

Saludos.
Access MVP 2017-2019
http://bit.ly/NckAccess

Rafael
Nivel 5
Mensajes: 153
Registrado: Dom Dic 27, 2015 10:33 am

Re: Impedir la entrada de un espacio blanco al comienzo de un campo de texto.

Mensajepor Rafael » Mar Ago 07, 2018 6:11 pm

Muchas gracias Miquel, perfecto!!!!!

He tardado en contestar por que mi ignorancia confesa hacía que pegase tu código en el evento 'Antes de Actualizar', cuando lo que me decías era que lo hiciese en el de 'Después de Actualizar' y tal error me estaba dando por saco... :oops: :oops: :oops:

Resuelto. Muchas gracias.


Volver a “Cajón de sastre”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado