[Resolvido]Formatação Cindicional em uma concatenação

Pessoal gostaria de uma luz.
Tenho uma concatenação que pego de duas tabelas e depois transformo em uma referencia cruzada em um relatorio

A concatenação é a seguinte:


Status: Primeiro([RegistroFab_DtEntrada] & " " & [RegistroFab_DtEntrega] & " " & [CnsGeral.Status])


Exemplo:

01/01/2016 03/01/2016 Pendente
02/01/2016 05/01/2016 Em Processo
03/01/2016 07/01/2016 Concluída


Como é uma concatenação n]ao estou conseguinto atribuir uma formatação condicional

pOis meu desejo é onde :

Deixar em Vermelho onde existe "PENDENTE"
Deixar em verde existe "CONCLUIDA"
Deixar em azul onde existe "EM PROCESSO"


Alguem poderia me ajudar?

Obrigado

José, poderia fornecer um pequeno exemplo para que
possamos fazer uns testes?

No aguardo...

Certo.

segue




* Não consigo anexar o arquivo winrar

Tem que está compactado como zip

Segue um link para baixar

se puder me ajudar


http://www.4shared.com/file/bneBf_Owce/Teste.html

Criei uma TextBox chamada txtStatus, defini a fonte de controle o campo Status
da consulta e no campo Status do relatório, defini a formatação condicional usando
como critério na expressão o campo txtStatus que criei. Bem simples, mas eficiente.

Baixe o anexo e teste...

Mil perdoes, enviei o arquivo errado.

o correto seria esse

http://www.4shared.com/rar/38_RL0RUba/Teste12345.html


Obrigado

kkk
esse é puxado né

Maltratou os neurônios aqui.. Mas levei como questão de honra.. kkkk

Criei uma sub chamada subFormat.
Ela deve ser chamada obrigatoriamente na
última linha do evento Ao formatar da seção detalhe
do relatório.

Veja se é isso...

Código:

Sub subFormat()
    Dim ctl As Control
    Dim strNomeCtl As String

    For Each ctl In Me.Detalhe.Controls
        If ctl.ControlType = acTextBox Then
            strNomeCtl = ctl.Name

            With Me(strNomeCtl)

                If InStr(.Value, "Pendente") > 0 Then .ForeColor = vbRed
                If InStr(.Value, "Concluída") > 0 Then .ForeColor = 35653 'vbGreen
                If InStr(.Value, "Em Processo") > 0 Then .ForeColor = vbBlue

            End With
        End If
    Next
End Sub

Show de bola muito obrigado.

Ajudou e muito

Ótimo que ajudou! Só não esqueça de dar o tópico por resolvido...

Esquecestes de resolvido. Dessa vez eu coloco.

Desculpe, mas não acho onde se coloca o status de resolvido