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]Erro na digitação do campo de pesquisa

    Compartilhe

    paulo_cad
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  paulo_cad em Sex 06 Abr 2018, 2:46 pm


    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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Erro na digitação do campo de pesquisa

    Mensagem  good guy em Sex 06 Abr 2018, 7:37 pm

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

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sab 07 Abr 2018, 10:48 am

    Paulo

    Veja esse [Você precisa estar registrado e conectado para ver este link.].

    Espero que te ajude. Wink

    [ ]'s

    paulo_cad
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  paulo_cad em Seg 09 Abr 2018, 6:29 pm

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Seg 09 Abr 2018, 7:04 pm


    Paulo


    Valeu pelo retorno!


    Boa sorte!

      Data/hora atual: Sab 18 Ago 2018, 11:32 pm