[Resolvido]Consulta com filtros e critérios

Boa noite!

Estou tentando fazer um filtro para um formulário e estou esbarrando na questão de ter valores do tipo string e valores do tipo integer.
Será que alguém poderia me ajudar, pois eu peguei um exemplo do Avelino e apliquei, ele foi bem até eu precisar filtrar o id do formulário.

Segue abaixo meu exemplo:

Private Sub Comando6_Click()
Dim strFiltro As String
If Not IsNull(Me!txtbuscar) Then strFiltro = strFiltro & "nomecliente ='" & Me!txtbuscar & "' AND "
If Not IsNull(Me!txtbuscarfornecedor) Then strFiltro = strFiltro & "fornecedor ='" & Me!txtbuscarfornecedor & "' AND "
If Not IsNull(Me!TXTBUSCARID) Then strFiltro = strFiltro & "tbl_saidas_Mov.idmovimentacao ='" & Me!TXTBUSCARID & "' AND "
If Not strFiltro = "" Then strFiltro = Left(strFiltro, Len(strFiltro & "") - 5)
DoCmd.OpenReport "rel_pedido_grid_compras", acViewPreview, , strFiltro
End Sub

Nota: quando tiro fora a linha "if......txtbuscarid" o filtro vem como programado, entretanto se faz necessário que o ID também seja filtrado.


Espero que possam me ajudar

Abraço

Assunto muito falado neste fórum. Textos devem ficar entre aspas, datas entre cerquilhas, números não precisar ficar entre nada.

.. "tbl_saidas_Mov.idmovimentacao ='" & Me!TXTBUSCARID & "' AND "

Retire as aspas simples apontadas em vermelho.

Bom dia Damasceno!

Deu certinho....falta de atenção minha.
Obrigado mais uma vez

Abraço

O fórum agradece o retorno. Sucesso.