MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 10/6/2018, 00:19

    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 ?

    abj atila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/01/2018

    Ajuda com Código de Pesquisa de Campo

    Mensagem  abj atila em 10/6/2018, 17:00

    Tente usar Combobox pra fazer o filtro  fiz um exemplo simple

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 11/6/2018, 13:30

    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.

    abj atila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/01/2018

    Ajuda com Código de Pesquisa de Campo

    Mensagem  abj atila em 11/6/2018, 15:24

    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

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 11/6/2018, 16:09

    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.
    Anexos
    Ajuda Pesquisa e filtro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (190 Kb) Baixado 13 vez(es)

    abj atila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/01/2018

    Ajuda com Código de Pesquisa de Campo

    Mensagem  abj atila em 12/6/2018, 00:01

    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

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 12/6/2018, 00:18

    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.

    abj atila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/01/2018

    Ajuda com Código de Pesquisa de Campo

    Mensagem  abj atila em 12/6/2018, 00:57

    o código do ultimo exemplo de Fábio Paes nesse tópico acho que te ajuda
    [Você precisa estar registrado e conectado para ver este link.]

    baixe o arquivo, Pesquisa por Termos

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 12/6/2018, 03:19

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1960
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em 12/6/2018, 13:43

    Bom dia;

    Talvez esse meu exemplo possa te dar uma solução tente adaptar em seu projeto.
    Anexos
    Filtro em caixa de listagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 10 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 18/6/2018, 21:56

    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.
    Anexos
    Ajuda Pesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (195 Kb) Baixado 9 vez(es)
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 19/6/2018, 18:43

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 22/6/2018, 22:53

    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 ??
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 23/6/2018, 15:59

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 24/6/2018, 14:45

    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
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 26/6/2018, 21:47

    Olá..

    Fico feliz por poder ter ajudado.

    O Fórum agradece o seu retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 16/8/2018, 07:34