** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Evitar basura en la captura de datos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoEvitar basura en la captura de datos

 Responder Responder
Autor
Mensaje
lalo1956 Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 08/Marzo/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 968
Enlace directo a este mensaje Tema: Evitar basura en la captura de datos
    Enviado: 03/Julio/2019 a las 17:43
Buen día!
Es posible implementar alguna función que evite introducir datos basura a la hora de capturar datos en una base de datos?
Me explico un poco más:

Si necesito introducir el nombre de una empresa, por ejemplo:

Comercializadora Neptuno, S.A. de C.V.

Que no me permita introducir espacios en blanco más de los correctos, es decir, evitar lo siguiente:

Comercializadora   Neptuno,   S.A.   de   C.V.      

Gracias, saludos! Smile
Quien no vive para servir, no sirve para vivir!** AYUDA A MANTENER EL FORO **
Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1033
Enlace directo a este mensaje 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.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5226
Enlace directo a este mensaje 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.
Arriba
lalo1956 Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 08/Marzo/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 968
Enlace directo a este mensaje 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 **
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable