[Resolvido]Filtrar exemplo

Alo pessoal, preciso filtrar por cliente este exemplo mas não consigo,o amigo Fabio fez em um outro formulario pra mim mas neste não ta dando certo,vejam pra mim.
Abçs.


https://dl.dropboxusercontent.com/u/90217826/ExFiltro.rar

https://www.dropbox.com/s/p2ziv8fdf4up3w7/FiltroFRMCorrigido.zip?dl=0

Foi Criado um Formulario principal, e nele inserido o Subformulario com os dados para serem pesquisados.
O formulário Principal tem a caixa de pesquisa. Foi Mexido no Relacionamento das tabelas. Na consulta O nome do Cliente vem da Tabela Clientes, e nao da Tabela de Vendas.
Codigo da Caixa de Texto de Pesquisa

Código:


Private Sub txtPesquisa_Change()

'Declara a Variavel
Dim strFiltro As String
'Controi e passa para a Variavel o Filtro
strFiltro = "nomeCliente LIKE '*" & Me.txtPesquisa.Text & "*' "
'Aplica o Filtro no Formulario
Me.FormVendas.Form.Filter = strFiltro
Me.FormVendas.Form.FilterOn = True

End Sub


A titulo de aprendizado, caso queira que nesta mesma Caixa de texto, busque alem do Nome do Cliente, ela tambem pesquise no Produto por exemplo, Deverá mudar apenas esta linha:

strFiltro = "nomeCliente LIKE '*" & Me.txtPesquisa.Text & "*' "

PARA

strFiltro = "nomeCliente LIKE '*" & Me.txtPesquisa.Text & "*' OR descricao LIKE '*" & Me.txtPesquisa.Text & "*' "


Assim, ele verifica a combinação no campo da tabela nomeCliente ou descricao

Grande Fabio, assim a gente vai aprendendo,valeu por mais essa meu amigo.
Fica com Deus.
Um dia ainda vou te pagar uma caixa de cerveja heheheh.

Otima dica!!

Parabens

FabioPaes,

fantástico exemplo(não atende a minha necessidade, mas de boa. ganhei do mesmo jeito)rs.

Parceiro como fizeste? que recurso? ... rs pra aparecer esse comportamento de gráfico nos campos**
E se já tiver um ponto de discussão já aberta no fórum e puder compartilhar.. manda pra mim(nós).


Vlw

Amigo isso é feito através da formatação Condicional, Comparação com outros Registros.
Veja imagem:

Formatação Condicional no Access? _não sabia!
até uso muito isso, mas no Excel.

Valeu!