Access forecolor dans un etat
Fermé
pat
-
23 mai 2014 à 15:15
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 6 juin 2014 à 07:31
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 6 juin 2014 à 07:31
A voir également:
- Access forecolor dans un etat
- Aide etat reparation electromenager - Guide
- Vérification d'état du pc - Guide
- L'état de la memoire ne peut pas etre read - Astuces et Solutions
- Access appdata - Guide
- Etat batterie pc - Guide
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
23 mai 2014 à 15:38
23 mai 2014 à 15:38
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
junglekite
Messages postés
1
Date d'inscription
jeudi 5 juin 2014
Statut
Membre
Dernière intervention
5 juin 2014
5 juin 2014 à 22:41
5 juin 2014 à 22:41
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
6 juin 2014 à 07:31
6 juin 2014 à 07:31
Bonjour,
un exemple de fichier access:
https://www.cjoint.com/?DFghEXC6dGg
un exemple de fichier access:
https://www.cjoint.com/?DFghEXC6dGg
