[Resolvido]Formatação Condicional

Ola Pessoal

tenho (3) campos com valores para fazer a regra de formatação condicional com a com Verde para valor mais baixo
exemplo (valor 1 - 25,00) (valor 2 - 23,00) (valor 3 - 27,00)
coloquei a regra no valor1 menor que valor2 e valor3 e assim para os outros so que quando tenho dois valores menores exemplo
que esta acima os dois campos ficam em verde valor 1 e valor2 mas eu quero só o menor

acho que fui claro

na aba formatar , tem a formatação condicional, clica en nova rega , la vc coloca entre valores

ola crysostomo

coloquei mas ainda continua não funcionando.

Ola crysostomo

estou enviado uma imagem do formulário

passa o seu anexo explicando mais , porque pelo que entendi voce quer que um campo destaque com menor valor do outro .

Código:

Private Sub valor1_AfterUpdate()
If Me.valor1 < Me.valor2 And Me.valor3 Then
    Me.valor1.BackColor = RGB(0, 255, 0) 'aqui coloca o verde
Elseif me.valor1 > me.valor2 and me.valor3 then
Me.valor1.BackColor = RGB(255, 255, 255) 'aqui volta par o branco
e assim vai a lógica
End If

Ola crysostomo

coloquei os códigos para cada campo onde eu coloco o valor mas nao aplicou as cores pois que sempre o menor valor em verde

Private Sub Valor1_AfterUpdate()
If Me.Valor1 < Me.Valor2 And Me.Valor3 Then
Me.Valor1.BackColor = RGB(78, 47, 47) 'aqui coloca o verde
ElseIf Me.Valor1 > Me.Valor2 And Me.Valor3 Then
Me.Valor1.BackColor = RGB(255, 255, 255) 'aqui volta par o branco

End If
End Sub

Private Sub Valor2_AfterUpdate()
If Me.Valor2 < Me.Valor1 And Me.Valor3 Then
Me.Valor2.BackColor = RGB(78, 47, 47) 'aqui coloca o verde
ElseIf Me.Valor2 > Me.Valor1 And Me.Valor3 Then
Me.Valor2.BackColor = RGB(255, 255, 255) 'aqui volta par o branco
End If
End Sub

Private Sub Valor3_AfterUpdate()
If Me.Valor3 < Me.Valor1 And Me.Valor2 Then
Me.Valor3.BackColor = RGB(78, 47, 47) 'aqui coloca o verde
ElseIf Me.Valor3 > Me.Valor1 And Me.Valor2 Then
Me.Valor3.BackColor = RGB(255, 255, 255) 'aqui volta par o branco

End If
End Sub

boa tarde amigo, estou reparando um sistema que estou fazendo para estágio e tcc.
mande seu anexo aqui..
que daqui a pouco eu vou ver isso.

Ola crysostomo

segue o arquivo com formulário.

colega , boa tarde, eu não sei porque ele não esta funcionando nesse modo de layout, porque colocando ele como formulário comum ou no formulário de vários item ele funciona ele esta funcionando.
vou dar uma olhada agora aqui.
tipo

Código:

Function ConfereValor()
If Me.Valor1 < Me.Valor2 And Me.Valor3 Then
    Me.Valor1.BackColor = RGB(0, 255, 0) 'aqui coloca o verde
ElseIf Me.Valor1 > Me.Valor2 And Me.Valor3 Then
    Me.Valor1.BackColor = RGB(255, 255, 255) 'aqui volta par o branco

End If
End Function

Private Sub Form_Load()
Call ConfereValor
End Sub

formulário normal

Formulario de varios item



--

Ola crysostomo

deixei com formulário normal numa linha só e blz

muito obrigado pela sua ajuda

Vlw, Tmj .