[Resolvido]Cores em Vencimentos próximos

Bom dia,

Gostaria de saber como posso colocar cores em vencimentos.
Exemplo:

Se o vencimento está dentro de 60 dias = Um caixa de texto é pintada de amarela ou a linha da consulta.
Se """ ""                                 30 dias = """"                                 cor vermelha
Se "" ""                                  15 dias = """" aparece a informação: " O vencimento se em prazo aproxima... "

Bom dia,
Você terá que fazer a condição no Evento ao Formatar da seção Detalhe.

Código:


Select Case Me!Vecimento.Value
   Case <=60: Me!CaixaTexto.BackColor = vbYellow
   Case <=30: Me!CaixaTexto.BackColor = vbRede
   Case <=15: Me!CaixaTexto = "O vencimento se em prazo aproxima"
End Select
        


Fiz assim:

No relatório em modo design, cliquei com o botão direito do mouse e escolhi: construir evento. Logo depois no evento "ao Formatar" coloquei o código:

Option Compare Database

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

Select Case Me!Vigencia.Value

Case Is <= 60: Me.Vigencia.BackColor = vbYellow
Case Is <= 30: Me.Vigencia.BackColor = vbRede
Case Is <= 15: Me.Vigencia = "O vencimento em prazo se aproxima"

End Select

End Sub

... coloquei para visualizar e não me apareceu as cores.

Faltou algum passo?

A caixa de texto está nomeada como "Vigencia" ela está localizada no "Cabeçalho da Vigencia".

Desculpe, informei errado, é no evento ao pintar.
E a formatação e informação com texto terá que ser em outro campo controle, rótulo ou caixa de texto, nesse caso coloquei em um rótulo.

Código:


Private Sub Detalhe_Paint()
If Me!Texto4.Value > 30 And Me!Texto4.Value < 60 Then
    Me!Rótulo7.BackColor = vbYellow
    Else
        If Me!Texto4.Value > 15 And Me!Texto4.Value < 30 Then
            Me!Rótulo7.BackColor = vbRed
            Else
                If Me!Texto4.Value < 15 Then
                    Me!Rótulo7.Caption = "Vencimento próximo!"
                End If
        End If
End If
End Sub


Esqueci um detalhe:

Como eu tenho um campo (caixa de texto) nomeado "Vigencia" que são datas futuras adicionadas de forma manual.
Para ter o resultado fixo em uma nova caixa de texto o qual será nomeada "Texto26" que terá a Cor, tive que fazer uma fórmula pegando o valor da caixa de texto "Vigencia" subtraindo da Data atual do sistema para gerar a diferença em dias. Deu certo o resultado foi gerado. Então...

...Fiz da seguinte forma:

na fonte de controle da caixa de texto "Texto26" coloquei a fórmula: =DifData("d";Data();[Vigencia]).

Nomeei o rótulo desta caixa de texto de Rótulo27.

Então o código ficou assim:

Private Sub Detalhe_Paint()

If Me!Texto26.Value > 30 And Me!Texto26.Value < 60 Then
Me!Rótulo27.BackColor = vbYellow
Else
If Me!Texto26.Value > 280 And Me!Texto26.Value < 300 Then
Me!Rótulo27.BackColor = vbRed
Else
If Me!Texto26.Value < 15 Then

Me!Rótulo27.Caption = "Vencimento próximo!"
End If
End If
End If
End Sub


Agora não aparece as cores na caixa Texto26.

Tentei seguir certinho sua sintaxe.

Envio o arquivo exemplo:

Mude a propriedade Estilo do fundo do rótulo para "Normal".

Uhuuu Deu certo irmão. Obrigado pela ajuda.