MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

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

    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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 ?
    avatar
    abj atila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

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

    Tente usar Combobox pra fazer o filtro  fiz um exemplo simple
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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.
    avatar
    abj atila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  abj atila 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
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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
    [Resolvido]Ajuda com Código de Pesquisa de Campo AttachmentAjuda Pesquisa e filtro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (190 Kb) Baixado 15 vez(es)
    avatar
    abj atila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  abj atila 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
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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.
    avatar
    abj atila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

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

    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
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

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

    Bom dia;

    Talvez esse meu exemplo possa te dar uma solução tente adaptar em seu projeto.
    Anexos
    [Resolvido]Ajuda com Código de Pesquisa de Campo AttachmentFiltro em caixa de listagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 40 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
    [Resolvido]Ajuda com Código de Pesquisa de Campo 16rzeq
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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
    [Resolvido]Ajuda com Código de Pesquisa de Campo AttachmentAjuda Pesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (195 Kb) Baixado 12 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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 ??
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Misson Lira 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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

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

    Olá..

    Fico feliz por poder ter ajudado.

    O Fórum agradece o seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:44