[Resolvido]Caixa de Listagem com campo de Pesquisa e Botão Procurar...

Bom dia gente, eu tenho atualmente um formulário que tem uma caixa de listagem e um campo de texto pra digitar a pesquisa

a consulta aplica-se esse filtro em qualquer campo

Como "*" & [Formulários]![FrmMain]![SubMain]![PesqCamp].[Texto] & "*"

porém eu quero deixar a caixa de listagem vazia quando a pessoa entrar no formulário e só então quando ela digitar o texto e pressionar o botão procurar de fato irá procurar algo.

eu uso um campo com isso:

Private Sub PesqCamp_Change()
Debug.Print Me.PesqCamp.Text
Me.PesqList.Requery
End Sub

Boa noite .
Ao abrir
me.PesqCamp = null - o campo vai está vazio

como a mesmo filtragem
Ao altera
Me.PesqList.Requery

bom dia

no Form de Pesquisa eu tenho uma Caixa de Listagem chamada PesqList, eu tenho também o campo de texto chamado PesqCamp,

eu acrescentei agora um Btn_Search, que ficaria com o Me.PesqList.Requery em vez de ficar em PesqCamp_Change()

neste campo eu faço:

Private Sub PesqCamp_Change()
Debug.Print Me.PesqCamp.Text
Me.PesqList.Requery
End Sub

na Consulta eu faço

Como "*" & [Formulários]![FrmMain]![SubMain]![PesqCamp].[Texto] & "*"

preciso que só volte a pesquisa quando eu clica no botão Search...

bom dia , nesse caso você deixa a caixa no evento ao abrir como

Código:

txtCaixaDePesquisa=""

 na ultima resposta que entendi você pode colocar o campo de pesquisa travado assim que clicar na lupa ele destrava e você pode colocar
Ao abrir

Código:

txtCaixaDePesquisa.Enabled=false

ao clicar

Código:

txtCaixaDePesquisa.Enabled=True

oie sou eu de novo

eu não entendi muito bem o que você quer dizer, to postando o banco de dados pra você da uma olhadinha

boa tarde experimente o seguinte:
1º na caixa de listagem "PesqList", deixe a propiedade "Origem da Linha" em Branco e a propiedade "Tipo da Origem da Linha" como Tabela/Consulta.

2º no Evento após atualisar do campo "Pesqcamp "coloque o seguinte código:

Private Sub PesqCamp_AfterUpdate()
Me.PesqList.RowSource = "Qry_Main_UndMedidas"
Me.PesqList.Requery
Me.PesqList.Selected(1) = True
Me.PesqList.SetFocus
End Sub

====>>Com isso vc elimina o botão "Procurar", visto que no evento ao clicar dele, fica impossivel executar a função acima.

3º no Botão "Limpar coloque o seguinte código:

Private Sub Btn_Limpar_Click()
Me.PesqCamp.Value = ""
Me.PesqCamp.SetFocus
Me.PesqList.RowSource = ""
End Sub
Espero que tenha ajudado.
aguardamos retorno.

Att Ney Santos

a intenção é que se tenha o Botão Procurar

eu tenho também uma das telas um SubFormulário que tem o PesqCamp, e que deixa a desejar já que os outros campos só buscam se pressionar Procurar.

Bom até tentei colocar o código no botão procurar, mas o resulatdo nao ficou tão bom.
Tente ai e veja se serve pra voce.
do jeito que expliquei tudo é feito sem que se precise precionar o botão procuar.

Boa tarde colega pelo que voce me disse nessa frase


o clicar no botão Btn_Search use somente esse codigo

Código:

Private Sub Btn_Search_Click()
   Me.PesqList.Requery
End Sub

ele só vai soltar a pesquisa com o click
estarei com a sala aberto caso queira entrar [url=https:SalaCrysosotomoAccess[/url]
Tire o código do Ao alterar e coloca o que te passei
Você pode ver que eu digitei e ele não pesquisou ele só vai dispersar a pesquisa quando clicar no botão

também já tentei colocar no botão Procurar

o Me.PesqList.Requery

mas ele não tras o resultado da pesquisa.

pq tem algo na consulta que não deixa

Afim de evitar especulações, adivinhações, esoterismo intergaláctico ou até mesmo uma psicografia...poste um exemplo do teu sistema aqui com as tabelas, consultas e formulários envolvidos, para que os colegas possam te ajudar.
Fazendo isso, facilita a vida, ganha-se tempo, fica mais simples te ajudar.


#fica a dica !!

a solução foi a folha de dados em um subformulário

no Botão Procurrar

SubFormulário.Requery

nos filtros usei

Como SeImed

somente pra filtrar quando usar o campo determinado pelo filtro.

Att