|
Responder 
|
| Autor | |
Endless 
Nuevo 
Unido: 07/Febrero/2020 Localización: Chile Estado: Sin conexión Puntos: 5 |
 Tema: Formulario de busqueda por dos camposEnviado: 07/Febrero/2020 a las 18:39 |
|
Hola buenas a todos, Quisiera si alguno de ustedes me puede orientar un poco con un formulario de búsqueda, Tengo el siguiente problema, el formulario en si, funciona, pero no de la mejor manera y no sé como hacerlo de una mejor forma (estoy aprendiendo de manera autodidacta lo que es vba). Quiero que el filtro me busque por Nombre de producto y Por Nombre de Familia.  Las tablas que tengo son las siguientes:  Y las llamo mediante VBA  El buscador funciona, busca, pero se demora demasiado en buscar y creo que se puede mejorar (al parecer en vez de buscarme "850" registros esta buscando "67000" y por eso se demora tanto en filtrar la busqueda). Si alguien tuvo este error por favor que me ayude. (Busque en el foro pero no encontré )
|
|
 |
|
|
mounir
Colaborador 
Unido: 09/Febrero/2009 Localización: Asturias-España Estado: Sin conexión Puntos: 6521 |
Enviado: 07/Febrero/2020 a las 19:52 |
|
Hola!
No se ve tu código, si quieres postearlo (copiar y pegar). Independientemente de eso, ha salido un duda similar hace poc en este hilo Búsqueda por dos campos. y aquí explican el ejemplo: Filtrar formulario usando VBA – Uniéndolo todo Editado por mounir - 07/Febrero/2020 a las 19:57 |
|
|
Un Saludo.
|
|
|
|
|
Endless
Nuevo
Unido: 07/Febrero/2020 Localización: Chile Estado: Sin conexión Puntos: 5 |
Enviado: 07/Febrero/2020 a las 20:07 |
|
Lo subí como imagen, aquí esta el código '================================= 'BUSCADOR INTELIGENTE POR PALABRA'================================= Private Sub txt_buscar_Change() Dim consulta As String consulta = "SELECT pdt.id_producto As Id, pdt.Nombre As Producto, und.Nombre As Unidad, fmla.Nombre As Familia " & _ "From Producto As pdt, Producto_unidad As und, Producto_Familia As fmla " & _ "Where pdt.Nombre Like '*" & Me.txt_buscar.Text & "*' And pdt.Unidad_id = und.Id_Unidad " & _ "and pdt.Familia_id=fmla.id_Familia " 'or fmla.Nombre Like ""*" & Me.txt_buscar.Text & "*"" Me.Lst_producto.RowSource = consulta Me.Etq_Producto.Caption = "SE ENCONTRARON " & Me.Lst_producto.ListCount - 1 & " PRODUCTOS" End Sub |
|
|
|
|
mounir
Colaborador
Unido: 09/Febrero/2009 Localización: Asturias-España Estado: Sin conexión Puntos: 6521 |
Enviado: 07/Febrero/2020 a las 20:23 |
|
Hola!
¿Es formulario o ListBox èsto "Lst_producto"? Si es formulario tendría que ser su RecordSource y no RowSource. |
|
|
Un Saludo.
|
|
|
|
|
VIMIPAS
Colaborador
Unido: 06/Enero/2006 Localización: ESPAÑA Estado: Sin conexión Puntos: 5462 |
Enviado: 07/Febrero/2020 a las 21:28 |
|
Hola buenas noches.
Y aquí te dejo mas madera para que estudies: Saludos.
|
|
|
Gracias
|
|
|
|
|
Endless
Nuevo
Unido: 07/Febrero/2020 Localización: Chile Estado: Sin conexión Puntos: 5 |
Enviado: 07/Febrero/2020 a las 21:52 |
Perdón, Sí, Lst_producto corresponde a un listbox, ahí es donde se me muestran las busquedas que realizo. A continuación subo 2 gifs de como funciona el formulario Código VBA (ListBox): https://i.imgur.com/MKhm6S9.gif Como funciona el formulario: https://i.imgur.com/RVf1xJr.gif PD: los botones de opciones, están solo de adorno, no están haciendo nada. Editado por Endless - 07/Febrero/2020 a las 21:53 |
|
|
|
|
mounir
Colaborador
Unido: 09/Febrero/2009 Localización: Asturias-España Estado: Sin conexión Puntos: 6521 |
Enviado: 07/Febrero/2020 a las 22:06 |
|
Hola!
Es dificil por lo menos para mí saber cual es el motivo, ya que no dispongo del fichero. De todas formas el ejemplo del compañero VIMIPAS hace lo que buscas. Editado por mounir - 07/Febrero/2020 a las 22:07 |
|
|
Un Saludo.
|
|
|
|
|
Responder
|
|
Tweet
|
| Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |
Formulario de busqueda por dos campos
Opciones del Tema
mounir escribió: