ao carregar o relatorio, em folha de propriedade "dados" = uma consulta
e em vba tenho a seguinte codificação
If (Me.txtresultado.Value >= 1001) And (Me.txtresultado.Value <= 1250) Then
Me.txtresultado.BackColor = vbRed
ElseIf (Me.txtresultado.Value >= 751) And (Me.txtresultado.Value <= 1000) Then
Me.txtresultado.BackColor = vbYellow
ElseIf (Me.txtresultado.Value >= 501) And (Me.txtresultado.Value <= 750) Then
Me.txtresultado.BackColor = RGB(255, 165, 0)
ElseIf (Me.txtresultado.Value >= 251) And (Me.txtresultado.Value <= 500) Then
Me.txtresultado.BackColor = vbCyan
Else
Me.txtresultado.BackColor = vbGreen
End If
If IsNull(txtresultado) Or Me.txtresultado = "" Then
Me.txtresultado.BackColor = vbWhite
End If
onde mudo a cor do campo texto, txtresultado.
o que acontece é que a cor não altera conforme o valor. é preenchido a primeira linha com uma cor e as outras ficam igual a primeira linha.
podem me ajudar.
e em vba tenho a seguinte codificação
If (Me.txtresultado.Value >= 1001) And (Me.txtresultado.Value <= 1250) Then
Me.txtresultado.BackColor = vbRed
ElseIf (Me.txtresultado.Value >= 751) And (Me.txtresultado.Value <= 1000) Then
Me.txtresultado.BackColor = vbYellow
ElseIf (Me.txtresultado.Value >= 501) And (Me.txtresultado.Value <= 750) Then
Me.txtresultado.BackColor = RGB(255, 165, 0)
ElseIf (Me.txtresultado.Value >= 251) And (Me.txtresultado.Value <= 500) Then
Me.txtresultado.BackColor = vbCyan
Else
Me.txtresultado.BackColor = vbGreen
End If
If IsNull(txtresultado) Or Me.txtresultado = "" Then
Me.txtresultado.BackColor = vbWhite
End If
onde mudo a cor do campo texto, txtresultado.
o que acontece é que a cor não altera conforme o valor. é preenchido a primeira linha com uma cor e as outras ficam igual a primeira linha.
podem me ajudar.