MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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 ...

    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: Sex 09 Dez 2016, 09:34