Eu sou nova aki no forum, e jah procurei como mudar a cor do campo, quando o numero da tabela for maior. Eu cheguei ate achar alguma coisa so que nao funcionou.
Serao que alguem poderia me dar uma luz.

obrigada

Diretamente na tabela não da para mudar a cor, no formulário sim

ops esqueci de falar...Jah esta em um formulario. como que eu faço para deixar, a linha colorida. quando o numero for maior.

obrigada pela atenção

Oi,


veja sobre formatação condicional.

Sampaio,Jah fiz...nao da pra fazer ele crifar a linha maior sozinho. Pois eu so sei qual e a linha maior depois q eu insiro os numeros

obrigada pela ajuda

JulyLF,
Sera alguma coisa assim :

' se valor maior que 100
If valor > 100 then

' entao faça
' cor vermelha
Me![Lancdata].ForeColor = 255

Else
'Caso contrario
' cor preta
Me![Combinação33].ForeColor = 0

End If

colocar no form No Atual.

Espero te ajudado.

nao aconteceu nada. o codigo fikou assim.

Private Sub Form_Current()

'se valor maior que 100
If valor > 100 Then

' entao faça
' cor vermelha
Me![soma_automatico].ForeColor = 255

Else
'Caso contrario
' cor preta
Me![soma_automatico].ForeColor = 0

End If

End Sub

mais agradeço desde jah
Obrigada

dentro dos conchetes [],eu coloco o nome do campo ou da tabela?

O nome do campo

oie Pessoal, queria agradecer por vcs ter me ajudado, mais eu acho q eu sou muito burra. O codigo nao esta funcionando.
ALguem me de uma luz?

Obrigada

JulyF,
Não existe burrice, voce esta esquecendo
algum detalhe.

Faça uma analise melhor.
Qualquer coisa nos avise.

Eu coloquei esse codigo no Evento Atual e ele nao funciona.


Private Sub Form_Current()

'se valor maior que 100
If valor > 100 Then

Me![soma_automatico].ForeColor = 255

Else
Me![soma_automatico].ForeColor = 0

End If
End Sub


Eu nao sei o q esta errado, se vc poder me ajudar.

Oi July,
No campo do seu fromulário clique em cima dele com o botão direito do mouse e va até formatação condicional, acho que isso é mais fácil.

acho q esquece de explicar um negocio...hihihih.

Eu tenho 12 linhas, com 4 colunas, em cada uma eu faço uma soma. Depois com essa soma eu preciso q pinte qual foi a maior.

Desculpe nao ter colocado isso antes eu tinha esquecido.

mesmo assim obrigado pela atenção

xiiii.....acho q eu fiz uma pergunta muito dificil, pois ninguem respondeu....Por favor pessoal, To precisando disso Urgente.

Obrigada

Se entendi bem...a solução dada anteriormente sobre o Form_Current se encaixa direitinho...

É só adaptar a sua estrutura...

Seria pedir muito um exemplo....Obrigada

Bom...não importa a quantidade de linhas, e temos 4 colunas né?

Vamos chamar assim : Soma1, Soma2, Soma3 e Soma4

Agora no evento No Atual


Sub Form_Current()

If (Me.Soma1 > Me.Soma2) And (Me.Soma1 > Me.Soma3) And (Me.Soma1 > Me.Soma4) Then
Me.Soma1.BackColor = vbBlue
End If

If (Me.Soma2 > Me.Soma1) And (Me.Soma2 > Me.Soma3) And (Me.Soma2 > Me.Soma4) Then
Me.Soma2.BackColor = vbBlue
End If

If (Me.Soma3 > Me.Soma1) And (Me.Soma3 > Me.Soma2) And (Me.Soma3 > Me.Soma4) Then
Me.Soma3.BackColor = vbBlue
End If

If (Me.Soma4 > Me.Soma1) And (Me.Soma4 > Me.Soma2) And (Me.Soma4 > Me.Soma3) Then
Me.Soma4.BackColor = vbBlue
End If

End Sub

é só um exemplo e uma forma de fazer...iluminou?

t+

vou ve se funciona....amanha eu posto denovo.

Paulo mas jah agradeço. Obrigada

O Codigo funcionou perfeitamente....so q esta faltando um Else, Eu fiz esse so que esta dando erro. alguem pode me ajudar.

If (Me.soma1 > Me.soma2) And (Me.soma1 > Me.soma3) And (Me.soma1 > Me.soma4) Then
Me.soma1.BackColor = vbGreen
Else( Me.soma1 < Me.soma2) And (Me.soma1 < Me.soma3) And (Me.soma1 < Me.soma4) Then
Me.soma1.BackColor = vbBlack
End If


Obrigada

quote:

Else( Me.soma1 < Me.soma2) And (Me.soma1 < Me.soma3) And (Me.soma1 < Me.soma4) Then

ElseIf ( Me.soma1 < Me.soma2) And (Me.soma1 < Me.soma3) And (Me.soma1 < Me.soma4) Then

...

Obrigada.....agora funcionou

OI tem como vc passar o codigo pra min...eu nao estou conseguindo fazer.
Obrigado

July,

Depois de Else não tem Then...
ElseIf é outra estrutura...

Recomendo fazer os IF's separados como indiquei antes...

Paulo, Eu nao intendi o que vc quiz dizer???

Rafael, assim q eu terminar eu te mando por e-mail