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

    [Resolvido]Dúvida em código de procura ...

    augustopimenta
    augustopimenta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/03/2012

    [Resolvido]Dúvida em código de procura ... Empty [Resolvido]Dúvida em código de procura ...

    Mensagem  augustopimenta 5/9/2014, 13:29

    Acho que é uma dúvida besta.. Mas realmente não sei ..
    Tenho o seguinte código no evento ao alterar de um campo de pesquisa:

    Me.Recalc
    SendKeys "{F2}"

    Nesse mesmo campo no evento Após atualizar tenho a seguinte linha:

    lst_nomes.Requery

    Ou seja, quando vou digitando, a caixa de listagem vai atualizando conforme o que vou digitando. Até ai tudo bem.. Minha pergunta é por que eu não consigo utilizar a tecla do espaço com esse código ... Quando aperto a tecla "space" ela não funciona... Isso é ruim por que as vezes preciso pesquisar uma letra e depois espaço e mais outra letra e não consigo ...
    Alguém pode ajudar ????
    Desde já agradeço ...
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/03/2012

    [Resolvido]Dúvida em código de procura ... Empty Re: [Resolvido]Dúvida em código de procura ...

    Mensagem  augustopimenta 5/9/2014, 16:23

    Olá pessoal..
    Achei um código de um colega nosso daqui, adaptei e resolvi da seguinte forma:

    No evento ao carregar do form coloquei:
    Dim strSQL As String


    strSQL = "SELECT Produto_Codigo,Descproduto,Custo FROM TblProduto"
    strSQL = strSQL & " ORDER BY DescProduto"

    Me!lstDados.RowSource = strSQL



    E no evento ao alterar do campo pesquisa coloquei:

    lstDados.RowSource = "SELECT Produto_Codigo,Descproduto,Custo FROM TblProduto Where DescProduto Like '*" & Me.TxtBusca.Text & "*' Order By DescProduto;"


    Obrigado a todos que tentaram ajudar de alguma forma ....

      Data/hora atual: 3/12/2022, 06:43