Evitar basura en la captura de datos

Colaborador

Unido: 08/Marzo/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 994

Tema: Evitar basura en la captura de datos
Enviado: 05/Julio/2019 a las 17:30

Gracias pitxiku, gracias mounir

Apliqué esta sugerencia:

Me.Campo= Replace(Replace(Replace(Me.Campo, " ", " *"), "* ", ""), "*", "")

Funcionó de maravilla!, gracias!!! Smile

Se puede cerrar por favor!

Quien no vive para servir, no sirve para vivir!** AYUDA A MANTENER EL FORO **

mounir

Ver perfil usuario

Colaborador

Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479

Enviado: 04/Julio/2019 a las 01:50

Hola!

Te dejo dos formas de conseguirlo:-

1- En el evento de Al salir del campo:

Me.Campo= Replace(Replace(Replace(Me.Campo, " ", " *"), "* ", ""), "*", "")

2- Una función como te había indicado pitxiku:

Public Function Reemplazarespacios(strTexto As String) As String
    Do Until InStr(1, strTexto, "  ") = 0
        strTexto = Replace(strTexto, "  ", " ", 1)
    Loop
    Reemplazarespacios = Trim(strTexto)
End Function

Un Saludo.

pitxiku

Ver perfil usuario

Colaborador

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1512

Enviado: 03/Julio/2019 a las 18:01

Para los espacios al principio y final, puedes usar la función Trim. Para evitar que te dupliquen espacios entre palabras, tendrás que crearte alguna función que te los elimine. Tal vez te sirvan InStr para saber si quedan 2 espacios seguidos, y Replace para convertir 2 espacios en 1.

lalo1956

Ver perfil usuario