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 FOND DE COULEUR BRUNDOIE

FOND DE COULEUR BRUNDOIE

7 réponses
Avatar
Bataille Jean-Paul
Bonjour,

Par VBA je veux faire passer le fond d'une zone de texte de blanc à
rouge -en cas d'erreur-
par Me!zt_Total.BackColor = 16772215

ça eu fonctionné mais aprés quelques essais le fond blanc est obstinément
bloqué sur la couleur brundoie alors que les propriètès donnent bien le
blanc.
J'essaye de changer cela -rose, bleu ou autre pas de réaction, le rouge
passe bien mais au retour .... POURQUOI tant de haine ?

JPB
Signaler un problème avec ce contenu

7 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.

Quand tu changes tes couleurs il faut passer les deux conditions; si tu es
en version 2000 et + tu peux passer par la mise en forme conditionnelle.
sinon par exemple:
if Monerreur then
Me!zt_Total.BackColor = 16777215
else
Me!zt_Total.BackColor = 16772215
End if

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


"Bataille Jean-Paul" a écrit dans le message de
news:3ff1609b$0$7126$
Bonjour,

Par VBA je veux faire passer le fond d'une zone de texte de blanc à
rouge -en cas d'erreur-
par Me!zt_Total.BackColor = 16772215

ça eu fonctionné mais aprés quelques essais le fond blanc est obstinément
bloqué sur la couleur brundoie alors que les propriètès donnent bien le
blanc.
J'essaye de changer cela -rose, bleu ou autre pas de réaction, le rouge
passe bien mais au retour .... POURQUOI tant de haine ?

JPB




Avatar
Bataille Jean-Paul
Mais comme cela je reste toujours à blanc, donc pas de réaction sur erreur ?

JPB

"Raymond [mvp]" a écrit dans le message de
news:uZN%
Bonjour.

Quand tu changes tes couleurs il faut passer les deux conditions; si tu es
en version 2000 et + tu peux passer par la mise en forme conditionnelle.
sinon par exemple:
if Monerreur then
Me!zt_Total.BackColor = 16777215
else
Me!zt_Total.BackColor = 16772215
End if

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


"Bataille Jean-Paul" a écrit dans le message
de

news:3ff1609b$0$7126$
Bonjour,

Par VBA je veux faire passer le fond d'une zone de texte de blanc à
rouge -en cas d'erreur-
par Me!zt_Total.BackColor = 16772215

ça eu fonctionné mais aprés quelques essais le fond blanc est
obstinément


bloqué sur la couleur brundoie alors que les propriètès donnent bien le
blanc.
J'essaye de changer cela -rose, bleu ou autre pas de réaction, le rouge
passe bien mais au retour .... POURQUOI tant de haine ?

JPB








Avatar
3stone
Salut,

"Bataille Jean-Paul"
Mais comme cela je reste toujours à blanc, donc pas de réaction sur erreur ?



Faudrait définir ce que tu appelle "sur erreur"...

comment détecte-tu cette condition et comment la traite-tu ?


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

Avatar
Bataille Jean-Paul
En fait il y a un champ MontantGlobal , c'est celui que je veux passer en
rouge si la somme des trois champs Montant1, Montant2, Montant3 est
différente du MontantGlobal.

Mon code est :

'test des montants accessoires
If Me!zt_Montant1 + Me!zt_Montant2 + Me!zt_Montant3 <> Me!zt_MontantGlobal
Then
Me!zt_MontantGlobal.BackColor = 255 'mise à rouge si
ERREUR
Exit Sub
Else
Me!zt_MontantGlobal.BackColor = 1677215
End If


Merci pour ton aide, bonne soirée,
Jean-Paul B



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

"Bataille Jean-Paul"
Mais comme cela je reste toujours à blanc, donc pas de réaction sur
erreur ?




Faudrait définir ce que tu appelle "sur erreur"...

comment détecte-tu cette condition et comment la traite-tu ?


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







Avatar
Raymond [mvp]
la fonction me parait correcte , mais où la places-tu cette fonction ? c'est
peut-être là le problème.
il faut la placer sur form_current et afterupdate de tous les champs pour
les formulaires et dans la section formatage pour les états.
vérifies qu'il n'y a pas de problèmes d'arrondis.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bataille Jean-Paul" a écrit dans le message de
news:3ff1bbe6$0$7138$
En fait il y a un champ MontantGlobal , c'est celui que je veux passer en
rouge si la somme des trois champs Montant1, Montant2, Montant3 est
différente du MontantGlobal.

Mon code est :

'test des montants accessoires
If Me!zt_Montant1 + Me!zt_Montant2 + Me!zt_Montant3 <> Me!zt_MontantGlobal
Then
Me!zt_MontantGlobal.BackColor = 255 'mise à rouge si
ERREUR
Exit Sub
Else
Me!zt_MontantGlobal.BackColor = 1677215
End If


Merci pour ton aide, bonne soirée,
Jean-Paul B


Avatar
3stone
Salut,

"Bataille Jean-Paul"

'test des montants accessoires
If Me!zt_Montant1 + Me!zt_Montant2 + Me!zt_Montant3 <> Me!zt_MontantGlobal Then
Me!zt_MontantGlobal.BackColor = 255

Exit Sub ############################### ????
Else
Me!zt_MontantGlobal.BackColor = 1677215
End If





C'est quoi ce "Exit sub" ????

Et il ne faut pas que l'un des montants soit Null , sinon utilise

Nz(zt_Montant1) + Nz(zt_Montant2) + ...


et comme le dit Raymond >>> sur activation, le code !!


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

Avatar
Bataille Jean-Paul
Trés bonne idée que de me parler des NZ pour les champs, cel am'élimine une
épine du pied d'emblée.

Le EXIT SUB ci dessous est extrait de Sub Enreg_DA_Click, comme cela je
n'enregistre pas si les saisies sont incomplétes ou erronées.

Peut etre y a t'il plus judicieux, je suis preneur de toute idée.

Private Sub Enreg_DA_Click()
'AVANT ENREGISTREMENT CONTROLE DE COMPLÉTUDE DES CHAMPS
'---------------------------------------------------------------------------
-------------------------------------------
'test des saisies
If Me!cb_Travaux = "à choisir" Or Me!cb_Contrat = "à choisir" Then
MsgBox "Vous n'avez pas précisé les travaux ou contrat"
Exit Sub 'sortie anticipée pour complément d'info
End If
'---------------------------------------------------------------------------
--------------------------------------------
'test des montants accessoires TELECOM
If Nz(Me!zt_Equipement) + Nz(Me!zt_Prestation) + Nz(Me!zt_DU) <>
Nz(Me!zt_Total) Then
Me!zt_Total.BackColor = 255
Exit Sub
Else
Me!zt_Total.BackColor = 1677215
End If

'---------------------------------------------------------------------------
--------------------------------------------
DoCmd.GoToRecord , , acNewRec

End Sub

Bonne fin d'année et tous mes voeux pour 2004
Jean-Paul BATAILLE

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

"Bataille Jean-Paul"

'test des montants accessoires
If Me!zt_Montant1 + Me!zt_Montant2 + Me!zt_Montant3 <>
Me!zt_MontantGlobal Then


Me!zt_MontantGlobal.BackColor = 255
Exit Sub ############################### ????
Else
Me!zt_MontantGlobal.BackColor = 1677215
End If





C'est quoi ce "Exit sub" ????

Et il ne faut pas que l'un des montants soit Null , sinon utilise

Nz(zt_Montant1) + Nz(zt_Montant2) + ...


et comme le dit Raymond >>> sur activation, le code !!


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