Filtrar registros.

Tengo un formulario en el cual puedo introducir cuatro palabras que luego utilizo como criterio de búsqueda para filtrar los registros que contengan alguna de esas palabras en el campo Descripción. El código se dispara al hacer clic a un botón. En general funciona bien pero, he comprobado que si ingroduzco la palabra GALICIA, me saca todos los registros en que esa palabra aparece en el campo DESCRIPCIÓN... Hasta aquí, todo bien. Pero resulta que también me saca una serie de registros que contienen la palabra GALLEGAS lo cual, en principio, no es correcto. Te adjunto el código para que le eches un vistazo y me digas qué hago mal. ¿Tal vez sería mejor utilizar una SQL en lugar de un filtro?
'=================================
Dim ClaveBusca As String
'-- Montamos el criterio de búsqueda
ClaveBusca = "[Descripcion] Like " & Chr$(34) & "*" & Me.txtPalabra1 & "*" & Chr$(34)
If Not IsNull(Me!txtPalabra2) Then
ClaveBusca = ClaveBusca & " " & Me!ANDOR & " [Descripcion] Like " & Chr$(34) & "*" & Me.txtPalabra2 & "*" & Chr$(34)
End If
If Not IsNull(Me!txtPalabra3) Then
ClaveBusca = ClaveBusca & " " & Me!ANDOR & " [Descripcion] Like " & Chr$(34) & "*" & Me.txtPalabra3 & "*" & Chr$(34)
End If
If Not IsNull(Me!txtPalabra4) Then
ClaveBusca = ClaveBusca & " " & Me!ANDOR & " [Descripcion] Like " & Chr$(34) & "*" & Me.txtPalabra4 & "*" & Chr$(34)
End If
'=================================
Me.Visible = False
'-- Filtramos los registros
DoCmd.ApplyFilter , ClaveBusca
Me.txtResultado = ClaveBusca
Me.Visible = True
Me!cmdStop.SetFocus
' Me!cmdFiltra.Visible = False
' DoCmd.Close
==========================

1 Respuesta

Respuesta
1
La mayoría de las veces, cuando queremos usar más de un criterio de búsqueda, lo más cómodo es usar un formulario independiente y que este se encargue de filtrar sobre una consulta, p.e.:
Como ConvertNulls([Forms]![CategoryCriteria]![ID];"*") Or Es Nulo
Esto seria un criterio en la consulta, usando una función personalizada
Function ConvertNulls(v As Variant, subs As Variant) As Variant
If (IsNull(v)) Then
ConvertNulls = subs
Else
ConvertNulls = v
End If
End Function
Pero si en tu caso de lo que se trata es de filtrar sobre un campo del formulario puedes usar esto otro:
Añades un cuadro de texto independiente para que nos sirva de cadena de criterios, y un botón de comando para ejecutar el siguiente Sub:
Sub EsFiltro()
On Error Resume Next
Dim frm As Form, cadMsg As String
Dim cadInput As String, cadFiltro As String
' Abrir
DoCmd.OpenForm "ClientesFiltro"
' Devolver variable de objeto Formulario
Set frm = Forms!ClientesFiltro
cadInput = Me.CtlTextIndp 'el texto que escribamos finalizado con un * servirá
'para construir la cadena de criterios usando el campo IdCliente.
cadFiltro = BuildCriteria("IdCliente", dbText, cadInput)
' Establecer propiedad Filtro para aplicar Filtro.
frm.Filter = cadFiltro
' Establecer la propiedad ActivarFiltro; el formulario muestra ahora los registros filtrados.
frm.FilterOn = True
End Sub
NOTA: espero tener pronto una .mdb lista con algunos formularios de ejemplo y métodos para buscar registros y valores.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Obtener datos de una tabla desde visual basic

Quiero obtener el dato de una campo determinado de una tabla determinada, el último registro para ser concretos. Y para obtener el ultimo registro, ¿Con un criterio sobre otro campo?
1 respuesta

Ayuda para corregir una consulta select en SQL

A ver si puedes solucionarme esto; Trabajo en visual basic y access, y aunque no entran en tu categoría visual basic, lo que quiero saber es el formato de una consulta SQL. Lo que quiero es que me devuelva todos los registros en los cuales en el...
1 respuesta

Aplicar varios filtros

¿Cómo puedo aplicar varios filtros sobre los datos de un formulario y que estos filtros sean acumulativos? Esto es por ejemplo tengo 3 combos en el formulario que utilizo para definir los filtros que quiero que se apliquen, así por ejemplo si...
1 respuesta

Filtros en formularios dependiendo de cuadros de texto

Como puedo aplicar varios filtros en un formulario dependiendo de lo que digite en varios cuadros de texto, he encontrado el siguiente código pero solamente me filtra lo que digite en el cuadro y no me deja filtrado los otros cuadros si tienen algún...
1 respuesta

Filtro en visual basic

Quiero aplicar un filtro a un formulario desde visual basic mediante un evento cuando habrá el formulario. Mi problema es cuando quiero filtrar los datos mediante dos campos del formulario, no se que operador utilizar.
1 respuesta

Access, ¿Cómo hacer una consulta masiva?

He ingresado los parámetros de búsqueda o criterios para poder filtrar los registros, usando para el caso dos formularios distintos para lo cual he realizado un formulario de parámetros, y otro con la consulta con criterios haciendo referencia al...
1 respuesta

Filtrar por contenido de campo

Quiero filtrar una consulta por el contenido de un cuadro de textode un formulario, pero unas veces que me busque los registros con lo que yo ponga y otras lo que sea distinto a lo que yo ponga. Para eso pongo una casilla de verificación en la que...
1 respuesta

Consultas con criterios avanzados Access 2007

Tengo un formulario con nombre "Buscador " en el cual estoy diseñando diferentes consultas y los resultados me los muestra en un subformulario independiente para cada consulta que alterno mediante botones de comando. La consulta que quiero hacer...
1 respuesta

Pantalla de búsqueda permanente.

¿Cómo podría hacer para que la pantalla de búsqueda del Access me permitiera modificar datos del formulario en el que estoy buscando sin necesidad de cerrarla?. Es para que sea más cómodo cuando estas buscando algo, como lo tengo ahora, si quiero...
1 respuesta

Que si quieres arroz Catalina

He hecho las modificaciones en el código y me ha quedado como sigue: Private Sub Boton2000_Click() Dim filtroviejo As String, filtronuevo As String filtroviejo = Me.Filter filtronuevo = "(" & filtroviejo & ") and (year([FechaIn])=2000)" Me.Filter =...
1 respuesta