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]Filtrar ao Digitar em Caixa de Combinação

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Filtrar ao Digitar em Caixa de Combinação

    Mensagem  MarceloSilva 11/10/2012, 14:39

    Bom dia Amigos

    Estou com uma dúvida

    Tenho um subform em um form chamado Pedido de Compra.
    Neste subform (folha de dados) tenho os itens a qual alimento este Pedido de Compra.

    Neste subform o campo a qual escolho meus itens é uma caixa de combinação chamada "Item" a qual apresenta todos os produtos disponíveis para ser lançado pelo usuário.

    O problema: a listagem está ficando grande. Difícil de localizar

    Minha dúvida.
    Existe uma forma de filtragem para agregar nesta caixa de combinação para facilitar a busca?
    Pensei em algo a qual a medida que se digite, o listagem vai apresentado o resultado conforme filtragem.

    Aí e selecionar e pronto.

    tem como????
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  criquio 11/10/2012, 14:47

    Dê uma olhada na propriedade "Auto expandir" da combo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  MarceloSilva 11/10/2012, 15:26

    Bom dia Criquio

    Hoje já uso o Auto Expandir = "sim" juntamento com a função me vba "Me.Item.Dropdown" em "Ao pressionar Tecla" para abrir a lista.

    funciona quando digito o nome do item pelo inicio.

    O problema é quando o usuário não sabe o inicio da narrativa do item.
    Exemplo:

    na lista pode ter:

    Prego 15x30
    Prego 15x15
    prego 10x15
    prego 20x20

    se digitasse somente "15" (apresentaria na lista somente os Itens que contenho o 15 na narrativa)ficando assim:

    Prego 15x30
    Prego 15x15
    prego 10x15

    não sei se isso é possível de se fazer em Caixa de Combinação.






    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  criquio 11/10/2012, 16:29

    Tente no evento "Após atualizar" da combo:

    Código:
    Me.NomeDaCombo.RowSourceType = "Table/Query"
    Me.NomeDaCombo.RowSource = "SELECT NomeDoCampo FROM NomeDaTabela WHERE NomeDoCampo LIKE '*" & Me.NomeDaCombo.Value & "*' ORDER BY NomeDoCampo"
    No caso acima estou considerando que sua combo tem apenas uma coluna. Caso tenha mais, selecione os outros campos para as outras colunas. Ainda se tiver mais de uma coluna, pode ser necessário trocar o .Value pelo número da coluna .Column(n)

    Caso não tenha interesse em ordenar a lista, retire o ORDER BY NomeDoCampo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  MarceloSilva 11/10/2012, 17:40

    Não teve efeito Criquio

    Utilizei o exemplo no evento Antes de atualizar e Após atualiza

    Minha combo tem origem a dois campo conforme sql: SELECT CD_CadProduto, DescricaoProduto FROM tbl_CadProduto
    sendo o CD_CadProduto oculto.

    A principio está certo o código:
    Private Sub MinhaCombo_AfterUpdate()
    Me.MinhaCombo.RowSourceType = "Table/Query"
    Me.MinhaCombo.RowSource = "SELECT CD_CadProduto, DescricaoProduto FROM tbl_CadProduto WHERE DescricaoProduto LIKE '*" & Me.MinhaCombo.Column(1) & "*' ORDER BY DescricaoProduto"
    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  criquio 11/10/2012, 18:03

    Inverta as colunas, deixando a coluna a ser filtrada em primeiro lugar e inverta as larguras das colunas. Depois, coloque a linha "Limitar a uma lista", na aba Dados das propriedades como Não e teste para ver se funfa.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  MarceloSilva 11/10/2012, 18:44

    nada...

    sem resultados....
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  criquio 11/10/2012, 18:47

    Eu fiz um teste aqui conforme falei acima e funcionou. Verifique se os nomes e a ordem dos campos estão corretos em todas as ocorrências.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  Alexandre Neves 11/10/2012, 18:48

    Marcelo,
    Em vez de colocar DepoisDeAlterar, coloque aoAlterar


    .................................................................................
    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
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  MarceloSilva 11/10/2012, 18:53

    será que o problema não é por ser campo de chave estrangeira?

    Minha combo é ligada a dados como chave estrangeira da tbl_CadastroProduto
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  criquio 11/10/2012, 18:56

    Não acredito que seja. Tente colocar no evento "Ao alterar" conforme a sugestão do Alexandre. Nesse caso, mudando o .Value para .Text:

    Código:
    Me.NomeDaCombo.RowSourceType = "Table/Query"
    Me.NomeDaCombo.RowSource = "SELECT Descrição, Código FROM tblProdutos WHERE Descrição LIKE '*" & Me.NomeDaCombo.Text & "*'"
    Me.NomeDaCombo.Dropdown
    Desse jeito tambem funfa redondo aqui.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  MarceloSilva 11/10/2012, 19:55

    Agora deu certo.

    Restruturei minha relação de tabela e coloquei a função no evento "Ao alterar".

    ficou bem do jeito que eu queria.....

    Obrigado Criquio...
    Valeu pela dica Alexandre...

    Estou encerrando....
    avatar
    joaomaciel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 08/11/2013

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  joaomaciel 8/11/2013, 12:14

    Pessoal,
    Este item ajudou muito.
    Obrigado e parabéns pelas informações.
    avatar
    dragoalfa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 04/11/2013

    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty OBRIGADO

    Mensagem  dragoalfa 10/2/2014, 12:08

    Pelos vossos exemplos consegui resolver um problema semelhante um bem haja para todos

    Conteúdo patrocinado


    [Resolvido]Filtrar ao Digitar em Caixa de Combinação Empty Re: [Resolvido]Filtrar ao Digitar em Caixa de Combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:44