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

    [Resolvido]Filtrar listbox com evento change em várias textbox

    Compartilhe

    Antonio Tavares
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 22/02/2013

    [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  Antonio Tavares em Seg 29 Maio 2017, 11:17

    Bom dia,

    Mais uma vez recorro aos vossos conhecimentos e generosidade para me apontarem o caminho...
    Já apliquei vários métodos que pesquisei neste excelente fórum e no Google mas nenhum resultou.
    Tenho aprendido muito convosco sobre Access e Vba e tenho "desenvolvido" umas coisas engraçadas que me ajudam bastante no meu trabalho, mas de vez em quando não consigo arranjar solução para o que preciso.
    Penso que é possível fazer porque me parece que já vi em tempos um exemplo (creio que do mestre JPaulo) aqui:

    [Você precisa estar registrado e conectado para ver este link.]

    mas agora não consigo aceder.
    Precisava de ir limitando as linhas numa listbox à medida que vou inserindo o que quero no evento change em várias textbox em ordem aleatória.
    Desde já agradeço a vossa atenção e disponibilidade.

    Anexo dbTeste.

    Cumprimentos
    Anexos
    dbTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 13 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9552
    Registrado : 04/11/2009

    Re: [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  JPaulo em Seg 29 Maio 2017, 13:41

    Olá;

    Uma forma bem simples de filtrar em qualquer campo;

    Download

    Código:
    Private Sub txtFiltra_Change()
    Dim strCriterio$
    Dim strFiltro$

    strFiltro = Me.txtFiltra.Text

    strCriterio = " where Campo1 like '*" & strFiltro & "*' or Campo2 like '*" & strFiltro & "*' or Campo3 like '*" & strFiltro & "*'" _
    & " or Campo4 like '*" & strFiltro & "*' or Campo5 like '*" & strFiltro & "*' or Campo6 like '*" & strFiltro & "*' or Campo7 like '*" & strFiltro & "*'" _
    & " or Campo8 like '*" & strFiltro & "*' or Campo9 like '*" & strFiltro & "*'"

    Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Antonio Tavares
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 22/02/2013

    Re: [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  Antonio Tavares em Seg 29 Maio 2017, 16:33

    Obrigado pela rapidez na resposta Mestre JPaulo.

    Peço desculpa, não me fiz entender devidamente. Eu pretendo, por exemplo, ao digitar numa textbox "txtNome" limitar a lista ao "João". Depois, ao digitar na textbox "txtApelido" limitar as linhas em que o nome é "João" ao "João Silva" e por aí fora num total de 4 textbox. Mas não por esta ordem necessariamente. Posso querer por primeiro Silva e depois João  Smile .

    Mais uma vez obrigado,
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9552
    Registrado : 04/11/2009

    Re: [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  JPaulo em Ter 30 Maio 2017, 10:13

    Ola;

    Mais ou menos assim;

    Download

    Aplica-se aos restantes, com apenas a modificações dos nomes dos campos;

    Código:
    Private Sub txtNome_Change()
    Dim strCriterio$
    Dim strFiltro$

    strFiltro = Me.txtNome.Text

        If IsNull(Me.txtSobrenome) And IsNull(Me.txtApelido) Then
            strCriterio = " where Campo2 like '*" & strFiltro & "*'"
            Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
        ElseIf Not IsNull(Me.txtSobrenome) And IsNull(Me.txtApelido) Then
            strCriterio = " where Campo2 like '*" & strFiltro & "*' AND Campo3 like '*" & Me.txtSobrenome & "*'"
            Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
        ElseIf IsNull(Me.txtSobrenome) And Not IsNull(Me.txtApelido) Then
            strCriterio = " where Campo2 like '*" & strFiltro & "*' AND Campo4 like '*" & Me.txtApelido & "*'"
            Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
        ElseIf Not IsNull(Me.txtSobrenome) And Not IsNull(Me.txtApelido) Then
            strCriterio = " where Campo2 like '*" & strFiltro & "*' AND Campo3 like '*" & Me.txtSobrenome & "*' AND Campo4 like '*" & Me.txtApelido & "*'"
            Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Antonio Tavares
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 22/02/2013

    Re: [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  Antonio Tavares em Ter 30 Maio 2017, 12:38

    Bom dia Mestre "Amazing" JPaulo,

    É isso mesmo. O que é que não consegue fazer? Fartei-me de pesquisar e não encontrei nenhum exemplo, e do nada...é só perguntar.
    Muito obrigado a todos do fórum por partilharem os vossos conhecimentos. Vocês são fantásticos...

    Um abraço,

    Está resolvido. Very Happy

    Antonio Tavares
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 22/02/2013

    Re: [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  Antonio Tavares em Ter 30 Maio 2017, 12:43

    Ops. Faltava o resolvido...
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9552
    Registrado : 04/11/2009

    Re: [Resolvido]Filtrar listbox com evento change em várias textbox

    Mensagem  JPaulo em Ter 30 Maio 2017, 12:57

    Obrigado pelo retorno o forum agradece.

    Se puder, não esqueça de ajudar o forum nos links abaixo, só com a ajuda de todos podemos melhorar.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 25 Set 2017, 10:35