[Resolvido]Mudar cor em relação a um valor.

Boa tarde.
Queria ao carregar um relatório através de um formulário, tendo em consideração 2 campos (Ex: A e B) fazer o seguinte:
Sendo A - Especificação e B - Valor Real, quando o valor de B for maior ou igual a A então B fica preto caso contrario fica vermelho.

Exemplo:
A - 70
B - 80 (Preto)
B - 65 (Vermelho)
B - 70 (Preto)

No evento carregar do formulário coloque algo assim:

Código:

Private Sub Report_Load()
  if CampoB < CampoA then
      CampoB.ForeColor = RGB(255, 0, 0)
  else
      CampoB.ForeColor = RGB(0, 0, 0)
  endif
End Sub

Obrigado thiagomcosta, funcionou.

Afinal não está a funcionar correctamente, pois só está a fazer comparação com o primeiro resultado.

Coloca o código no evento "Ao Pintar" do detalhe do relatório ao invés de na abertura.

Não deu. Estive a ver exemplos que mostra que é como tu dizes, mas não sei porque o meu não funciona.

Se puder postar a parte do banco que esta dando problemas.

Bom dia.
Vou colocar então a minha bd.
Ao ser executado o programa, vais ao menu relatório.
Dentro do formulário tens 3 caixas de listagem, na ultima que diz "FIOS ENTRANÇADOS" fazes:
1º - duplo click sobre "1- EUROLINE"
2º - escolhes a matéria prima (só te vai aparecer uma opção)
3º - escolhes o diâmetro 2.2
4º - Data inicial colocas 01-01-2017
5º - Data final colocas 01-01-2018 (ou a data de hoje)
6º - Botão visualizar.
Vai abrir o relatório com 6 registos, lá tem 3 produtos conforme e 3 não conformes, os não conformes o valor da força rotura tem que aparecer a vermelho.
No cabeçalho do relatório tem la a força especifica que diz 100, todos os valores a baixo de 100 tem que aparecer a vermelho e todos os valores acima ou igual a 100 tem que aparecer a preto.
Eu no detalhe do relatório tenho o campo ForcaEsp visível mas depois vou tirar, se estou a comparar 2 valores Forca e ForcaEsp, acredito que tenho que ter os 2 campos no detalhe do relatório.

Coloque no evento "Ao imprimir"
Por aqui funcionou deste jeito.

Código:

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
      If Forca < ForcaEsp Then
      Forca.ForeColor = RGB(255, 0, 0)
  Else
      Forca.ForeColor = RGB(0, 0, 0)
  End If
End Sub


Funcionou direitinho.
Obrigado.