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

    Ir filtrando conforme se digita em cx de listagem

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Ir filtrando conforme se digita em cx de listagem Empty Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis 9/11/2017, 13:11

    Boa tarde Amigos

    No exemplo que anexo segue uma BD que na mesma pasta tem outra pasta com o nome "PDF", aonde se guardam os documentos em .pdf.

    Na BD ao abrir o único formulário tem uma caixa de listagem que lista os PDF que estão na pasta da BD.

    Queria na caixa de "Pesquisar" em cima que filtrasse conforme se vai digitando.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    cruzbacelar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  cruzbacelar 9/11/2017, 18:50

    Olá amigo,
    Verifiquei o seu BD que ele está fazendo oque você deseja.Se você digita letra na busca que tenha em vários títulos dos pdfs ,esses que contém a letra vão se manter na lista.Faça um teste e digite uma letra que não tem em nenhum pdf (ex letra X),pra você ver como filtra.
    Abraço.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis 9/11/2017, 19:03

    Samuel

    Quando digitar a letra "A" devia esconder as outras .


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    cruzbacelar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  cruzbacelar 9/11/2017, 19:10

    Assis, ele não esconde porque ele está filtrando o título inteiro e não a primeira palavra do título.Como a letra a está em todos os títulos ele não vai esconder.Acredito que teria que ajeitar o código para que seja filtrado apenas a primeira palavra dos títulos.Mas aí é algo mais avançado que não poderei ajudar.Mas logo alguém com mais entendimento que eu irá te ajudar.Aqui tem muitas pessoas expert no Access.
    Abraço.
    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  APJesus 10/11/2017, 13:31

    Assis, Bom dia!

    Supondo que a Lista tenha o nome de: Lista1
    e o campo de procura para atualizar a lista seja: Comb_Procura, segue:

    No form

    Option Compare Database
    Dim VarTecla


    Private Sub Comb_Procura_Change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    Me.Comb_Procura.SelStart = 255
    End If
    End Sub

    Private Sub Form_Load()
    KeyPreview = True
    Me.Lista1 = " "
    End Sub

    Ve aí se funfa! Tenho aqui e fica na perfeição.
    Conforme vai digitando na TextBox, vai atualizando a Lista, ok?

    Abraços
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis 10/11/2017, 20:22

    Alessandro

    Funciona como o exemplo que postei.

    A diferença aqui é a origem dos dados que aparecem na caixa de listagem.

    O que aparece na caixa de listagem são os documentos .pdf que estão na pasta da Base de Dados

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Silvio 11/11/2017, 12:58

    Bom dia a todos...

    Assis, de onde vem a tua lista0 ?  Qual a origem de dados da mesma !

    Tente adaptar esses dois códigos a tua necessidade

    Private Sub Pesquisa_Change()
    Dim C As String, x As String
    x = Me.Pesquisa.Text--> sua txtbox aqui.
    C = " where CPFCNPJ like '*" & x & "*' or nome like '*" & x & "*'" --> seus campos que quer pesquisar aqui
    Me.LstCliente.RowSource = " SELECT idclientevar, CPFCNPJ, nome FROM TblClienteVar " & C --> mudar de tblClienteVar para a tua tabela
    End Sub

    Private Sub Pesquisa_GotFocus()
    On Error Resume Next
    Pesquisa.SelStart = 0
    Pesquisa.SelLength = Len(Pesquisa.Text)
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis 11/11/2017, 13:03

    Olá Silvio

    A origem dos dados são os documentos .pdf que estão na pasta da Base de Dados.

    Abraço


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    Ir filtrando conforme se digita em cx de listagem Empty Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 08:38