Bonjour à tous,
J'ai une question qui s'adresse bien sûr à vgendron mais qui peut peut-être être résolu par un des nombreux spécialistes qui suivent le fil
. D'autant que j'espère que vgendron sirote un cocktail sur une plage paradisiaque !
Pour permettre d'afficher un total négatif dans une textbox, vgendron à remplacer ce code :
Me.Txt_Paiement = IIf(Me.Txt_Paiement = "", 0, Me.Txt_Paiement)
Me.Txt_Doit = Format(CDbl(Me.Txt_TOTAL) - CDbl(Me.Txt_Paiement), "0.00 €")
Me.Txt_Doit.BackColor = IIf(CDbl(Txt_Doit.Value) > 0, &HEB, &HE0E0E0) 'coloration
Par celui ci :
Me.Txt_Paiement = Format(IIf(Me.Txt_Paiement = "", 0, Me.Txt_Paiement), FormNum)
Me.Txt_Doit = Format(CDbl(Me.Txt_TOTAL) - CDbl(Me.Txt_Paiement), FormNum)
Me.Txt_Doit.BackColor = IIf(CDbl(Txt_Doit.Value) > 0, vbRed, vbGreen) 'coloration
Alors moi petit malin (enfin je croyais l'être), dans l'autre version de la fiche d'inscription, j'ai voulu remplacé mon code suivant qui n'accepte pas de nombre négatif :
Me.Txt_Paiement = IIf(Me.Txt_Paiement = "", 0, Me.Txt_Paiement)
Me.Txt_Doit = Format(CDbl(Me.Txt_TOTAL) - CDbl(Me.Txt_Paiement), "0 €")
Me.Txt_Doit.Value = Format(Me.Txt_Doit.Value, "0 €") 'Formatage
Me.Txt_Doit.BackColor = IIf(CDbl(Txt_Doit.Value) > 0, &HEB, &HE0E0E0) 'coloration
Par celui qui fonctionne plus haut :
Me.Txt_Paiement = Format(IIf(Me.Txt_Paiement = "", 0, Me.Txt_Paiement), FormNum)
Me.Txt_Doit = Format(CDbl(Me.Txt_TOTAL) - CDbl(Me.Txt_Paiement), FormNum)
' Me.Txt_Doit.Value = Format(Me.Txt_Doit.Value, "0 €") 'Formatage
Me.Txt_Doit.BackColor = IIf(CDbl(Txt_Doit.Value) > 0, vbRed, vbGreen) 'coloration
Bon ben à l'évidence je ne suis pas un petit malin... Sauriez vous pourquoi cela ne fonctionne pas ?