[Resolvido]Caixa de texto para filtrar não aceita digitar espaço

Buenas!
Em um formulário, tenho uma caixa de texto onde digito o nome do cliente. À medida que digito, os clientes são filtrados no subformulário.
Funciona até digitar espaço: ao digitá-lo, o cursor não avança.
Ou seja, ao buscar por um único nome, tudo bem. Mas se preciso digitar um nome composto, não funciona.
Filtra até João, mas se precisar João Maria, o access elimina o espaço, e fica JoãoMaria, aí, não encontra ninguém.

O código é este:

Private Sub DigitarCLIENTE_Change()
 If VarTecla = 1 Then
   VarTecla = 0
 Else
   Me.Recalc
   Me.DigitarCLIENTE.SelStart = 255
 End If

End Sub

tem este também, mas ao excluí-lo, nada altera:

Private Sub Form_KeyPress(KeyAscii As Integer)

 If KeyAscii = 32 Then
   VarTecla = 1
 End If
End Sub

Alguém pode me ajudar a resolver isso?

Bom dia...

Normalmente eu utilizo uma Lstbox para realizar esse tipo de pesquisa e nunca tive tal problema, mesmo com espaços e não um subformulário.
Sem contar que em:

Private Sub DigitarCLIENTE_Change()

está faltando uma parte do código.

Deixo aqui, uma pequena ideia do que seria o código dito na minha mensagem anterior...

Private Sub pesquisa_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.lstcliente.RowSource = "SELECT idcliente, cliente,endereco, numero, bairro, cep, cidade, estado, fone, celular,CPF, CNPJ, marca, modelo,cor, placa,comb,potmotor FROM qryclienteveic WHERE cliente LIKE '*" & Me.pesquisa.Text & "*' ORDER BY cliente;"
Me.Recalc
Me.pesquisa.SelStart = 255
End If
End Sub

Resolvido!
Como eu tenho um formulário em que esse procedimento funciona, fiz uma cópia e adaptei-o ao que eu preciso. Nele, eliminei todos os controles exceto a caixa de texto para digitar e acrescentei os demais campos que precisava.

O Fórum agradece o retorno.

Olá Amigos, boa noite.

Se me permitem, é muito fácil resolver esse tipo de problema nas caixas de textos.
Basta alterar a propriedade "Permitir AutoCorreção" na aba Outra para "Não".

Abraços, WSenna

Boa tarde silvio, poque no meu não esta funcionando?

tenho um formulário normal, onde tenho uma caixa de texto que pesquisa pela tarefa desejada, mais na hora de da o espaço não aceita o espaço.

Meu código:

Private Sub txt_tarefa_change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.(Caixa de listagem).RowSource = "SELECT ID, tarefa,entrada, prazo, Status, Responsáveis, Setor, Origem FROM (Consulta) WHERE Tarefa LIKE '*" & Me.txt_tarefa.Text & "*' ORDER BY tarefa;"
Me.Recalc
Me.txt_tarefa.SelStart = 255
End If
End Sub


Tem algo de errado?

Boa noite.

Use o seguinte comando no evento atual do formulário em questão

me.KeyPreview =True

Outra coisa declarar a variável

Option Compare Database
Dim VarTecla