MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

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

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho 2/10/2020, 13:00

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 8/10/2020, 03:58

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

    como a mesmo filtragem
    Ao altera
    Me.PesqList.Requery


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho 14/10/2020, 14:37

    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...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 14/10/2020, 15:07

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho 15/10/2020, 17:40

    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
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

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

    Mensagem  Ney Santos 15/10/2020, 20:26

    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
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho 15/10/2020, 20:31

    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.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

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

    Mensagem  Ney Santos 15/10/2020, 20:45

    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 15/10/2020, 21:52

    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
    [Resolvido]Caixa de Listagem com campo de Pesquisa e Botão Procurar... Sem_tz85


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho 22/10/2020, 17:45

    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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

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

    Mensagem  Silvio 22/10/2020, 19:31

    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 !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho 2/3/2021, 13:53

    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

      Data/hora atual: 23/9/2021, 01:41