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

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

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

Paulo

Veja esse exemplo.

Espero que te ajude.

[ ]'s

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

Paulo


Valeu pelo retorno!


Boa sorte!