[Resolvido]Város filtros relatorios

Olá pessoal, joia?

Estou fazendo vários filtros para gerar meu relatorios.
Quando utilizo os filtros da caixa de texto, funciona perfeitamente, mas quando utilizo tbm os filtros na combobox não filtra.

Segue como estou fazendo.

Private Sub bt_Rel_Estoque_Click()

var_NI = txt_PesqNI
var_Nome = txt_PesqNome
var_Categoria = cb_Categoria
var_Local = cb_Local

Dim strReport As String
Dim strWhere As String

'strWhere = "[Produtos.Nome] Like '*" & var_Nome & "*' And " _ ' esta linha da certo
'& " [Produtos.NI] Like '*" & var_NI & "*'"

strWhere = "[Produtos.Nome] Like '*" & var_Nome & "*' And " _
& " [Produtos.NI] Like '*" & var_NI & "*' And " _
& " [Produtos.CategoriaID] Like *" & var_Categoria & "* And" _
& " [Produtos.LocalID] Like *" & var_Local & "*"

strReport = "Rel_Lista_Estoque"

DoCmd.OpenReport strReport, acViewPreview, , strWhere

DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, "Estoque.pdf", True
DoCmd.Close acReport, strReport

End Sub

Obrigado.

var_NI é o nome de uma combo? Ficou parecendo nome de variável. Vou deixar uma dica de um pequeno artigo referente à nomeação de elementos no Access.

Quanto ao caso, tente usar o .Value ou o índice da coluna:

& " [Produtos.NI] Like '*" & var_NI.Value & "*'"
& " [Produtos.NI] Like '*" & var_NI.Column(0) & "*'"

var_NI = txt_PesqNI
var_Nome = txt_PesqNome
var_Categoria = cb_Categoria.Value
var_Local = cb_Local.Value

var é a variável mesmo, eu atribuo as estas variaveis o valor dos controles nos forms.

Testei das duas maneiras e não funcionou.

'strWhere = "[Produtos.Nome] Like '*" & var_Nome & "*' And " _ ' esta linha da certo
'& " [Produtos.NI] Like '*" & var_NI & "*'"
Quando eu deixo somente estes dois filtros, que são a caixa de texto, filtra normal.

agora quando eu incluo os outros filtros que são combobox, abre um popup pedindo pra eu colocar os parametros

strWhere = "[Produtos.Nome] Like '*" & var_Nome & "*' And " _
& " [Produtos.NI] Like '*" & var_NI & "*' And " _
& " Produtos.CategoriaID Like '*" & var_Categoria & "*' And " _
& " Produtos.LocalID Like '*" & var_Local & "*'"

aparece uma janelinha popup Produtos.CategoriaID e depois Produtos.LocalID.

Obrigado.

Isso acontece quando o nome de campo é inexistente na tabela de origem. Verifique se os nomes estão grafados corretamente igual está na tabela.

Vlew criquio.

Eu estava filtrando pelos campos da combo, mas eles não estavam na origem de dados do relatorio.

Obrigado

O fórum agradece o retorno.