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

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

    avatar
    adriano.ig
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    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 Sab 27 Mar - 21:35

    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 Dom 28 Mar - 4:25, editado 1 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1664
    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 Dom 28 Mar - 3:17

    Boa noite.
    pesquise  " identificar tag"


    .................................................................................
    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 : 2699
    Registrado : 22/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. Dom 28 Mar - 3:23

    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
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  adriano.ig Dom 28 Mar - 3:58

    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 5 vez(es)
    avatar
    adriano.ig
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    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 Dom 28 Mar - 4:21

    Salve Mestre Damasceno Jr!

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

    Muito obrigado e parabéns!!!

    cheers cheers cheers

      Data/hora atual: Sab 17 Abr - 18:37