[Resolvido]Caixa de texto desacoplada não mantém o foco ao digitar.

Prezados bom dia.

Tenho um formulário continuo com alguns dados, nele eu coloquei uma caixa de texto desacoplada para realizar uma busca nesse referido formulário.
Porém eu não consigo digitar mais que um caractere que o mesmo salta para o próximo campo, tenho que ficar clicando com o mouse para poder digitar mais que dois caracteres.

No evento Ao alterar dessa caixa há o seguinte código que faz a busca para mim:

Private Sub Pesquisa_Change()
Dim C As String
Dim X As String
X = Me.pesquisa.Text
C = " where cliente like '*" & X & "*' "
Me.Form.RecordSource = " SELECT * FROM TblAcertoComissao " & C
End Sub

Desde já, grato pela ajuda !!

Posta aqui amigo esse Exemplo!

Consegui simular aqui...
Bom vc tem duas opçoes:
1ª Mudar para esse Codigo:

Private Sub pesquisa_Change()
Dim C As String
Dim X As String
X = Me.pesquisa.Text
C = " where NomeCliente like '*" & X & "*' "
Me.Form.RecordSource = " SELECT * FROM Tbl_CadCli " & C
Me.pesquisa.SetFocus
CreateObject("Wscript.shell").SendKeys "{F2}"
End Sub




2ª Opção: A que recomendo por ser mais simples e ter menos linhas.


Coloque seu Formulário dentro de Outro Formulário, e a Caixa de Texto para a Pesquisa coloque no formulário Principal.


O COdigo contiará o mesmo, mudando apenas o final que deve passar o caminho completo do Formulario:
 [Formulário5].[Form].RecordSource = " SELECT * FROM Tbl_CadCli " & C

Boas Fábio...

A primeira opção é a melhor.

Tanks and... []'s

Fábio....seguinte, no mesmo exemplo acima, como dar espaço em branco para nomes compostos ?

Exemplo..maria do rosário ??

Fábio....seguinte, no mesmo exemplo acima, como dar espaço em branco para nomes compostos ?

Eis um segundo problema pelo qual Opto sempre pelo Método 2 que lhe indiquei!

Não terá esse Problema com Espaço, e o código ficará Bem menor...

Bem, acho que já tenho a solução para o problema..

Código:

Private Sub Pesquisa_Change()
On Error Resume Next
Me.KeyPreview = True
If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Form.RecordSource = "SELECT * FROM TblAcertocomissao WHERE cliente LIKE '*" & Me.pesquisa.Text & "*' ORDER BY cliente;"
    Me.Recalc
    Me.pesquisa.SelStart = 255
    Me.pesquisa.SetFocus
  CreateObject("Wscript.shell").SendKeys "{F2}"
    End If

End Sub

Sim, a solução e isso mesmo...

Agora vc nao acha que é melhor trocar todo esse Codigo:

Código:

Private Sub Pesquisa_Change()
On Error Resume Next
Me.KeyPreview = True
If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Form.RecordSource = "SELECT * FROM TblAcertocomissao WHERE cliente LIKE '*" & Me.pesquisa.Text & "*' ORDER BY cliente;"
    Me.Recalc
    Me.pesquisa.SelStart = 255
    Me.pesquisa.SetFocus
   CreateObject("Wscript.shell").SendKeys "{F2}"
    End If

End Sub

Por apenas esse:

Código:

Private Sub pesquisa_Change()
Dim C As String
Dim X As String
X = Me.pesquisa.Text
C = " where NomeCliente like '*" & X & "*' "
[NomeFormulario].Form.RecordSource = " SELECT * FROM TblAcertocomissao WHERE cliente LIKE '*" & Me.pesquisa.Text & "*' ORDER BY cliente;"
End Sub

Fica a dica!

Grato pelo retorno, e Até a próxima se Deus quiser!

Negativo Fábio....

Do jeito que eu postei, consigo dar espaços entre os nomes. E é o que eu mais preciso no momento.

[]'s