MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    como aplicar um filtro em uma caixa de listagem

    Compartilhe

    RodriguesChqao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 48
    Registrado : 31/05/2016

    como aplicar um filtro em uma caixa de listagem

    Mensagem  RodriguesChqao em Sab 16 Jul 2016, 03:12

    Boa noite
    Qual e o comando que devo colocar em uma caixa de texto para aplicar um filtro em uma caixa de listagem.
    Posteriormente gostaria de abrir um formulário com este com o valor selecionado na caixa de texto.

    Alguém dos magos poderia me passar o bizu.

    obrigado!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2304
    Registrado : 14/08/2013

    Re: como aplicar um filtro em uma caixa de listagem

    Mensagem  FabioPaes em Sab 16 Jul 2016, 03:26

    Tudo que precisa feito de forma bem simples aqui:
    [Você precisa estar registrado e conectado para ver este link.]
    Mensagem Nº 02.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    RodriguesChqao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 48
    Registrado : 31/05/2016

    filtro em caixa de listagem

    Mensagem  RodriguesChqao em Seg 18 Jul 2016, 00:55

    Boa noite Fábio!

    A origem da minha caixa de listagem é uma consulta

    Dentro dos meus leigos conhecimentos tentei adaptar o seu código da seguinte maneira:


    Private Sub txtNome_Change()

    Dim strSql As String

    strSql = "SELECT [NomeOM], [Motivo], Nr Inventario, Data, Protocolo FROM qry iventario_2 WHERE " & _
    "strConv(NomeOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "OR strConv(Motivo, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "OR strConv([Nr Inventario], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "ORDER BY NomeOM;"

    Me!lstOM.RowSource = strSql

    End Sub

    No teste quando começo a digitar a caixa de combinação fica vazia.
    Não sei o que deu errado.
    Se você tiver a dica agradeço.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2304
    Registrado : 14/08/2013

    Re: como aplicar um filtro em uma caixa de listagem

    Mensagem  FabioPaes em Seg 18 Jul 2016, 02:18

    Contem alguns errinhos amigo...
    Quando o Nome do Campo tem Caracter especial ou Espçao ele deve ficar dentro de Colchetes [nome do campo] e nao nome do campo.

    strSql = "SELECT [NomeOM], [Motivo], Nr Inventario, Data, Protocolo FROM qry iventario_2 WHERE " & _
    "strConv(NomeOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "OR strConv(Motivo, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "OR strConv([Nr Inventario], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "ORDER BY NomeOM;"

    Mude para:

    strSql = "SELECT [NomeOM], [Motivo], [Nr Inventario], [Data], Protocolo FROM [qry iventario_2] WHERE " & _
    "strConv(NomeOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "OR strConv(Motivo, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "OR strConv([Nr Inventario], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
    "ORDER BY NomeOM;"



    Veja se resolve! Veja tambem se os nomes dos campos estão certos...



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: como aplicar um filtro em uma caixa de listagem

    Mensagem  Alexandre Neves em Seg 18 Jul 2016, 08:32

    Bom dia,
    Movi o tema para esta sala.
    A sala de repositório serve apenas para disponibilizarem exemplos aos colegas, não para colocação de dúvidas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    RodriguesChqao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 48
    Registrado : 31/05/2016

    Re: como aplicar um filtro em uma caixa de listagem

    Mensagem  RodriguesChqao em Ter 19 Jul 2016, 01:13

    [Resolvido] funcionou beleza, inclusive com os outros comandos para abrir formulários e limpar pesquisa. Apenas fiz as adaptações de nome.

    Muito obrigado!

      Data/hora atual: Seg 05 Dez 2016, 04:26