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


2 participantes

    Filtro de Opção

    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  diogojoi 4/6/2018, 00: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 37 vez(es)
    Maicon
    Maicon
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 267
    Registrado : 07/09/2012

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

    Mensagem  Maicon 6/6/2018, 05:22

    Veja o exemplo mestre JPaulo :
    https://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.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: 17/5/2024, 10:49