Imprimir página | Cerrar ventana

Evitar basura en la captura de datos

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84590
Fecha de impresión: 28/Marzo/2024 a las 18:32


Tema: Evitar basura en la captura de datos
Publicado por: lalo1956
Asunto: Evitar basura en la captura de datos
Fecha de publicación: 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! http://www.mvp-access.com/foro/foroonline.htm" rel="nofollow -



Respuestas:
Publicado por: pitxiku
Fecha de publicación: 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.


Publicado por: mounir
Fecha de publicación: 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.


Publicado por: lalo1956
Fecha de publicación: 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! http://www.mvp-access.com/foro/foroonline.htm" rel="nofollow -



Imprimir página | Cerrar ventana