pesquisar com espaçameto

boas
tenho o seguinte codigo

Private Sub pesquisa_nomes_Change()
Me.Refresh
SendKeys "{f2}"
End Sub

aqui escrevo o Nome que pretendo e este vai filtrando mas não consigo fazer/ dar espaçamentos Ex. / Marco Sousa
- Não dá . . . Só Marco se houver 30 ! ? !

Depois tenho o seguinte codigo

Private Sub resultados_pesquisa_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm_Clientes", , , "ID=" & Me.resultados_pesquisa.Column(0)
End Sub

aqui é onde clico para chamar o registo que pretendo e abre . . .

Neste mesmo Código não se consegue resolver ?

Imagem em anexo p/ melhor visualização

Obrigado


https://www.dropbox.com/s/8emhfoujglb9m9w/imag_1.png

Tente mudar as linhas do evento Change para algo assim:

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE NomeDoCampoNaTabala LIKE '*" & Me.NomeDoCampoDaPesquisa & "*'"

ui da erro . . .
https://www.dropbox.com/s/vc4rzyf1jrhz9vl/erro.png

Verifique se os nomes dos campos e da tabela estão corretos. NomeDoCampoNaTabela se refere ao nome do campo, na tabela, aonde está o dado que você quer pesquisar. No lugar desse NomeDoCampoNaTabela, coloque o nome correto desse campo. NomeDoCampoDaPesquisa se refere ao nome do campo aonde você está digitando a pesquisa, o mesmo aonde está o evento "Ao mudar" que você está usando. Ao que parece, o nome dele é pesquisa_nome, certo? Então coloque pesquisa_nome no lugar de NomeDoCampoDaPesquisa. No lugar de NomeDaTabela, coloque o nome correto da tabela.

Certo... assim fiz . . .
Não deixa escrever . . . coloco M e depois não avança . . .

Eu sempre esqueço que depois do nome do campo, nesse caso, precisa colocar .Text: Me.NomeDoCampoDaPesquisa.Text.

Desculpe Criquio mas o motor agarrou... Em Portugal as vezes os carros param de andar ... Os motores agarram só se resolve colocando outro motor . . .
Isto para te dizer que o meu cerebro agarrou . . . como seria então ? ! ?

Private Sub pesquisa_nomes_Change()
Me.RecordSource = "SELECT * FROM t_funcionarios WHERE Nome LIKE '*" & Me.pesquisa_nomes & "*'"
End Sub

Bom, acredito, a princípio, que o .Text seja o lubrificante para desagarrar o motor, hehehe. Talvez assim:

Me.RecordSource = "SELECT * FROM t_funcionarios WHERE Nome LIKE '*" & Me.pesquisa_nomes.Text & "*'"

bem na verdade ... não é ... o motor continua agarrado ... você tenta escrever Rui e só da R . . .

Deve ter algo se intrometendo na ação. Normalmente deveria filtrar. Talvez alguma pequena diferença nos nomes dos campos ou algum outro evento do form.