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

    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 : 215
    Registrado : 01/12/2016

    Ajuda com Código de Pesquisa de Campo

    Mensagem  Misson Lira em Dom 10 Jun 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 Dom 10 Jun 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 : 215
    Registrado : 01/12/2016

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Misson Lira em Seg 11 Jun 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 Seg 11 Jun 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 : 215
    Registrado : 01/12/2016

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Misson Lira em Seg 11 Jun 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 6 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 Ter 12 Jun 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 : 215
    Registrado : 01/12/2016

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Misson Lira em Ter 12 Jun 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 Ter 12 Jun 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 : 215
    Registrado : 01/12/2016

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Misson Lira em Ter 12 Jun 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 : 1941
    Registrado : 13/04/2012

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Fernando Bueno em Ter 12 Jun 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 6 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 : 215
    Registrado : 01/12/2016

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Misson Lira em Seg 18 Jun 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 3 vez(es)
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Ajuda com Código de Pesquisa de Campo

    Mensagem  Celso Roberto Ontem à(s) 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.....

      Data/hora atual: Qua 20 Jun 2018, 12:42