[Resolvido]Ajuda com Código de Pesquisa de Campo

Boa noite!

tenho um sistema que tenho um formulário de estoque, onde tem alguns campos para fazer pesquisa.

Ex:Descrição do Produto, Marca, Categoria

então se tento fazer um filtro não consigo.

ex: tenho 3 tipo de categoria: Bermuda, Calça e Shorte

Marca: Zangs, Doce Trama

então quero saber quantas bermuda da Zangs tem.

então no campo categoria coloco Bermuda. então ele me filtra todas as bermudas das duas marcas, ate ai tudo bem.
Mais quando vou no campo Marca e digito Zangs, é retirado o primeiro filtro, e então retorna um filtro somente no campo de Marca, Selecionado somente Zangs, tirando o filtro da Categoria. Então ele filtra Marca e deixa Categoria sem o filtro.

eu utilizo esse código abaixo nos 3 campos.

Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(CodBarra, 2, 1042) like '*" & StrConv(Me!Texto2.Text, 2, 1042) & "*';"
Me!Lista0.RowSource = strSql

alguém pode me ajuda ?

Tente usar Combobox pra fazer o filtro  fiz um exemplo simple

Bom dia!

Seu exemplo é muito masa, gostei mesmo, mais para usar no meu exemplo ele não de adaptou. Tenho que deixa livre todos os campos de pesquisa, e no seu por exemplo o campo produto depende do que usuário selecionar e categoria.

E so tirar o filtro do campo ele e usado para fazer uma pré pesquisa caso tenha varias registros outra ideia e usar caixa de texto para pesquisa

Amigo ! vou disponibilizar um exemplo do campo que to com duvida.

ao acessar o formulario "FRM_MOV_Estoque_VendaCompra".

Observe que tem um campos em laranja, são as caixa que utilizo para digitar e fazer  o filtro na caixa de listagem.

agora tenta seguir essa sequencia para tenta entender meu problema.

quero saber quantas calça tenho da bahsiko, Sendo que quando seleciona bahsiko no campo Marca ele filtra somente essa marca. Ate ai tudo bem, mais ai tente coloca Calça na categoria, ele me filtra todas as calças cadastradas de todas as Marcas.

As suas buscas não tem referencia em outros são independente pra funcionar como vc quer
teria q ter uma rotina mais o menos assim

Se descrição = Null
filtro = Categoria
Senão
filtro = Categoria,descrição

boa Noite,

Não tenho um conhecimento aprofundado com linguagem vba, você poderia me ajuda um pouco mais e detalha. por favor ? desculpa pela ignorância.

o código do ultimo exemplo de Fábio Paes nesse tópico acho que te ajuda
https://www.maximoaccess.com/t26249-resolvidoformulario-de-pesquisa-caixa-de-listagem#189149

baixe o arquivo, Pesquisa por Termos

Fiz o teste, e é o mesmo do meu, ele so filtra uma caixa por vez, ao digitar ele retira o filtro da outra.

Bom dia;

Talvez esse meu exemplo possa te dar uma solução tente adaptar em seu projeto.

Boa tarde atodos

Não conseguir adaptar o seu exemplo ao meu, vou deixa um exemplo que preciso, "SE  você puder tenta pra me agradeço"

Ao abrir o FRM tem uma explicação do que preciso e não to conseguindo.

Ola...

Altere o campo descrição para este e veja se ajuda

Código:

Private Sub Texto4_Change() 'Descrição
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(Descriçao, 2, 1042) like '*" & StrConv(Me!Texto4.Text, 2, 1042) & "*' And strConv(Referencia, 2, 1042) like '*" & StrConv(Me!Texto10, 2, 1042) & "*';"
    Me!Lista0.RowSource = strSql
   
End Sub

Aguardamos Retorno

Abraços

Boa noite

Isso amigo, tudo que preciso é isso, perfeito!!!!!!

Agora assim, tentei adicionar os outros campos, mais não deu certo.

Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(CodBarra, 2, 1042) like '*" & StrConv(Me!Texto2.Text, 2, 1042) _
& "*' AndstrConv(Referencia, 2, 1042) like '*" & StrConv(Me!Texto10.Text, 2, 1042) _
& "*' And strConv(Descriçao, 2, 1042) like '*" & StrConv(Me!Texto4, 2, 1042) & "*';" _
& "*' And strConv(Categoria, 2, 1042) like '*" & StrConv(Me!Texto64, 2, 1042) & "*';" _
& "*' And strConv(Marca, 2, 1042) like '*" & StrConv(Me!Texto66, 2, 1042) & "*';" _
& "*' And strConv(Aviso, 2, 1042) like '*" & StrConv(Me!Texto6, 2, 1042) & "*';"
Me!Lista0.RowSource = strSql

tipo coloca para os outros campos fazer o filtro. Poderia me ajuda um pouco mais ??

Olá...

Substitua todos por este e faça o teste

Código:

Private Sub Texto2_Change() 'Codigo Barra
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(CodBarra, 2, 1042) like '*" & StrConv(Me!Texto2.Text, 2, 1042) & "*';"
    Me!Lista0.RowSource = strSql
End Sub

Private Sub Texto10_Change() 'Cod Referencia
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(Referencia, 2, 1042) like '*" & StrConv(Me!Texto10.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*';"
    Me!Lista0.RowSource = strSql
End Sub

Private Sub Texto4_Change() 'Descrição
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(Descriçao, 2, 1042) like '*" & StrConv(Me!Texto4.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*';"
    Me!Lista0.RowSource = strSql
End Sub

Private Sub Texto64_Change() 'Categoria
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(Categoria, 2, 1042) like '*" & StrConv(Me!Texto64.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*';"
    Me!Lista0.RowSource = strSql
End Sub

Private Sub Texto66_Change() 'Marca
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(Marca, 2, 1042) like '*" & StrConv(Me!Texto66.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Categoria like '*" & Me!Texto64 & "*';"
    Me!Lista0.RowSource = strSql
End Sub

Private Sub Texto6_Change() 'Aviso
    Dim strSql As String
    strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
    "strConv(Aviso, 2, 1042) like '*" & StrConv(Me!Texto6.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Categoria like '*" & Me!Texto64 & "*' And Aviso like '*" & Me!Texto6 & "*';"
    Me!Lista0.RowSource = strSql
End Sub


Aguardo retorno

Abraços

Bom dia!!!

Perfeito!! fiz algumas modificações no últimos códigos e consegui fazer o que precisava. Mais enfim, ta tudo funcionando como precisava, vou colocar o código para se alguem tiver essa mesma duvida minha.

Muito Obrigado por Todos que disponibilizaram o tempo de vocês para me ajuda.

'codigo barra
Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(CodBarra, 2, 1042) like '*" & StrConv(Me!Texto2.Text, 2, 1042) & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Categoria like '*" & Me!Texto64 & "*' And Marca like '*" & Me!Texto66. & "*' And Aviso like '*" & Me!Texto6 & "*';"
Me!Lista0.RowSource = strSql

'codigo Referencia
Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(Referencia, 2, 1042) like '*" & StrConv(Me!Texto10.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Categoria like '*" & Me!Texto64 & "*' And Marca like '*" & Me!Texto66. & "*' And Aviso like '*" & Me!Texto6 & "*';"
Me!Lista0.RowSource = strSql

'codigo Descrição
Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(Descriçao, 2, 1042) like '*" & StrConv(Me!Texto4.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Categoria like '*" & Me!Texto64 & "*' And Marca like '*" & Me!Texto66. & "*' And Aviso like '*" & Me!Texto6 & "*';"
Me!Lista0.RowSource = strSql

'codigo Categoria
Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(Categoria, 2, 1042) like '*" & StrConv(Me!Texto64.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Marca like '*" & Me!Texto66. & "*' And Aviso like '*" & Me!Texto6 & "*';"
Me!Lista0.RowSource = strSql


'codigo Marca
Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(Marca, 2, 1042) like '*" & StrConv(Me!Texto66.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Categoria like '*" & Me!Texto64 & "*' And Aviso like '*" & Me!Texto6 & "*';"
Me!Lista0.RowSource = strSql

'codigo Aviso
Dim strSql As String
strSql = "SELECT IDProduto,CodBarra,Referencia,Descriçao,Categoria,Marca,Aviso,ValorUnitario,Venda,Compra,Estoque,Total,ValorFornecedo FROM CS_Estoque_VendaCompra WHERE " & _
"strConv(Aviso , 2, 1042) like '*" & StrConv(Me!Texto6.Text, 2, 1042) & "*' And CodBarra like '*" & Me!Texto2 & "*' And Referencia like '*" & Me!Texto10 & "*' And Descriçao like '*" & Me!Texto4 & "*' And Categoria like '*" & Me!Texto64 & "*' And Marca like '*" & Me!Texto66 & "*';"
Me!Lista0.RowSource = strSql

Olá..

Fico feliz por poder ter ajudado.

O Fórum agradece o seu retorno

Abraços