[Resolvido]Erro no Formulário Pesquisa se usar a tecla SHIFT

Boa tarde. Mais um erro em meu BD que não consigo achar a solução.
Tenho um formulário de pesquisa que me busca os serviços digitando qualquer parte do texto e me retorna todos os serviços com aquele texto.
Ocorre que se por acaso digitar a tecla Shift para inserir letra maiúscula no campo de pesquisa ele apresenta um erro que não encontro a solução. Segue abaixo imagem do erro.
Alguém pode me ajudar?



Com CAPS LOCK ativo ou não funciona normal. Porém se apertar Shift e uma letra aparece esse erro.
Grato

Olá..

Anexe o codigo que usa para pesquisar ou partes do bd, assim é mais fácil corrigir o erro.

Aguardamos

Abraços

Imagino que essa filtragem esteja sendo feito enviando alguma tecla com sendkeys (F2).
Porque a imagem apresentada não é erro algum e sim um recurso no próprio Access
para que as pessoas escrevam ou visualizem textos com formatação.

Pode testar, aperte Shift, mantenha pressionado e aperte F2, irá abrir o dialogo de Zoom.

Sugiro alterar o código de pesquisa (que não é nada legal ficar enviando teclas para atualizar o campo) para critérios
no próprio SQL.

Exatamente Marcelo. Uso o código abaixo

"Private Sub TxtPesq1_Change()
Me.Recalc
SendKeys "{F2}"
End Sub"

Porém como não conheço a programação e estou iniciando, poderia me orientar como substituir?
Sem o código não consigo digitar a palavra. O Campo reinicia sempre na primeira letra.
Grato

Vamos lá!
Poste seu aplicativo e informe as partes envolvidas
que já altero e te envio novamente com códigos comentados
para seu estudo.

Aguardando...

Ok, obrigado
segue BD
A questão está no formulário FrmPesqServ
Grato

Crie uma sub no formulário chamada subCrgLista, ela é responsável por carregar e filtrar o lista.
Removi da propriedade Origem da linha a SQL e migrei para a sub criada.

Chamo a sub no carregamento do formulário e no evento ao alterar da textbox que é critério de filtragem.

Boa tarde Marcelo
Muito Obrigado. Além de resolver a questão ficou muito melhor do que estava. E com sua orientação na descrição, consegui entender a sintaxe e o conceito que irei aplicar a outros formulário. Grato

Feliz por ter sido resolutivo e servido de aprendizado.
O Fórum agradece o retorno.

Estou com este mesmo problema na consulta mais não entendi como solucionar este problema pois sou novo no access,
no meu casa a tecla Num Lock do teclado também desabilita sem que eu clique nela.

Deu certo assim

Private Sub txtPesquisa_Change()
If varespaco = 1 Then
varespaco = 0
Else
Me.Recalc
Me.txtPesquisa.SetFocus
Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "{f2}"
End If
End Sub