A voir également:
- Access forecolor dans un etat
- Remettre pc etat usine - Guide
- Etat disque dur - Télécharger - Informations & Diagnostic
- Acer quick access ✓ - Forum PC portable
- Ps4 verification de l'etat du stockage ✓ - Forum PS4
- Access runtime ✓ - Forum Access
3 réponses
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
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
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
