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

    Compartilhe

    diogojoi
    Novato
    Novato

    Respeito às Regras 100%

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

    Filtro de Opção

    Mensagem  diogojoi em Seg 04 Jun 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
    Pesquisa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 15 vez(es)
    avatar
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Filtro de Opção

    Mensagem  Maicon em Qua 06 Jun 2018, 06:22

    Veja o exemplo mestre JPaulo :
    [Você precisa estar registrado e conectado para ver este link.]

    -- 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: Qua 20 Jun 2018, 12:43