[Resolvido]Alterar cor registo num relatório mediante condição

Boa tarde!

Tenho um relatório que vai buscar dados a uma consulta "UtentesPorMédico" feita com os dados da tabela "Utentes". Esta tabela Utentes está ligada ás tabelas "Medico" e "MotivoFimTratamento". O relatório Está ordenado por Medico e utente. A tabela "Medico" tem o nome dos Medicos. A tabela "MotivoFimTratamento" tem "Faleceu", "Transferido", etc. Na tabela "Utentes" este registo está em branco, para a maioria dos utentes, uma vez que ainda estão em tratamento.
O que eu pretendia era que ao chamar o relatório os utentes que tivessem falecido aparecessem com a cor do testo diferente, os transferidos com outra cor e os restantes com outra. Ou então em vez de ser a cor do testo podia ser a cor de fundo.

Comecei só com uma condição desta forma:

'Private Sub Report_Open(Cancel As Integer)
'On Error Resume Next
'DoCmd.Maximize
'If Me.MotivoFimTratamento.Value = "Faleceu" Then
     'Me.Paciente.ForeColor = vbRed
  'Else
     'Me.Paciente.ForeColor = vbBlack
  'End If
'End Sub


Mas, aparecem todos os utentes a vermelho.

Podem me dar uma ajudinha?

Muito obrigado.

up...

Boa noite
Respeite as regras do fórum, no caso, a regra 10
Tente participar mais no fórum, nomeadamente ajudando dúvidas de outros colegas, só assim é que outros o ajudam.

Sobre a sua dúvida, coloque o código no acontecimento ao formatar

Boa noite!
Caro Amigo @Alexandre Neves, perdoe a ousadia de o tratar desta forma.
Você já me ajudou muito, neste âmbito e por isso sou-lhe agradecido.
Eu, por diversas razões não tenho tido tempo para me dedicar a este passatempo.
Lições de moral é que eu não aceito, já não tenho idade para isso. A minha vida tem sido dedicada a ajudar as pessoas, não neste âmbito, mas noutros.
Lamento não ter tido disponibilidade para participar mais no forum. Mas nada do que tenho realizado aqui, tem sido fruto de ganhos, muito pelo contrário.
Relativamente á minha questão já a tinha resolvido com a colaboração do Amigo @Assis da seguinte forma:

'Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)

'If Me.MotivoFimTratamento.Value = "Faleceu" Then
'     Me.Paciente.BackColor = RGB(128, 128, 128)
'ElseIf Me.MotivoFimTratamento.Value = "Domicilios UPA" Then
'      Me.Paciente.BackColor = RGB(0, 191, 255)
'ElseIf Me.MotivoFimTratamento.Value = "Suspendeu" Then
'      Me.Paciente.BackColor = RGB(123, 104, 238)
'ElseIf Me.MotivoFimTratamento.Value = "Serviço" Then
'      Me.Paciente.BackColor = RGB(152, 251, 152)
'ElseIf Me.MotivoFimTratamento.Value = "Transferido" Then
'      Me.Paciente.BackColor = RGB(255, 255, 51)
'   Else
'      Me.Paciente.BackColor = RGB(255, 255, 255)
'   End If
'End Sub

Muito obrigado a todos, e sempre que me for possível e do meu conhecimento darei o meu contributo.

Esqueci de colocar resolvido

Resolvido