Error en código de búsqueda

mifiltro


   Buen día:
Me podrían apoyar con este código me manda un error y tengo el mismo código en otra bd y no tengo ningún problema

Dim vcboT1 As String
Dim mifiltro As String
Dim vlargo As Integer

vcboT1 = Nz(Me.cboT1.Value, "")

mifiltro = ""
If vcboT1 <> "" Then
    mifiltro = "AND [titulo]=" & vcboT1
End If

vlargo = Len(mifiltro)
If vlargo > 0 Then
    mifiltro = Right(mifiltro, vlargo - 4)
End If
Me.buscar.Form.Filter = mifiltro
Me.buscar.Form.FilterOn = True

y me marca el error 3075:
Erro de sintaxis (falta operador) en la expresión de la consulta

De antemano muchas gracias por su ayuda

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Nasser09 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 18/Abril/2017 Localización: México Estado: Sin conexión Puntos: 71	Opciones de entrada Responder Cita Nasser09 Informar de mensaje Gracias(0) Cita Respuesta Tema: Error en código de búsqueda Enviado: 04/Marzo/2021 a las 01:37
	Buen día: Me podrían apoyar con este código me manda un error y tengo el mismo código en otra bd y no tengo ningún problema Dim vcboT1 As String Dim mifiltro As String Dim vlargo As Integer vcboT1 = Nz(Me.cboT1.Value, "") mifiltro = "" If vcboT1 <> "" Then mifiltro = "AND [titulo]=" & vcboT1 End If vlargo = Len(mifiltro) If vlargo > 0 Then mifiltro = Right(mifiltro, vlargo - 4) End If Me.buscar.Form.Filter = mifiltro Me.buscar.Form.FilterOn = True y me marca el error 3075: Erro de sintaxis (falta operador) en la expresión de la consulta De antemano muchas gracias por su ayuda

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14025	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 04/Marzo/2021 a las 08:00
	Sería bueno que dijeras la línea que te da el error, ... y sería aún mejor que en esa misma línea comprobaras el valor de las variables que usas. Aunque puestos a adivinar (sin la bola de Emilio, que no hay manera de encontrarla ) diría que te casca en: Me.buscar.Form.Filter = mifiltro Me.buscar.Form.FilterOn = True y la variable mifiltro no tiene un valor adecuado.
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es