[Resolvido]Form com pesquisa em listbox desativa Num Lock ao digitar

Bom dia a todos do forum!
Estou com o seguinte problema:

Em meu projeto tenho um formulário de pesquisa com um campo de texto e uma listbox com os valores da tabela e utilizei o exemplo do Gilberlanio para que filtrasse na list box os nomes conforme vou digitando na caixa de texto, porém ao digitar o teclado numerico fica ativando e desativando a função Num Lock.

Abaixo como estão os comandos:



Aqui como está a condição para a listbox:

Isso ocorre se você executa a aplicação em outro computador?
Refresque a minha memória, mas qual a função da tecla F2 dentro de uma caixa de texto?

Talvez exista uma maneira melhor de se fazer isso sem o uso de sendkeys.

Deu certo Avelino, porém quando digito "ja" ou "ha" no campo de texto da busca automaticamente entra "já" ou "há" deste modo com acento não filtram os nomes com Ja ou Ha (janete, jaime, hamilton, etc) e não mostra nada na listbox.
Como posso acertar isso para não colocar o acento?

Marco Massa, a função do F2 é para que eu possa continuar a digitar dentro do campo, pois sem isso permite que eu coloque apenas uma letra.
Pode existir outra maneira com certeza, mas a que aprendi foi assim e a que deu certo. Mas sempre é bem-vindo uma maneira melhor e mais fácil!

Repito, o que supostamente a tecla F2 deveria fazer quando o foco está na caixa de texto?
A melhor solução seria usar algum recurso melhor que é disponibilizado pelo próprio Access ao invés de enviar uma tecla.

Deduzindo que o F2 deveria atualizar os valores da lista use isso:

Código:

lst_socios.Requery

Caso seja para executar o evento dropdown:

Código:

lst_socios.Dropdown

Avelino, sobre o erro com acento automático eu contornei desabilitando nas opções do access a correção automática onde substitui o que é digitado, mas será que existe uma maneira de contornar isso sem ter de desabilitar essa propriedade?

Beleza, então só pra eu entender melhor, conforme você vai digitando na caixa de texto txt_busca os dados da lista lst_socios são atualizados?

Tente substituir as linhas:

Código:


Me.Recalc
SendKeys "{F2}"


Por:

Código:

lst_socios.Requery

Marco, coloquei seu comando no evento ao alterar do campo de texto, porém não filtrou!

Então precisa ver como está o RecordSource desse controle, pois o método que executa essa ação é o Requery.

Referência:

http://msdn.microsoft.com/en-us/library/bb239011(v=office.12).aspx

De qualquer maneira, se o F2 é para voltar o foco para o campo em que você estava digitando, tente definir o foco nele novamente com o método SetFocus:

http://msdn.microsoft.com/en-us/library/bb215271(v=office.12).aspx

Então no lugar de:

Código:

SendKeys "{F2}"

Ficaria:

Código:

txt_busca.SetFocus

Obrigado Avelino Sampaio e Marco Massa pela ajuda!
Resolvi meu problema com a dica do Avelino, porém a dica do Marco também funcionou, mas optei pelo do Avelino porque usarei em outros procedimentos com teclas.

Obrigado

Olá a todos.
Apenas para marcar este tópico.
Abraço

 Olá pessoal, agradeço toda a ajuda do grupo que resolveu meu problema. Nesse espírito de colaboração vou colocar aqui uma forma que gostaria de achar (como a solução desse problema):

 No lugar de colocar o comando...

Código:


SendKeys "{F2}"


 Escreva o seguinte comando...

Código:


Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "{f2}"


 Com isso ao digitar o NumLock para de ficar desligando.

Resolvi simplesmente adicionando este código:
Option Compare Database
Dim varespaco
-----------------------------------------------------
Private Sub XXXX_Change()           'onde XXXX, é o nome da sua ComboBox
If varespaco = 1 Then
  varespaco = 0
   Else
        Me.Recalc
        SendKeys "{F2}"
        SendKeys "{NUMLOCK}", True
        SendKeys "{NUMLOCK}", True
       
   End If
 End Sub

Obrigado njssantos, vou testar.

Só para facilitar o pessoal ai !

Testei a solução abaixo deixada por "muco_jcs" e funcionou de primeira !






Very Happy  Olá pessoal, agradeço toda a ajuda do grupo que resolveu meu problema. Nesse espírito de colaboração vou colocar aqui uma forma que gostaria de achar (como a solução desse problema):

Evil or Very Mad  No lugar de colocar o comando...

CÓDIGO:

SendKeys "{F2}"


Arrow  Escreva o seguinte comando...
CÓDIGO:

Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "{f2}"


cheers  Com isso ao digitar o NumLock para de ficar desligando.

Cara estava com o mesmo problema, alterei esse comando e deu super certo.

No lugar de colocar o comando...

CÓDIGO:

SendKeys "{F2}"


Escreva o seguinte comando...

CÓDIGO:

Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "{f2}"

obrigado

Caro Allison, vou testar sua dica, muito obrigado