[Resolvido]Ocultar Rótulo de acordo com a Condição Sim/Não de um controle.

Boa Tarde à todos.

Tenho um formulário onde coloquei algumas caixa de controle do tipo Sim/Não, cada uma delas tem um Rótulo.
O que eu preciso é: Que ao marcar a caixa de controle com um Sim o Rótulo fique invisível.

O Propósito disto é que tenho uma tabela de horários e a cada dia alguns desses horários não são funcionais. Então pela caixa de marcação eu poderia mostrar ou ocultar o horário que me refiro.



Como exemplo: Essas cxs marcadas teriam que ter invisiveis os horários .
Desde já agradeço a valiosa ajuda.

Olá

Pode usar assim:

no evento apos atualizar da caixa de opção:

If opcao1.value = true then
Rotulo.Caption = "07:00"
Else
Rotulo.Caption = ""
End If


Tenta assim

Boa Noite Amigo.

Funcionou mas não mantém o dado.
Eu coloquei no evento ao sair:

If Me.Quatro.Value = False Then
Me.RótuloQuatro.Caption = "04:00"
Else
Me.RótuloQuatro.Caption = ""
End If

Mas, ao recarregar os rótulos ficam visiveis mesmo marcados.

Usei este critério levando em conta que: Se o usuário indicar este horário como inativo então ele fica invisivel.

Boas Ivan

tente assim

No Evento apos atualizar do seu campo sim/não


If [SeuCampo] = -1 then
Me.[SuaCaixa].visible = False
Else
Me.[SuaCaixa].visible = True
End If

Bom dia AErmel.
Consegui resolver esta parte do problema.
Coloquei a instrução sugerida pelo amigo no evento "Após Atualizar" da caixa de controle, mas para que a instrução se mantenha depois de recarregar o formulário e tive que acrescentar a mesma instrução no evento "No atual" do formulário. Sendo assim todo p efeito fica como se fosse em tempo real, ocultando ou não o rótulo conforme instrução.

O problema agora é que: Tenho 40 campos como esse e teria que repetir isso em cada um deles e acrescentar um-a-um no evento "NoAtual".
A pergunta é: Consigo fazer isso usando uma variável ou coisa parecida?
Obrigado pelo brilhante suporte.

Boas Ivan

Uma pergunta..

É um formulário não acoplado ??

Boa Noite AErmel.

Sim. Este Subformulário está, inclusive em uma página do formulário "Clientes".
Eu tive paciência e fiz as 40 instruções uma a uma para cada controle e depois coloquei as funções no evento "No Atual" do formulário "Clientes.

Ficou Absurdamente enorme assim:

Código:

Private Sub QuatroA_AfterUpdate()
If Me!QuatroA = -1 Then
Me!Rótulo283.visible = False
Else
Me!Rótulo283.visible = True

End If
End Sub

Private Sub SeisA_AfterUpdate()
If Me!SeisA = -1 Then
Me!Rótulo284.visible = False
Else
Me!Rótulo284.visible = True

End If
End Sub

Private Sub OitoA_AfterUpdate()
If Me!OitoA = -1 Then
Me!Rótulo285.visible = False
Else
Me!Rótulo285.visible = True

End If
End Sub

Private Sub NoveA_AfterUpdate()
If Me!NoveA = -1 Then
Me!Rótulo286.visible = False
Else
Me!Rótulo286.visible = True

End If
End Sub

Private Sub DozeA_AfterUpdate()
If Me!DozeA = -1 Then
Me!Rótulo287.visible = False
Else
Me!Rótulo287.visible = True

End If
End Sub

Private Sub QuatorzeA_AfterUpdate()
If Me!QuatorzeA = -1 Then
Me!Rótulo288.visible = False
Else
Me!Rótulo288.visible = True

End If
End Sub

Private Sub QuinzeA_AfterUpdate()
If Me!QuinzeA = -1 Then
Me!Rótulo289.visible = False
Else
Me!Rótulo289.visible = True

End If
End Sub

Private Sub DezesseteA_AfterUpdate()
If Me!DezesseteA = -1 Then
Me!Rótulo290.visible = False
Else
Me!Rótulo290.visible = True

End If
End Sub

Private Sub DezoitoA_AfterUpdate()
If Me!DezoitoA = -1 Then
Me!Rótulo291.visible = False
Else
Me!Rótulo291.visible = True

End If
End Sub

Private Sub VinteA_AfterUpdate()
If Me!VinteA = -1 Then
Me!Rótulo292.visible = False
Else
Me!Rótulo292.visible = True

End If
End Sub

Private Sub QuatroB_AfterUpdate()
If Me!QuatRoB = -1 Then
Me!Rótulo293.visible = False
Else
Me!Rótulo293.visible = True

End If
End Sub

Private Sub SeisB_AfterUpdate()
If Me!SeisB = -1 Then
Me!Rótulo294.visible = False
Else
Me!Rótulo294.visible = True

End If
End Sub

Private Sub OitoB_AfterUpdate()
If Me!OitoB = -1 Then
Me!Rótulo295.visible = False
Else
Me!Rótulo295.visible = True

End If
End Sub

Private Sub NoveB_AfterUpdate()
If Me!NoveB = -1 Then
Me!Rótulo296.visible = False
Else
Me!Rótulo296.visible = True

End If
End Sub

Private Sub DozeB_AfterUpdate()
If Me!DozeB = -1 Then
Me!Rótulo297.visible = False
Else
Me!Rótulo297.visible = True

End If
End Sub

Private Sub QuatorzeB_AfterUpdate()
If Me!QuatorzeB = -1 Then
Me!Rótulo298.visible = False
Else
Me!Rótulo298.visible = True

End If
End Sub

Private Sub QuinzeB_AfterUpdate()
If Me!QuinzeB = -1 Then
Me!Rótulo299.visible = False
Else
Me!Rótulo299.visible = True

End If
End Sub

Private Sub DezesseteB_AfterUpdate()
If Me!DezesseteB = -1 Then
Me!Rótulo300.visible = False
Else
Me!Rótulo300.visible = True

End If
End Sub

Private Sub DezoitoB_AfterUpdate()
If Me!DezoitoB = -1 Then
Me!Rótulo301.visible = False
Else
Me!Rótulo301.visible = True

End If
End Sub

Private Sub VinteB_AfterUpdate()
If Me!VinteB = -1 Then
Me!Rótulo302.visible = False
Else
Me!Rótulo302.visible = True

End If
End Sub

Private Sub QuatroC_AfterUpdate()
If Me!QuatroC = -1 Then
Me!Rótulo303.visible = False
Else
Me!Rótulo303.visible = True

End If
End Sub

Private Sub SeisC_AfterUpdate()
If Me!SeisC = -1 Then
Me!Rótulo304.visible = False
Else
Me!Rótulo304.visible = True

End If
End Sub

Private Sub OitoC_AfterUpdate()
If Me!OitoC = -1 Then
Me!Rótulo305.visible = False
Else
Me!Rótulo305.visible = True

End If
End Sub

Private Sub NoveC_AfterUpdate()
If Me!NoveC = -1 Then
Me!Rótulo306.visible = False
Else
Me!Rótulo306.visible = True

End If
End Sub

Private Sub DozeC_AfterUpdate()
If Me!DozeC = -1 Then
Me!Rótulo307.visible = False
Else
Me!Rótulo307.visible = True

End If
End Sub

Private Sub QuatorzeC_AfterUpdate()
If Me!QuatorzeC = -1 Then
Me!Rótulo308.visible = False
Else
Me!Rótulo308.visible = True

End If
End Sub

Private Sub QuinzeC_AfterUpdate()
If Me!QuinzeC = -1 Then
Me!Rótulo309.visible = False
Else
Me!Rótulo309.visible = True

End If
End Sub

Private Sub DezesseteC_AfterUpdate()
If Me!DezesseteC = -1 Then
Me!Rótulo310.visible = False
Else
Me!Rótulo310.visible = True

End If
End Sub

Private Sub DezoitoC_AfterUpdate()
If Me!DezoitoC = -1 Then
Me!Rótulo311.visible = False
Else
Me!Rótulo311.visible = True

End If
End Sub

Private Sub VinteC_AfterUpdate()
If Me!VinteC = -1 Then
Me!Rótulo312.visible = False
Else
Me!Rótulo312.visible = True

End If
End Sub


E ainda as instruções para a primeira tabela mostrada com os horários onde cada campo segue a mesma sequência mas sem a letra em maiúscula que eu usei para diferenciar cada campo.
Depois eu coloquei estes códigos no evento "No Atual" do formulário "Clientes":

Código:

If Me!Quatro = -1 Then
Me!Rótulo273.visible = False
Else
Me!Rótulo273.visible = True

End If

If Me!Seis = -1 Then
Me!Rótulo274.visible = False
Else
Me!Rótulo274.visible = True

End If

If Me!Oito = -1 Then
Me!Rótulo275.visible = False
Else
Me!Rótulo275.visible = True

End If

If Me!Nove = -1 Then
Me!Rótulo276.visible = False
Else
Me!Rótulo276.visible = True

End If

If Me!Doze = -1 Then
Me!Rótulo277.visible = False
Else
Me!Rótulo277.visible = True

End If

If Me!Quatorze = -1 Then
Me!Rótulo278.visible = False
Else
Me!Rótulo278.visible = True

End If

If Me!Quinze = -1 Then
Me!Rótulo279.visible = False
Else
Me!Rótulo279.visible = True

End If

If Me!Dezessete = -1 Then
Me!Rótulo280.visible = False
Else
Me!Rótulo280.visible = True

End If

If Me!Dezoito = -1 Then
Me!Rótulo281.visible = False
Else
Me!Rótulo281.visible = True

End If

If Me!Vinte = -1 Then
Me!Rótulo282.visible = False
Else
Me!Rótulo282.visible = True

End If

If Me!QuatroA = -1 Then
Me!Rótulo283.visible = False
Else
Me!Rótulo283.visible = True

End If

If Me!SeisA = -1 Then
Me!Rótulo284.visible = False
Else
Me!Rótulo284.visible = True

End If

If Me!OitoA = -1 Then
Me!Rótulo285.visible = False
Else
Me!Rótulo275.visible = True

End If

If Me!NoveA = -1 Then
Me!Rótulo286.visible = False
Else
Me!Rótulo286.visible = True

End If

If Me!DozeA = -1 Then
Me!Rótulo287.visible = False
Else
Me!Rótulo287.visible = True

End If

If Me!QuatorzeA = -1 Then
Me!Rótulo288.visible = False
Else
Me!Rótulo288.visible = True

End If

If Me!QuinzeA = -1 Then
Me!Rótulo289.visible = False
Else
Me!Rótulo289.visible = True

End If

If Me!DezesseteA = -1 Then
Me!Rótulo290.visible = False
Else
Me!Rótulo290.visible = True

End If

If Me!DezoitoA = -1 Then
Me!Rótulo291.visible = False
Else
Me!Rótulo291.visible = True

End If

If Me!VinteA = -1 Then
Me!Rótulo292.visible = False
Else
Me!Rótulo292.visible = True

End If

If Me!QuatRoB = -1 Then
Me!Rótulo293.visible = False
Else
Me!Rótulo293.visible = True

End If

If Me!SeisB = -1 Then
Me!Rótulo294.visible = False
Else
Me!Rótulo294.visible = True

End If

If Me!OitoB = -1 Then
Me!Rótulo295.visible = False
Else
Me!Rótulo295.visible = True

End If

If Me!NoveB = -1 Then
Me!Rótulo296.visible = False
Else
Me!Rótulo296.visible = True

End If

If Me!DozeB = -1 Then
Me!Rótulo297.visible = False
Else
Me!Rótulo297.visible = True

End If

If Me!QuatorzeB = -1 Then
Me!Rótulo298.visible = False
Else
Me!Rótulo298.visible = True

End If

If Me!QuinzeB = -1 Then
Me!Rótulo299.visible = False
Else
Me!Rótulo299.visible = True

End If

If Me!DezesseteB = -1 Then
Me!Rótulo300.visible = False
Else
Me!Rótulo300.visible = True

End If

If Me!DezoitoB = -1 Then
Me!Rótulo301.visible = False
Else
Me!Rótulo301.visible = True

End If

If Me!VinteB = -1 Then
Me!Rótulo302.visible = False
Else
Me!Rótulo302.visible = True

End If

If Me!QuatroC = -1 Then
Me!Rótulo303.visible = False
Else
Me!Rótulo303.visible = True

End If

If Me!SeisC = -1 Then
Me!Rótulo304.visible = False
Else
Me!Rótulo304.visible = True

End If

If Me!OitoC = -1 Then
Me!Rótulo305.visible = False
Else
Me!Rótulo305.visible = True

End If

If Me!NoveC = -1 Then
Me!Rótulo306.visible = False
Else
Me!Rótulo306.visible = True

End If

If Me!DozeC = -1 Then
Me!Rótulo307.visible = False
Else
Me!Rótulo307.visible = True

End If

If Me!QuatorzeC = -1 Then
Me!Rótulo308.visible = False
Else
Me!Rótulo308.visible = True

End If

If Me!QuinzeC = -1 Then
Me!Rótulo309.visible = False
Else
Me!Rótulo309.visible = True

End If

If Me!DezesseteC = -1 Then
Me!Rótulo310.visible = False
Else
Me!Rótulo310.visible = True

End If

If Me!DezoitoC = -1 Then
Me!Rótulo311.visible = False
Else
Me!Rótulo311.visible = True

End If

If Me!VinteC = -1 Then
Me!Rótulo312.visible = False
Else
Me!Rótulo312.visible = True

End If

End Sub


Tudo isso pra poder ter o efeito que eu queria.
E, apesar de enoooooooorme....está exatamente da forma que eu preciso.

Segue o Print da tela como ficou:

https://i.servimg.com/u/f45/20/06/76/66/embuib10.jpg

Boa noite Ivan

Bom. Pelo menos tens uma solução para o objetivo.
Mais uma pergunta só para matar a curiosidade..

Não seria possível manter estes dados em uma tabela ??
Tudo ficaria mais fácil.... e bem reduzido...

De qualquer maneira, eu desconheço outros códigos que poderiam ajudar nesta questão.
Talvez algum Expert aqui do fórum ainda possa apresentar uma melhoria para seu projeto.

Sucesso na empreitada...

Sim Amigo.
Inclusive, estes dados eu mantenho na Tabela "Clientes" cada campo criado para a marcação ficou com um nome sequencial de 1 a 40, somente para "Segurar" a marcação do Sim/Não.