MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Filtro de Opção

    avatar
    diogojoi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 06/04/2016

    Filtro de Opção Empty Filtro de Opção

    Mensagem  diogojoi em 4/6/2018, 01:19

    Bom Dia..

    Tenho uma pesquisa de Clientes e nele coloquei alguns Filtro Como pesquisar pelo Código e ao Digitar o Nome do Cliente até ai tudo bem funcionou certinho...

    E agora coloquei um Filtro de Opções ( Todos os Clientes e Clientes Ativo e Inativo Como que eu poderia fazer esse filtro para buscar clientes Ativos e Inativos... e depois aparecer todos os clientes....

    Estou enviando o BD Para visualização   se algum poder me ajudar....

    Obrigado
    Diogo
    Anexos
    Filtro de Opção AttachmentPesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 25 vez(es)
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 08/09/2012

    Filtro de Opção Empty Re: Filtro de Opção

    Mensagem  Maicon em 6/6/2018, 06:22

    Veja o exemplo mestre JPaulo :
    http://www.maximoaccess.com/t8312-resolvidofiltro-com-grupo-de-opcao

    -- Seguindo isso faça o seguinte :

    Crie a caixa de texto com nome : txtFiltra

    No evento após atualizar da caixa de texto coloque :

    Código:
    If Me.Quadro82.Value = 1 Then Me.txtFiltra.Value = 1
    If Me.Quadro82.Value = 0 Then Me.txtFiltra.Value = 0
    If Me.Quadro82.Value = 3 Then Me.txtFiltra.Value = ""
    Me.Tbl_CadCli_subformulário.Requery

    e no subformulário na guia fonte de registro coloque : Como "*" & [Formulários]![FRM_PESQUISA DE CLIENTES]![txtFiltra] & "*"

    Na coluna : Ativo pura sem a função Seimed. Depois é só ocultar a caixa de texto txtFiltra.


    .................................................................................
    "Uma pessoa que nunca cometeu um erro, nunca tentou nada novo."
    Albert Einstein

    Bons Estudos.

      Data/hora atual: 25/5/2019, 06:34