Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access ETAT: Mettre les valeurs négatives en rouge

ETAT: Mettre les valeurs négatives en rouge

5 réponses
Avatar
yolanda RICARTES
Salut,

Je viens de creer un =E9tat."Bulettin ecole"
Je voudrais bien mettre les valeurs n=E9gatives en rouge et=20
garder les valeurs positives en noir.

Y a quelqu'un qui peut m'aider svp.

Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour;

si version 2000 et + passer par la mise en forme conditionnelle.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yolanda RICARTES" a écrit dans le message de
news:043201c3cc69$5e7e8c50$
Salut,

Je viens de creer un état."Bulettin ecole"
Je voudrais bien mettre les valeurs négatives en rouge et
garder les valeurs positives en noir.

Y a quelqu'un qui peut m'aider svp.

Merci
Avatar
yolanda
Merci de votre réponce.

Mais j'ai access 97.???!!
Avatar
Raymond [mvp]
par exemple:

Private Sub Quantite_AfterUpdate()
If Me.Quantite < 0 Then
Me.Quantite.BackColor = 255
Else
Me.Quantite.BackColor = 16777215
End If
End Sub

prévoir également d'appeler cette fonction sur Form_Current pour changer
éventuellement de couleur au changement d'enregistrement.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yolanda" a écrit dans le message de
news:017901c3cc6e$6d563160$
Merci de votre réponce.

Mais j'ai access 97.???!!
Avatar
3stone
Bonjour Yolande,

"yolanda"
Mais j'ai access 97.???!!


Dans l'événement "Sur formatage" de la section détail de ton état,
tu mets quelque chose comme ceci :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If ChampPoint<0 Then
ChampPoint.ForeColor = vbRed
Else
ChampPoint.ForeColor = vbBlack
End If
End Sub


PS: Fait pas attention à Raymond...
il a déjà vidé toutes ses bouteilles de vin ;-)))


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
Raymond [mvp]
Bonjour Pierre.

La digestion est terminée mais ell a été très difficile, le foie peine
encore un peu. Mes excuses yolanda, j'ai lu formulaire au lieu d'état,
heureusement que les copains sont là pour surveiller.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de
news:
Bonjour Yolande,

"yolanda"
Mais j'ai access 97.???!!


Dans l'événement "Sur formatage" de la section détail de ton état,
tu mets quelque chose comme ceci :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If ChampPoint<0 Then
ChampPoint.ForeColor = vbRed
Else
ChampPoint.ForeColor = vbBlack
End If
End Sub


PS: Fait pas attention à Raymond...
il a déjà vidé toutes ses bouteilles de vin ;-)))


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------