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


3 participantes

    [Resolvido]Erro na digitação do campo de pesquisa

    avatar
    paulo_cad
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 14/09/2013

    [Resolvido]Erro na digitação do campo de pesquisa Empty [Resolvido]Erro na digitação do campo de pesquisa

    Mensagem  paulo_cad 6/4/2018, 15:46


    No meu BD, tenho um campo para pesquisa de lançamentos no campo "descrição" onde por qualquer digitação ele já vai filtrando minha pesquisa.
    O problema é que ao digitar no campo de pesquisa, o primeiro carácter este fica selecionado para edição, aí quando vou digitar o 2º caracter ele apaga o primeiro.
    Como estou fazendo pra resolver (provisório): digito o primeiro caracter, espero um pouco aí digito o segundo carater e assim por diante.
    Alguém sabe como resolver isto? ou se isto tem solução, pois numa digitação rápida não consigo escrever direito.


    Abaixo segue o código da pesquisa relacionado a milha "lista 58"

    Private Sub txt_PesqDescricao_AfterUpdate()
    Me.Lista58.Requery
    End Sub

    Private Sub txt_PesqDescricao_Change()
    ' PESQUISAR
    Dim ws As Object
    Dim VarTecla
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    Set ws = CreateObject("WScript.shell")
    ws.SendKeys "{F2}"
    End If
    End Sub
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Erro na digitação do campo de pesquisa Empty Erro na digitação do campo de pesquisa

    Mensagem  good guy 6/4/2018, 20:37

    Olá paulo,

    Pra que complicar? Não conheço um código mais simples do que este exemplo abaixo. Primeiro, você está fazendo a reconsulta(Requery) à tabela pelo evento AfterUpdate. Está errado, o certo é pelo evento Change da caixa de texto.

    Private Sub txtPesquisa_Change()   'Caixa de texto onde você digita as primeiras letras da sua pesquisa
    Me.Lista58.Requery

    End Sub

    Origem da linha da caixa de listagem(Lista58):

    SELECT [SuaConsulta].[Código], [SuaConsulta].[Termo] FROM SuaConsulta WHERE (((SuaConsulta.Termo) Like "*" & Formulários!SeuFormPrincipal!txtPesquisa.Text & "*"));    'SuaConsulta é uma consulta em cima da tabela onde estão todos os dados para pesquisa
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Erro na digitação do campo de pesquisa Empty Re: [Resolvido]Erro na digitação do campo de pesquisa

    Mensagem  Noobezinho 7/4/2018, 11:48

    Paulo

    Veja esse exemplo.

    Espero que te ajude. Wink

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    paulo_cad
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 14/09/2013

    [Resolvido]Erro na digitação do campo de pesquisa Empty Re: [Resolvido]Erro na digitação do campo de pesquisa

    Mensagem  paulo_cad 9/4/2018, 19:29

    Obrigado, amigos Good Guy e Noobezinho pelas respostas, desculpe pelo atraso no retorno.
    Essa pesquisa ficou ótima.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Erro na digitação do campo de pesquisa Empty Re: [Resolvido]Erro na digitação do campo de pesquisa

    Mensagem  Noobezinho 9/4/2018, 20:04


    Paulo


    Valeu pelo retorno!


    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Erro na digitação do campo de pesquisa Empty Re: [Resolvido]Erro na digitação do campo de pesquisa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:10