Utilisation de ForeColor

[enkie]

Bonjour (encore moi )

J'ai une table avec des produits et je dois créer un code qui permet d'avoir une couleur différente pour tout les champs en fonction de l'état du produit.

Par exemple:
- produits vendu: tout les champs en gris
- produits disponibles: tout les champs en noir
- retour SAV: tout les champs en rouge

Je ne sais pas trop comment utilisé cette propriété alors j'ai regarder dans l'aide de Microsoft l'exemple qu'ils donnaient (ci-dessous).

Sub Form_Current()    
Dim curAmntDue As Currency, lngBlack As Long    
Dim lngRed As Long, lngYellow As Long, lngWhite As Long    
If Not IsNull(Me!txtPastDue.Value) Then        
      curAmntDue = Me!txtPastDue.Value    
Else        
      Exit Sub    
End If    
lngRed = RGB(255, 0, 0)    
lngBlack = RGB(0, 0, 0)    
lngYellow = RGB(255, 255, 0)    
lngWhite = RGB(255, 255, 255)    
If curAmntDue > 100 Then        
      Me!txtPastDue.BorderColor = lngRed        
      Me!txtPastDue.ForeColor = lngRed        
      Me!txtPastDue.BackColor = lngYellow    
Else        
      Me!txtPastDue.BorderColor = lngBlack        
      Me!txtPastDue.ForeColor = lngBlack        
      Me!txtPastDue.BackColor = lngWhite    
End If
End Sub

Mais... j'ai pas tout compris Notament la ligne: If curAmntDue > 100 then ...

Je vois pas trop à quoi correspond le ">100"
Si quelqu'un pouvais éclairer ma petite lanterne ce serait bien gentil

Merci

[=JBO=]

Bonjour,

Il semblerait que la fonctionnalité de "Mise en Forme Conditionnelle" réponde mieux à ton besoin.

Cette fonctionnalité à été énormément débattue sur le forum, dans la FAQ et même dans les tutoriels de la rubrique access.developpez.com.

Un tutoriel à lire:
http://warin.developpez.com/access/mfc/
_

[francishop]

Bonjour,

Envoyé par enkie

Bonjour (encore Toi )

Sub Form_Current()    
Dim curAmntDue As Currency, 
If Not IsNull(Me!txtPastDue.Value) Then        
      curAmntDue = Me!txtPastDue.Value    
.......   
If curAmntDue > 100 Then

Mais... j'ai pas tout compris.Je vois pas trop à quoi correspond le ">100"
Si quelqu'un pouvais éclairer ma petite lanterne ce serait bien gentil

Où c'est qu'elle est cette lanterne? Là? Non? Là! D'accord :

Sur le formulaire actuel se trouve -->txtPastDue et pour s'y référer,
comme on est possessif on précise à la cantonnade-->Me!
Ce qui donne :Me!txtPastDue
De plus, on se réfère à son contenu, ce qui donne :Me!txtPastDue.Value

Mais, même à ce dernier on ne s'adresse directement.
Il a été indiqué au préalable pour variable-->Dim curAmntDue As Currency
Dim : Définit le nom de la variable(curAmntDue)
et le type de données géré par cette variable(Ici-->Devise)
Puis c'est cette variable qui va se substituer à txtPastDue en indiquant :
curAmntDue = Me!txtPastDue.Value

">100" veut dire--> Strictement supérieur à 100

Cordialement.

[enkie]

Ma lanterne est au dessus de ma tête (ou au bout de mon bras)

Merci, j'y vois déjà un peu plus clair.