Código VBA para formulário de pesquisa

Boa tarde!

Preciso de uma ajuda em código VBA Access.

Criei um formulário de pesquisa, inseri o código VBA e está a funcionar perfeitamente à exceção da tecla espaço, que teima em não funcionar (não dá espaço).

O código inserido é este:

Option Compare Database
Dim VarEspaco

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarEspaco = 1
End If
End Sub

Private Sub txtmaterial_didatico_AfterUpdate()
Me.lctmaterial_didatico.Requery
End Sub


Private Sub txtmaterial_didatico_Change()
If VarEspaco = 1 Then
VarEspaco = 0
Else
Me.Recalc
SendKeys "{f2}"
End If
End Sub


Já agora outra dúvida. Este código apenas permite pesquisar pela primeira palavra da frase. Eu gostaria que, ao escrever qualquer palavra da frase, fique automaticamente selecionada. Ex.: Tenho a seguinte frase - Matemática do João 3º ano. A pesquisa apenas é feita pela palavra matemática. Se escrever João já não dá.

Alguém pode ajudar?

Vítor

Bem vindo ao Fórum

Veja o arquivo anexo onde a pesquisa é realizada no próprio formulário.
Se atender, blz, caso contrário, dê um alô.

Filtro aqui

Veja se o anexo deste post serve
http://maximoaccess.forumeiros.com/t20679-evitar-nomes-duplicados#152083

Boa tarde, João!

Desculpa, o anexo está muito bom e é isso mesmo que eu quero, mas eu não percebo quase nade de VBA, logo não consegui perceber o tipo de código e muito menos adaptá-lo na minha base de dados.

envio em anexo o ficheiro para dares uma vista de olhos.

Obrigado

Amigo Vitor,

segue o seu bd com os ajustes.
Veja que a lista está filtrada pelo campo ÁreaDisciplina.
Veja a função fncCarregaLista onde aparece o filtro, caso queira mudar, basta trocar o nome do campo na linha correspondente.

Baixe o aplicativo Maestro do site www.usandoaccess.com.br e veja vários outros exemplos de filtragem.

Estude um pouco sobre normatização do banco de dados e verás como usar nomes de campos, objetos, entre outros.
O teu exemplo não funcionou porque vc estava usando espaços nos nomes de objetos e campos e isso o VBA não aceita.

Bons estudos.
Baixe o exemplo aqui