[Resolvido]Formatação Condicional

Como comparar um mesmo campo no subform,alterando cor quando o valor for maior?

Subform continuo

Bom dia...

Usando a formatação condicional no referido campo.
Vá no campo, clicar em formatação condicional, na condição 1, escolher na primeira combo " O valor do campo", na segunda combo escolha se será maior ou menor, na caixa de texto na frente, defina o valor desejado, depois defina a cor da fonte ou a cor do fundo do campo.
Repetir a operação na condição 2, caso a condição 1 for maior que o valor referido...a condição 2 será menor.

Amigo Silvio
Como este campo recebe valores aleatórios que pinte sempre a aquele valor que estiver a maior.

ok....nesse caso então a situação fica meio que complicada. Não existe um valor padrão, um meio termo ?

Não funcionou

Expressão [Texto 58]=Máx([texto 58])

Não tem espaço errei ao escrever aqui

Tem como fazer pelo Vba

Segue exemplo

Vou estudar pois é exatamente como eu fiz

Conseguiu descobrir ?

Aguardamos

Não da certo vou enviar o db !

Grande Avelino Funcionou perfeitamente!

Só uma perguntinha é possível, fazer isso pintando o min e max
e como?

Sim,

altere a função para:

Private Sub Form_Timer()
Dim valorMax As Double
Dim valorMin As Double
On Error Resume Next
valorMax = DMax("vendaavista", "tblVendas", "datavenda between #" & Format(Parent!dtini, "mm/dd/yyyy") & "# and #" & Format(Parent!dtfinal, "mm/dd/yyyy") & "#")
valorMin = DMin("vendaavista", "tblVendas", "datavenda between #" & Format(Parent!dtini, "mm/dd/yyyy") & "# and #" & Format(Parent!dtfinal, "mm/dd/yyyy") & "#")

Me!Texto58.FormatConditions.Delete
Me!Texto58.FormatConditions.Add acExpression, , "[texto58]=" & Replace(valorMax, ",", ".")
Me!Texto58.FormatConditions.Add acExpression, , "[texto58]=" & Replace(valorMin, ",", ".")
With Me!Texto58.FormatConditions(0)
    .ForeColor = vbWhite
    .BackColor = vbBlue
End With
With Me!Texto58.FormatConditions(1)
    .ForeColor = vbWhite
    .BackColor = vbRed
End With
Me.TimerInterval = 0
End Sub

Sucesso!