MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 2/10/2020, 08: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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 7/10/2020, 22: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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 14/10/2020, 09: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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 14/10/2020, 10: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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 15/10/2020, 12: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
    Anexos
    Caixa de Listagem com campo de Pesquisa e Botão Procurar... AttachmentPRICELETTERS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (495 Kb) Baixado 6 vez(es)
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

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

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

    Mensagem  Ney Santos em 15/10/2020, 15: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
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 15/10/2020, 15: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 75%

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

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

    Mensagem  Ney Santos em 15/10/2020, 15: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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 15/10/2020, 16: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
    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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 22/10/2020, 12: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 100%

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

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

    Mensagem  Silvio em 22/10/2020, 14: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."

      Data/hora atual: 26/10/2020, 22:55