[Resolvido]formatação condicional em caixa de sim/não em Formulário

boa tarde amigos do Fórum , estou tentando mas não consegui formatação condicional em caixa de sim/não em Formulário proveniente de uma consulta ,Pintar de vermelho o rótulo da caixa sim/não quando este estivesse marcado neste formulário tem 16 Caixas Sim/Não somente algumas são marcadas e ao abrir este formulário estou precisando que as marcadas se destaquem access 2010 desde já agradeço a quem puder me ajudar

Boas....

Caixas de condições ( sim/não ) não aceitam esse tipo de formatação.

Oque pode ser feito, é a criação de uma label ( rótulo ) e coloca-las atrás de cada caixa.

Em seguida, podemos implementar algo parecido com isso quando se abre o respectivo formulário.

if me caixasim/não = -1 then
me.label.background = vbred
else
me.label.background = vbmagenta.
end if

Bons estudos.

Boa tarde Silvio obrigado por me ajudar eu coloquei assim man não funcionou

Private Sub Form_Load()
If Me.Idade5a12anos = -1 Then
Me.Label.background = vbRed
Else
me.label.[background] = vbmagenta.
End If


End Sub

Eita....

manda o frm e a query para eu ver..

esta é o Bd vou tentar de novo anexar já tirei muitas consultas man ainda esta fora de tamanho vou tentar mais

É apenas a consulta, a tabela, e o respectivo formulário.

Crie um banco em branco e importe a tabela, a consulta e o formulário para esse novo banco. Simples de tudo !

meu Bd esta com 113 Kb e mesmo assim na hora de enviar esta mensagem

Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)
  não sei o que fazer agora

não consigo enviar é uma pena agora esta com 105 Kb mas não vai

bom, temos outras alternativas..

a- 4shared.com
b- google drivers
c- mega.co
d- one drivre


ou manda no meu e-mail: apicesystem@gmail.com

Silvio mandei para seu e_mail obrigado

Ok...

Darei vista a ele, logo mais a noite.

ok muito obrigado mesmo .

Bom dia Nogaro...

Vamos por etapas para lhe dar a solução.

1- em todos os rótulos, terá que deixar os fundos dos mesmo como normal e não transparente.

2- acerte a nomenclatura dos mesmos, para facilitar a localização e para escrever o código.   Ex: de Rótulo130 para RTLIniciante, amarrando dessa forma o rótulo com a caixa de sim/não.

3- clicar no detalhe do formulário em questão e no evento ao pintar terá que ter esse código que deixo como exemplo:

Private Sub Detalhe_Paint()
If Me.Iniciante.Value = -1 Then                " se o valor de iniciante for verdadeiro (-1) então
Me.RtlIniciante.BackColor = vbRed            " o fundo do rtliniciante é vermelho"
Else                                                     " senão"
Me.RtlIniciante.BackColor = vbGreen         " o fundo do rtliniciante é verde"
End If

If Me.FalsoIniciante.Value = -1 Then
Me.RtlFalsoIniciante.BackColor = vbRed
Else
Me.RtlFalsoIniciante.BackColor = vbGreen
End If


End Sub


4- terá que fazer isso para todos os rótulos envolvidos nesse teu formulário.


Bons estudos.

bom dia Silvio obrigado por enviar este código e se preocupar com meu Bd .
coloquei o código no detalhe ao pintar conforme me ensinou, mas ao abrir o form vem as duas caixas já pintadas verde e vermelho independente da caixa que esta marcada, devo ter feito algo errado .

Se tiver marcada....fica vermelho....senão fica verde.

Mas pode tirar o código e deixar apenas quando estiver marcada, deixando ele apenas dessa forma.

Private Sub Detalhe_Paint()
If Me.Iniciante.Value = -1 Then " se o valor de iniciante for verdadeiro (-1) então
Me.RtlIniciante.BackColor = vbRed " o fundo do rtliniciante é vermelho"
Else " senão"
Me.RtlIniciante.BackColor = vbWhite " o fundo do rtliniciante é Branco"
End If

Vale te lembrar que terás que fazer isso para todos os rótulos !

amigo Silvio valeu muito sua ajuda mas não consegui resolver

Eis o teu projeto com os códigos e as mudanças.

Por algum motivo....cósmico esotérico intergalático, não estou conseguindo anexar nada aqui.

Então eis o link do um servidor externo onde está o teu projeto com os códigos.

http://www.4shared.com/zip/cDQvRgWuce/Nogaro_new.html

amigo Silvio não consegui baixar se puder me mandar pelo meu e_mail  eu te agradeço   nogaro513@gnail.com
consegui fazer funcionar com seu código que postei  acima mas quando tento colocar no mesmo código duas caixas não funciona a segunda .

If Me.Idade5a12anos.Value = -1 Then
Me.RtlIniciante1.BackColor = vbRed
Else
Me.RtlIniciante1.BackColor = vbWhite
End If
If Me.Idade13a17anos.Value = -1 Then
Me.Adole.BackColor = vbRed
Me.Adole.BackColor = vbWhite
End If

Prevendo algo desse tipo, já te mandei o mesmo via e-mail.

Bons estudos.

amigi Silvio recebi o Bd mas aqui comigo não sei porque mas não funcionou este é o Código que colocou no Detalhe do form
Private Sub Detalhe_Paint()
' pinta o rotulo iniciante
If Me.Iniciante.Value = -1 Then
Me.RtlIniciante.BackColor = vbRed
End If


'pinta o rotulo manha
If Me.Manhã.Value = -1 Then
Me.RtlManha.BackColor = RGB(255, 246, 238)
End If

'pinta o rotulo sabado
If Me.Sábado.Value = -1 Then
Me.RtlSabado.BackColor = RGB(238, 345, 238)
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

este funcionou mas quando coloco mais uma opção no mesmo código só funciona a primeira

If Me.Idade5a12anos.Value = -1 Then
Me.RtlIniciante1.BackColor = vbRed
Else
Me.RtlIniciante1.BackColor = vbWhite
End If

Não há necessidade de usar esse código, ele pode ser deletado

Código:

este funcionou mas quando coloco mais uma opção no mesmo código só funciona a primeira

If Me.Idade5a12anos.Value = -1 Then
Me.RtlIniciante1.BackColor = vbRed
Else
Me.RtlIniciante1.BackColor = vbWhite
End If

deixando apenas dessa forma...
este funcionou mas quando coloco mais uma opção no mesmo código só funciona a primeira

If Me.Idade5a12anos.Value = -1 Then
Me.RtlIniciante1.BackColor = vbRed
End If

resolvido amigo Silvio coloquei desta forma

If Me.Idade5a12anos.Value = -1 Then
Me.Criança.BackColor = vbRed
Else
Me.Criança.BackColor = vbWhite
End If
If Me.Idade13a17anos.Value = -1 Then
Me.Adolecente.BackColor = vbRed
Else
Me.Adolecente.BackColor = vbWhite
End If
If Me.Idadeapartirde18anos.Value = -1 Then
Me.Adulto.BackColor = vbRed
Else
Me.Adulto.BackColor = vbWhite
End If

estou muito grato pela ajuda que me prestou um abraço

Resolvido

O fórum agradece o retorno.
Sucesso.