[Resolvido]Ocultar Caixa de Seleção no Relatório

Boa tarde Senhores,

Estou a horas tentando ocultar caixa de seleção vazia no meu relatório e não consigo.

Poderiam informar onde estou errando?

Private Sub Report_Load()
If Me.500mlAgua.Value = True Then 'Se o valor da minha Caixa de Seleção.[500ml de água] é verdadeiro então
Me.500mlAgua.Visible = True 'Caixa de Seleção.[500ml de água] é visível
Me.1LitroAgua.Visible = False 'Caixa de Seleção.[1Litro de água] é invisível

ElseIf Me.Ctl1LitroAguaSucos.Value = True Then 'Ou se Caixa de Seleção.[1Litro de Água] é verdadeiro
Me.Ctl1LitroAguaSucos.Visible = True 'Caixa de Seleção.[1Litro de agua] é visível
Me.Ctl500mlAguaSucos.Visible = False 'Caixa de Seleção.[500ml de água] é invisível

End If
End Sub

Alguém poderia me ajudar com isto?

Poste a parte envolvida..

Boa tarde,

Segue parte do meu BD para análise.

Agradeço desde já!!!

Boa tarde,

O Mestre Avelino Sampaio me ajudou a solucionar meu problema.

Coloquei o Evento no "Detalhe do Relatório" "Ao Imprimir" e funcionou perfeitamente.

Obrigado!!!