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

    Ir filtrando conforme se digita em cx de listagem

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis em Qui 09 Nov 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
    Anexos
    PDF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (529 Kb) Baixado 21 vez(es)


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

    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  cruzbacelar em Qui 09 Nov 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.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis em Qui 09 Nov 2017, 19:03

    Samuel

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


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

    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  cruzbacelar em Qui 09 Nov 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.
    avatar
    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  APJesus em Sex 10 Nov 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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis em Sex 10 Nov 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 ***
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Silvio em Sab 11 Nov 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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: Ir filtrando conforme se digita em cx de listagem

    Mensagem  Assis em Sab 11 Nov 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 ***

      Data/hora atual: Ter 21 Nov 2017, 17:36