Access - Error con la síntaxis en filtrado SQL

Hola a todos,

Solicito la ayuda de Vds. para resolver un problema con un filtrado en mi formulario.
El error es de síntaxis y no logro resolverlo debido a mi inexperiencia, a ver si me pueden ayudar por favor.
Tengo los siguientes campos en la tabla y los siguientes controles en mi formulario:

FACTURA y TIPO son campos de Texto de una tabla, los valores los recojo de una caja de texto llama -Txtfactura- y de un cuadro combinado llamado -Cmtipo- que puede tener 3 valores, (valores posibles, "nada ó nulo", "S" y "N".

Quiero filtrar teniendo en cuenta ambas condiciones, he puesto este código pero me arroja un error de "no coincden los tipos" y me marca el error en la línea donde tengo la cadena de búsqueda.



Saludos cordiales para todos, espero me ayuden.
Ana

Filtros, filtros, a mi no me gusta llamarlos filtros, sino condiciones que ha de reunir la colsulta, y ya se que parece lo m ismo, pero no me gusta la palabra filtro para referirse a unos condicionantes .(ES UNA MANIA)

te voy a poner una forma que te va a servir para buscar en cualquier tabla lo que quieras con las condiciones que quieras


ESTO LO PUEDES PONER EN UN BOTON POR EJEMPLO EN EL EVENTO HACER CLIC

Cadena1= Trim(Nz(Me.Txtfactura, ""))
Cadena2= Trim(Nz(Me.Cmtipo, ""))

Set rs = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection

c10 = "": c20 = "": c30 = "": c40 = "": C50 = ""

c10 = "SELECT * FROM [NOMBRE-TABLA] "
c20=" WHERE (
C30= " ( ([NOMBRE-TABLA].FACTURA) LIKE '" & "*" & CADENA1 & "*" & "' )
C40= " AND ([NOMBRE-TABLA].TIPO) = '" & CADENA2 & "' )
C50= " )"


consulta = c10 & c20 & c30 & c40 & C50
rs.Open consulta, CON, adOpenDynamic, adLockOptimistic

IF RS.EOF=FALSE THEN
rs.MoveLast
rs.MoveFirst
END IF



CUENTA = 0
Do While rs.EOF = False
REM AQUI SE RECORRE EL RECORSET Y PUEDES HACER LO QUE QUIERAS
MSGBOX = RS.Fields("FACTURA").Value

rs.MoveNext
Loop


RS.Close

REM ---------------------------------------------------
REM SI LO QUE QUIERES ES PONERLO COMO ORIGEN DEL FORMULARIO

c10 = "": c20 = "": c30 = "": c40 = "": C50 = ""

c10 = "SELECT * FROM [NOMBRE-TABLA] "
c20=" WHERE (
C30= " ( ([NOMBRE-TABLA].FACTURA) LIKE '" & "*" & CADENA1 & "*" & "' )
C40= " AND ([NOMBRE-TABLA].TIPO) = '" & CADENA2 & "' )
C50= " )"


CONSULTA = c10 & c20 & c30 & c40 & C50

ME.RECORSOURCE= CONSULTA



OJO EN ESTE CASO(
Cadena1= Trim(Nz(Me.Txtfactura, ""))) CON EL "" YA QUE VACIO NO ES LO MISMO QUE NULO

Jose,
Agradecida enormemente por tus explicaciones, ¿tienes página web?, me encantaría poder aprender código de la manera que lo plasmas en este ejemplo, lo de separar por bloques la consulta es la primera vez que lo veo y ofrece mucha más claridad.

Si me permites y no te causa molestias me gustaría preguntarte:

Porqué mueves el recordset al final y seguido al principio? me refiero a ésto, me lo puedes explicar:
IF RS.EOF=FALSE THEN
rs.MoveLast
rs.MoveFirst
END IF

En la línea c20 ¿no faltan comillas?

Yo hasta ahora he usado DAO, podría adaptar éste ejemplo, qué opinas, o no funcionaría.

Saludos y te doy las gracias de nuevo.
Ana