[Resolvido]Caixa verificação em formulário continuo

Bom dia a Todos,

eu tenho um problema semelhante mas que não dá com Formatação condicional.

Tenho que usar um form continuo e cada registo tem duas cx de verificação e eu queria que qd uma é verdadeira a outra não ficasse visível, e uso este código:

If ValidaEnv = -1 Then Me.EncHist_sem__VD.Visible = False
'If ValidaEnv = 0 Then Me.EncHist_sem__VD.Visible = True

Ele funciona só que faz em todos os registos que aparecem .
Podem ajudar?
Obrigado
Júlio

Bom dia.

Essas caixas de verificação ( sim/não ) tem que estar presente na tabela de origem.

Outra coisa, formulário continuo, você não vai conseguir fazer o que deseja ( True or false )...somente em formulário simples.

Bom dia Silvio,

Sim elas estão na tabela de origem.

Que posso então fazer num form continuo?

Obrigado

Você pode usar a formatação condicional, para mudar de cor quando a caixa está selecionada. Pode usar também algum código via vba para mudar de cor a linha que precisa.

Detalhe do formulário / Repaint ( ao pintar )

Se a ideia pelo que entendi, é quando uma checkbox está selecionada a outra ficar invisivel, esqueça que não dá no MsAccess em form continuo.

boas....

Aqui, eu me expressei de forma confusa

Eu escreveu:Você pode usar a formatação condicional, para mudar de cor quando a caixa está selecionada. Pode usar também algum código via vba para mudar de cor a linha que precisa.

O certo.......quando as caixas de textos tiverem o sim/não selecionado

Um exemplo que eu utilizo muito quando se trata de formulário continuo e eu quero destacar algumas coisas nele.

Código:


Private Sub Detalhe_Paint()
If Me.Dinheiro = -1 Then 'azul
Me.Valor.BackColor = RGB(225, 240, 255)
End If

If Me.CCredito = -1 Then 'verde
Me.Valor.BackColor = RGB(240, 255, 225)
End If

If Me.CDebito = -1 Then 'verde
Me.Valor.BackColor = RGB(255, 240, 225)
End If

If Me.Carteira = -1 Then 'verde
Me.Valor.BackColor = RGB(235, 210, 225)
End If

If Me.Cheques = -1 Then
Me.Valor.BackColor = RGB(214, 223, 236)
End If

If Me.TransfDep = -1 Then
Me.Valor.BackColor = RGB(221, 205, 245)
End If

Espero ter te ajudado em algo.

Abraços.

Silvio amigão, pintar da cor que quiser sim é fácil e ms access permite, colocar a checkbox invisível não, que foi o pedido.

Salve JPaulo, a quanto tempo...Saudações !!

Concordo com o teu post. Invisível não fica mesmo.

Obrigado Amigos,

acabei com o form continuo e resolvo o problema.