Buscar un dato sólo en los registros filtrados

Mientras Jacinto te prepara su ejemplo, te comento que la forma de hacerlo es encadenar los dos filtros. Por ejemplo si primero filtras por los libros que existen, en tu código tendrás lineas como estas:

Dim miFiltro As String

miFiltro="Existentes=True"

Me.Filter=miFiltro

Me.FilterOn=True

Si ahora quieres filtrar los libros del año 2015, como te decía, has de encadenar los filtros. En el procedimiento en el que hagas el segundo filtrado yo haría:

Dim miFiltro As Stting

miFiltro=Me.Filter  'Coges el filtro actual

miFiltro= miFiltro & " AND Año=2015"  'Encadenas el nuevo criterio

Me.FilterOn=True  'Aplicas el filtro compuesto

La idea es, en resumen, coger el filtro anterior (lo tienes en Me. Filter), le añades el operador AND (con un espacio antes de la A) y el nuevo criterio de filtro, que se lo puedes poner directamente como el ejemplo del año, o vincularlo a un control de tu formulario.

Un saludo.

Hola Sveinbjorn

Lo de endadenar varios filtros para hacer uno compuesto lo entiendo como concepto pero la parte técnica me falla, lo que quiero es poder buscar dentro del filtro un dato.

¿Cómo podría dentro después de filtrar por los libros que existen, poder buscar solo en esos registros un dato?

Yo había puesto esto pero no funciona:

Con un botón "EXISTENTES" aplico el filtro:

Dim miFiltro As String

miFiltro="Existentes=True"

Me.Filter=miFiltro

Me.FilterOn=True

y luego creo un botón de búsqueda de datos solo en los registros filtrados, los existentes.

If miFiltro="Existentes=True" then

Me.RecordSource = "Select * from Libros where titulo like '" & Me.txt_Buscar & "' " & _
"or titulo like '* " & Me.txt_Buscar & " *' " & _
"or titulo like '* " & Me.txt_Buscar & "' " & _
"or titulo like'" & Me.txt_Buscar & " *' " & _
“or categoria like '" & Me.txt_Buscar & "' " & _
"or categoria like '* " & Me.txt_Buscar & " *' " & _
"or categoria like '* " & Me.txt_Buscar & "' " & _
"or categoria like '" & Me.txt_Buscar & " *' " & _
“or genero like '" & Me.txt_Buscar & "' " & _
"or genero like '* " & Me.txt_Buscar & " *' " & _
"or genero like '* " & Me.txt_Buscar & "' " & _
"or genero like '" & Me.txt_Buscar & " *' "

end if

Quiero hacer la búsqueda de datos dentro del filtro de los libros existentes.

Si pudieras indicarme cómo quedaría exactamente.

Un saludo y muchas gracias por la ayuda

Pues si lo entiendes a nivel teórico, lo tienes explicado de la forma más sencilla en mi respuesta, pero si quieres ver algo más complejo, visita este ejemplo de Neckkito: http://siliconproject.com.ar/neckkito/index.php/component/content/article/93-ejemplos-explicados/ejemplos-de-formularios/194-crear-un-filtro-multiple

El código que pones no te funciona por una sencilla razón, no estás teniendo en cuenta el primer filtro (Existe=True) al asignarle el recordset al formulario. Dicho de otra forma, tienes que encadenar ese filtro con el que haces para buscar el título.

Tienes dos opciones:

1º/ Me.RecordSource = "Select * from Libros where Existentes=True AND titulo like '" & Me.txt_Buscar & "' " & _ ....

2º/ ... "or genero like '" & Me.txt_Buscar & " *' AND Existentes=True"

En ambos casos el if te sobra, a mi modo de ver.

Depro: Tú y Diego estáis muy trabajadores en éste comienzo de año. Te estoy contestando desde fuera de mi PC, al igual que algún comentario que acabo de responder.

Te contesto "ASAP". Es para no decirte Estoy en ello. Saludos >> jacinto

Muchas gracias Jacinto

Sí al principio de año siempre tengo propósitos de enmienda y buenas intenciones de terminar objetivos. A ver si me dura je je

Un saludo

Depro: Creo tener bastante claro lo que pretendes, y en ese sentido si tu así lo quieres, te puedo personaliar un Visor del estilo de éste que tengo en>>

http://www.mediafire.com/download/j2tnbpvxs61inpz/BDIngSocial_02.rar 

Para ello si que necesitaría tu BD con solo los Objetos implicados, que pueden ser la Tabla de Libros y alguna asociada si es que la hay, con unos cuantos datos inventados si los que tienes llevan algo Confidencial.

Puedes poner tu BD en un enlace aquí o mandarmela a [email protected]

En cualquiera de los dos casos, si es que lo autorizas, el resultado lo haría público en un enlace aquí, y si no te lo envío a tu correo personal. Saludos >> Jacinto

Hola Jacinto

Antes que nada muchas gracias por las molestias

El ejemplo último que me has mandado no lo puedo abrir.

Tengo instalados access 2003 y access 2007, éste último para poder abrir los  archivos access con el nuevo formato .accdb.

He intentado abrir tu archivo BDIngSocial_02 y el access 2007 me salta un mensaje de que no reconoce el formato... pero es muy raro porque el resto de ejemplos que me has enviado los he abierto sin problemas con el access 2007. Si me lo pudieras volver a enviar, o comproblar si se puede abrir... y así veo el visor que me comentas.

Estoy preparando la BD con lo básico para enviártela via email.

Un saludo gracias por la ayuda

Depro: He modificado una BD en Formato .mdb y creo que lo podrás abrir ahora.

http://www.mediafire.com/download/re8br02jl97am6a/FiltraVarios.rar 

He comenzado a prepararte algo sobre las otras dos preguntas.

Un saludo >> Jacinto

Hola Jacinto

Yo puedo abrir tus ejemplos perfectamente en access 2007 que como te comentaba me permite ver archivos en accdb. por eso si puedes comprobar por qué no se abre el archivo BDIngSocial_o2 y me lo reenvías, más que nada por ver el visor.

Prefiero Jacinto que me envíes los ejemplos con el formato nativo de tu versión de access que supongo que es accdb.

Hasta ahora siempre he podido abrir tus ejemplos y están en accdb.

No es necesario de verdad que me hagas nuevos en mdb, mándamelos con el formato que los tienes creados que puedo abrirlos.

Las otras 2 preguntas que te puse si quieres déjalas con el mismo formato que me has enviado el ejemplo RegistrosSiNoTodos, que creo que accdb, lo prefiero si no te importa.

Ahora te envío mi BD por email

Un saludo y gracias

Depro: El enlace que te acabo de poner arriba" FiltraVarios" es una BD que tenía en Formato .mdb y le he incorporado "Todos" los Objetos de BDIngSocial_02. Accdb.

Si es que crees que puede ser adecuado para ti, te lo incorporaré en tu propia BD.

Por supuesto que lo de Eliminar Duplicados y Evitar duplicados te los Incorporaré en la BD ejemplo que abres perfectamente, que es RegistrosSiNoTodos. Accdb

Mis saludos >> Jacinto

Hola Jacinto

Ok muchas gracias, ahora estudio tu ejemplo

Acabo de enviarte la BD por email.

He quitado todo lo innecesario, consultas, formularios y te la he mandado como me comentaste con lo neceario para crear el visor que es la tabla "Libros".

Por cierto, solo por curiosidad ¿por qué no podré abrir BDIngSocial_0.accdb ... los otros archivos en accdb que me has enviado como RegistrosSiNoTodos.Accdb los he podido abrir sin problemas? Estoy usando access 2007.

De hecho ahora ya no quiero usar el 2003 ni los mdb je je. Al final veo que las nuevas versiones, bueno no tan nuevas ya como 2007 son más potentes.

Un saludo