Access forecolor dans un etat

Bonjour,

Si ca marche:

un exemple

https://www.developpez.net/forums/d1412256/logiciels/microsoft-office/access/vba-access/faire-varier-couleur-d-champ-d-etat-selon-contenu/

un code que j'utilise

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
      Me![réf-courrier].ForeColor = Me![Couleur]
      Me![Arrivé].ForeColor = Me![Couleur]
      Me![Envoi Courrier].ForeColor = Me![Couleur]
      Me![Lien-hypertexte].ForeColor = Me![Couleur]
      Me![Motif].ForeColor = Me![Couleur]
      Me![Nom].ForeColor = Me![Couleur]
      Me![Réponse].ForeColor = Me![Couleur]
      Me![Couleur].ForeColor = Me![Couleur]
      'Me![réf-courrier].ForeColor = Me![Couleur]
End Sub

Cela marche bien dans mon formulaire mais pas dans le report : J'ai un message d'erreur sur forecolor...

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

Dim longAge As Long

If IsNull(Me.[Date membre]) = False Then

longAge = DateDiff("d", Me.[Date membre], Now, vbSaturday, vbFirstJan1)
Select Case longAge
Case Is > 365
Me.[Date membre].ForeColor = RGB(255, 0, 0)
Case Is < 365
Me.[Date membre].ForeColor = RGB(0, 0, 0)

End Select
End If
End Sub

Bonjour,

un exemple de fichier access:

https://www.cjoint.com/?DFghEXC6dGg