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