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


3 participantes

    [Resolvido]Ocultar todas as check box não ticadas do relatório

    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 01/03/2016

    [Resolvido]Ocultar todas as check box não ticadas do relatório Empty [Resolvido]Ocultar todas as check box não ticadas do relatório

    Mensagem  adriano.ig Sáb Mar 27, 2021 5:35 pm

    Boa tarde!

    Depois de algum tempo sem explorar o mundo access é claro que de cara muitas dúvidas surgem. Essa vai para todos os mestres de plantão!

    Estou desenvolvendo um BD que servirá para digitação de fichas de notificação de COVID. A ficha possui muitos campos que é apenas para assinalar (ticar, marcar, etc.) Por essa razão estou usando muitas check box tanto no formulário quanto para o resultado no relatório.

    O que pretendo e ainda não consegui é o seguinte:

    Gostaria de desenvolver um código ou função que ao carregar o relatório todas as check box que não foram ticadas ficasse ocultas, ou seja não aparecessem no relatório. Já até consegui fazer da seguinte forma. No evento ao carregar do relatório estou colocando o seguinte código:

    If Me.gestante.Value = no Then
    Me.gestante.visible = False
    End If

    If Me.puerpera.Value = no Then
    Me.puerpera.visible = False
    End If

    If Me.obesidade.Value = no Then
    Me.obesidade.visible = False
    End If

    E assim por diante. Ou seja, fazendo dessa forma terei que identificar cada check box, e acreditem, são muitas!

    Há algum comando para ocultar todas em apenas um código?

    Conto com a ajuda de todos! Rolling Eyes


    Última edição por adriano.ig em Sáb Mar 27, 2021 11:25 pm, editado 1 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ocultar todas as check box não ticadas do relatório Empty Re: [Resolvido]Ocultar todas as check box não ticadas do relatório

    Mensagem  crysostomo Sáb Mar 27, 2021 10:17 pm

    Boa noite.
    pesquise  " identificar tag"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    [Resolvido]Ocultar todas as check box não ticadas do relatório Empty Re: [Resolvido]Ocultar todas as check box não ticadas do relatório

    Mensagem  DamascenoJr. Sáb Mar 27, 2021 10:23 pm

    Grande Adriano Very Happy

    Código:
    'variável onde a carapuça só serve para objetos do tipo controle
    Dim ctl As Control
       
    'dê-lhe uma passada nos controles do relatório
    'e salve o controle onde está passando a vista
    'na variável ctl
    For Each ctl In Me.Controls
        'se o controle onde está passando a vista
        'for do tipo CheckBox então
        If ctl.ControlType = acCheckBox Then
            'tal controle não deve ser visível se o seu valor for 'no'
            ctl.Visible = Not (ctl.Value = no)
        'fim da estrutura condicional
        End If
    'passe a vista novamente em um controle diferente
    Next ctl


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    adriano.ig gosta desta mensagem

    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 01/03/2016

    [Resolvido]Ocultar todas as check box não ticadas do relatório Empty Segue o banco

    Mensagem  adriano.ig Sáb Mar 27, 2021 10:58 pm

    Agora sim. Banco em anexo.
    Anexos
    [Resolvido]Ocultar todas as check box não ticadas do relatório AttachmentCOVID NOTIFICA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 17 vez(es)
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 01/03/2016

    [Resolvido]Ocultar todas as check box não ticadas do relatório Empty Ocultar todas as check box não ticadas do relatório

    Mensagem  adriano.ig Sáb Mar 27, 2021 11:21 pm

    Salve Mestre Damasceno Jr!

    Questão solucionada através do código indicado na sua resposta.

    Muito obrigado e parabéns!!!

    cheers cheers cheers

    Conteúdo patrocinado


    [Resolvido]Ocultar todas as check box não ticadas do relatório Empty Re: [Resolvido]Ocultar todas as check box não ticadas do relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui Fev 29, 2024 11:15 am