[Resolvido]Pesquisa com o caracter *

Criei uma consulta através da txtPesquisaNome, através do critério: Como [Forms]![frmPesquisa].[txt_PesquisaNome] & "*" do Campo "Nome" da tblDados na lista "listaPessoas". Se digitado no campo ele filtra sem problema, mas só se for a primeira palavra.
Para pesquisar em outras palavras, como por exemplo o sobrenome, eu digito * (asterisco), porem, antes de funcionar, aparece uma janela "Zoom" com um local para texto e três botõs: OK, Cancelar e Fonte.
Como faço para não aparecer esta tela e já ir para a pesquisa?

Olá Veríssimo,

Costumo usar este modelo:

"*" & [Entre com a palavra-chave:] & "*"


Outros exemplos vc encontrará aqui:

https://support.office.com/pt-br/article/Exemplos-de-crit%C3%A9rios-de-consulta-3197228c-8684-4552-ac03-aba746fb29d8

Vou ser mais específico...vamos lá:
Criei um formulário frmPesquisa com o campo listaPessoas (caixa de listagem), no qual lista os registros inseridos em outro formulário.
Nas propriedades do campo listaPessoas, em Origem da Linha inseri no campo Nome, pesquisa: Como[Forms]![frmPesquisa].[txt_Pesquisa_Nome]&"*", sendo que o campo txt_PesquisaNome é o local onde se digitam as letras e a lista é filtrada.
Este comando está funcionando bem, agora, tente fazer o mesmo procedimento para o procedimento Pesquisa RG, através da caixa de texto txt_PesquisaRG, mas não funcionou.
Por fim, também não consegui criar a pesquisa mais importante:
O frmPesquisa exibe os dados da tblDados, no qual existem duas Caixas de Combinação: Cor_Pele(AMARELA;BRANCA;PARDA;PRETA;VERMELHA) e Sexo(FEMININO;MASCULINO).
Gostaria de inserir essas caixas de combinação no frmPesquisa, para que filtre a lista a ser exibida de acordo com a combinação das caixas, ou seja, listar os registros que coincidem a Cor da Pele e o Sexo.
Já tentei de tudo o que minha capacidade permite, com modelos aqui do fórum, mas não consegui.

Meu caro amigo,

Sempre para facilitar as respostas para problemas que exigem maior atenção o ideal será sempre postar o bd ou parte dele para tentarmos uma solução.

Veríssimo

Veja esse exemplo.

Talvez ele te ajude.

Noob

Estudei o exemplo que o Noobezinho me passou. Tentei de tudo (o que eu consigo) para conseguir implantá-lo, mas infellizmente não consegui.
Disponibilizei o arquivo para que possam ver onde estou errando.
Só pretendeo que ele filtre pelos campos cor da pele e sexo.

Olá Veríssimo,

Ao depurar o código está faltando esta função:

AdicionarAWhere

E como eu faço? É só inseri-la no início?

Reveja todo o código que o Noobezinho te passou. Naquele programa ele utilizou um subformulário e vc utiliza uma listbox. Isto faz muita diferença !!!

Imaginei mesmo. Estou desde o momento em que ele me mandou tentando acertar aqui. Tô tentando.

Olá Veríssimo

Vejo que o Good Guy está também ajudando !

Observou que ele disse:

Ao depurar o código

Você sabe como fazer isso? Uma depuração do código?

Provavelmente não, senão teria depurado e verificado a falta da função mencionada.
Como isso é imprescindível para um programador, convido a você, ler sobre isso ali
embaixo na minha assinatura e vai ver que é uma mão na roda para verificar erros no
código VBA.

Noob

Ok. Consegui
Obrigado a todos que me ajudaram.

Parabéns Veríssimo !!! Continue praticando com os bons exemplos aqui no fórum MáximoAccess !!!

serm querer me intrometer, mas jáme intrometendo,
veja o exemplo em anexo. Consulte por qualquer parte de qualquer campo, no mesmo campo txt_pesquisa.
Um abraço!

Muito, rubens, eu havia conseguido através de uma caixa de texto para cada campo, mas você fes exatamente o que eu procurava.
Muito obrigado.

Olá pessoal

Rubens:

Gostei muito do teu exemplo e usando essa mesma ideia, fiz
outro exemplo com o retorno da pesquisa em um subformulário.
Veja que à medida que se digita na caixa de texto, se houver as letras
em qualquer campo do subformulário, o mesmo terá o fundo pintado,
mostrando onde está a sequencia de caracteres digitada.
Espero que gostem  

Baixar exemplo


[]'s

Noob

Muito bom. Já coloquei no meu cinto de utilidades!!!