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

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!

Grande Adriano

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

Agora sim. Banco em anexo.

Salve Mestre Damasceno Jr!

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

Muito obrigado e parabéns!!!