[Resolvido]Pesquisa com Caixa de Combinação no SubForms

Bom dia !

Pessoal? To com uma tela de Cadastro de Cliente, desse cadastro eu tenho uma lista de todos os clientes.
Nessa lista eu quero coloca 3 caixa de combinação com respectivos dados em cada caixa, os nomes do cliente, CPF,RG para o usuario ter uma escolha de como vai querer pesquisa os dados do cliente, sendo que minha lista de Clientes ele é feita em um Formulário dividido, onde minha fonte de registro é minha tabela de cadastro de Cliente.

Teve um exemplo que um amigo me deu aqui, so que foi com uma caixa de listagem ja tentei coloca o código da mesma forma mais não deu certo.

Quem puder me Ajuda Agradeço.

Seriam três caixas de Texto (uma para Nome, outra para o CPF e outra para o RG), onde ao digital um valor, atualizaria a caixa de de Listagem, exibindo apenas os dados referente ao Valor Pesquisado? Seria isso amigo?

Boa Tarde!

Sim! Seria isso sim, Mais seria um Formulário no formato: Formulário dividido
não teria caixa de listagem.

Sera que tem como ?

Eu falei no exemplo de cadastro de cliente, mais vou manda um exemplo de cadastro de produto.
TBL_CDS_produto

FRM_CDS_Produto

FRM_LST_Produto

Nesse FRM_LST_Produto que estou querendo coloca a caixa para pesquisa.
Se tiver como da uma olha, agradeço.

Se é formulário, então de uma olhada nesse exemplo aqui:
https://www.maximoaccess.com/t26778-resolvidofiltrar-exemplo
Bem simples! e vc entenderá como deve ser feito!

Obs: Apesar do exemplo esta Formulário Continuo, acredito que irá funcionar normalmente para Dividido!

Olhei agora o exemplo...
no caso precisa coloca só aquele código?
e só precisa coloca na caixa de pesquisa?

Sou muito novo nesse lado do access.

Sim, somente em cada caixa de Texto...

Acredito que baixou e testou o exemplo certo?

No exemplo indicado acompanhe os comentários:

O método utilizado foi a propriedade do formulário "Filtro"


'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 de nome FormVendas
Me.FormVendas.Form.Filter = strFiltro
Me.FormVendas.Form.FilterOn = True

ou seja, a medida que vc digita na caixa de texto, como o código está no evento ao Ao alterar, ele vai aplicando um filtro no Campo nomeCliente com o valor digitado na caixa de texto de nome Me.txtPesquisa

Olha meu nobre!


'Declara a Variavel
Dim strFiltro As String
'Controi e passa para a Variavel o Filtro
strFiltro = "Descrição LIKE '*" & Me.txtpesquisa.Text & "*' "
'Aplica o Filtro no Formulario
Me.FRM_LST_Produto.Form.Filter = strFiltro
Me.FRM_LST_Produto.Form.FilterOn = True

Ta dando um erro!

Erro de compilação:
Método ou membro de dados não encontrados

E essa linha fica em amarelo

Me.FRM_LST_Produto.Form.Filter = strFiltro

Posta aqui esse exemplo ja com o código... e me diga o nome do Formulário!

nome do formulário que vou fazer a pesquisa é FRM_LST_Produto

Amigo, se atentar para a nomenclatura dos campos, evitando acentos e caracteres especiais (-,[]'""/*-+....)


Descrição tem ç portanto deve ficar entre[] assim: [Descrição]

Veja que foi criado um Novo Formulário (Formulário Principal de nome "frmPesquisa") para dentro dele colocar um subformulário com os dados que queremos. Porque isso?

Simples, se aplicarmos o filtro direto no formulário principal utilizando evento ao Alterar, o access da um problema com espaço, so permitindo digitar Uma única letra, tendo a necessidade de simular o F2.... portanto acho mais simples colocar em subformulário. Faça um teste no seu exemplo apenas corrigindo o código e verá o problema...

Outra coisa, é que se vou aplica o filtro no próprio formulário que está a caixa de Texto, não preciso informar o nome do Formulário:
Me.FRM_LST_Produto.Form.FilterOn

Bastando apenas informar a propriedade: Me.FilterOn

Baixe o exemplo aqui: dropbox.com/s/457bbc9x2joy0yf/Teste%20Lista%20Produto.zip?dl=0

Boa tarde!
Colega? conseguir fazer  a pesquisa..
Mais fiz um pouco diferente do seu, assim, usei seus comandos que me passou, e de um outro grande mestre, Gilberlânio.

No Caso não fiz o subforms e resolvi o problema de só puder digitar só uma letra,e também  do espaço e, tem esse vídeo que estou mandando o link que mostra como fazer para fica automático o campo de pesquisa.Para não fica utilizando o F2

Como da espaço e não ter que fica apertando o F2, fica automático
https://www.youtube.com/watch?v=4KFxUCSHSPI

vou te manda o arquivo pra tu ver como ficou.


E claro muito obrigado pela ajuda. me ajudou muito...

Abraço!

Que bom que deu certo amigo...

Como lhe falei, eu prefiro fazer dentro de outro formulário e evitar ter que esta Simulando teclas, pois acho que fica bem melhor inclusive visualmente, alem de não ter que ficar executando um código a mais a cada letra digitada... Mas claro esse é apenas o meu pensamento!


Por favor, se a duvida foi solucionada, por favor marque o tópico como resolvido:

Veja como Fazer

Sim resolveu!

muito obrigado!