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]Dúvida em código de procura ...

    Compartilhe
    avatar
    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  augustopimenta em Sex 05 Set 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 ...
    avatar
    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  augustopimenta em Sex 05 Set 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: Qui 27 Jul 2017, 09:41