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

5 participantes

    [Resolvido]Dificuldade com filtrar ao digitar.

    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 6/10/2022, 03:34

    Boa noite pessoal, estou tentando criar um filtro numa caixa de texto que me permita filtrar num formulário a medida que eu for digitando. Estou usando um código que até funciona , mas o problema é que eu não consigo terminar de digitar o que quero na caixa de texto. Se quero digitar "João" eu começo pela letra "j" mas se tento digitar o "o" a letra "j" some e fica somente a letra "O".

    O código que estou executando é esse abaixo.

    Dim strFiltro As String
    strFiltro = "cliente LIKE '*" & Me.txtcliente1.Text & "*' "
    Filter = strFiltro
    FilterOn = True
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2389
    Registrado : 23/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  crysostomo 6/10/2022, 14:27

    Em qual evento colocou? Ao alterar?
    caso não, coloque aqui seu Bd


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3662
    Registrado : 21/04/2011

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  Marcelo David 6/10/2022, 19:32

    Boa tarde senhores,

    Veja essa minha videoaula que ensino a fazer essa filtragem (apesar de não recomendar para bases muito grandes, principalmente em rede). Clique aqui e assista.

    Bons estudos.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Dificuldade com filtrar ao digitar. Marcel11

    crysostomo gosta desta mensagem

    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 7/10/2022, 19:35

    Oi crysostomo, tudo bem? Coloquei no evento ao alterar. Vou colocar o banco aqui. Marcelo, obrigado pela dica.
    Anexos
    [Resolvido]Dificuldade com filtrar ao digitar. Attachmentteste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 5 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2389
    Registrado : 23/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  crysostomo 7/10/2022, 19:38

    Boa tarde. Só começarei mexer a noite.
    Enquanto isso dá uma olhada  no vídeo do Marcelo.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 19/08/2010

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  marcelo3092 10/10/2022, 16:49

    Fiz dois modelo pra vc um com listbox e outro com subformulario a medida que vai digitando ele vai filtrando e tb aceita espaço. Usando Consulta com campo concatenado para poder pesquisar lembrando que se precisar pesquisar em mais campo basta adicionar na concatenação da consulta.
    Anexos
    [Resolvido]Dificuldade com filtrar ao digitar. Attachmentteste1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 4 vez(es)
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 11/10/2022, 00:44

    Oi marcelo, primeiro obrigado por ajudar. Estou usando o código abaixo ele até executa a pesquisa, mas não permite dar espaço. Se eu conseguir inserir o espaço então meu problema estará resolvido.


    Dim strFiltro As String
    On Error Resume Next
    Me.KeyPreview = True


    strFiltro = "cliente LIKE '*" & Me.txtcliente1.Text & "*' "

    Filter = strFiltro


    Me.txtcliente1.SetFocus
    CreateObject("Wscript.shell").SendKeys "{F2}"
    FilterOn = True
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 12/10/2022, 21:09

    Oi marcelo, tentei copiar teu exemplo para poder fixar, mas ao concluir não consegui inserir o espaço na caixa de texto. Poderia me ajudar a descobrir onde está o erro?
    Anexos
    [Resolvido]Dificuldade com filtrar ao digitar. Attachmenttestefiltro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 3 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2389
    Registrado : 23/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  crysostomo 13/10/2022, 01:33

    Boa noite Srs. foi resolvido?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 13/10/2022, 02:59

    Oi crysostomo ,boa noite. Não foi resolvido ainda, tentei reproduzir um exemplo do Marcelo, mas não estou conseguindo colocar espaço na caixa de texto.Coloquei o banco acima.
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 11/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  Anslu 14/10/2022, 02:08

    Boa noite! ver se é isso
    Anexos
    [Resolvido]Dificuldade com filtrar ao digitar. AttachmenttestefiltroRev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 15 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2389
    Registrado : 23/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  crysostomo 14/10/2022, 02:45

    Boa noite, filtro perfeto.
    Os filtros do nossos colega com códigos enxutos, essenciais.
    Bota pra rodar no seus projetos.




    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 15/10/2022, 00:39

    Mestre anslu, boa noite. Obrigado pela solução. Onde estava meu erro? Como você efetuou a correção?

    joaquimbras gosta desta mensagem

    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 11/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  Anslu 18/10/2022, 01:29

    Boa noite! Correção 1
    Anexos
    [Resolvido]Dificuldade com filtrar ao digitar. Attachment01.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (99 Kb) Baixado 7 vez(es)


    Última edição por Anslu em 18/10/2022, 01:30, editado 1 vez(es)
    avatar
    Anslu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 11/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  Anslu 18/10/2022, 01:30

    Boa noite! Correção 2

    Grande abraço! Fica com Deus!
    Anexos
    [Resolvido]Dificuldade com filtrar ao digitar. Attachment02.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (131 Kb) Baixado 6 vez(es)
    avatar
    clemerson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 28/02/2012

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  clemerson 18/10/2022, 19:14

    Perfeito mano, obrigado.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2389
    Registrado : 23/01/2018

    [Resolvido]Dificuldade com filtrar ao digitar. Empty Re: [Resolvido]Dificuldade com filtrar ao digitar.

    Mensagem  crysostomo 19/10/2022, 12:35

    Sucesso Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 1/2/2023, 06:07