Discussion :

[emilie31]

Bonjour,

J'au formulaire dans le quel je rentre des longueurs de produit.

Dans ce formulaire j'ai une liste déroulante où je choisi le produit mesuré et puis je rentre les valeurs.

Pour chaque longueur de produits j'ai des tolérances.
Ex :
produit x - Longueur mini acceptable = 10 - longueur maxi acceptable = 15

La liste des produits avec les mini et maxi sont dans une table "Produits"

Mopn souhait est que lorsque je rentre une valeur qui sort des tolérances la valeur s'affiche d'une autre couleur.

Le problème c'est qu'il faut que ce soit "dynamique" puisque la tolérance n'est pas identique pour tous les produits.

J'ai rentré ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private sub txtlongueur_afterupdate()
If cmbproduit.value = "Produit1" Thne
If txtlongueur.value >= [Select Max(Maxilongp1.valeurs) FROM Produits] And txtlongueur.value <= [Select Min(Minilongp1.valeurs) FROM Produits] Then
txtlongueur.backcolor = VBred
End if
Else
...
End if
End sub

Mais cela ne fonctionne aps, y a t'il une erreur?

[francishop]

Bonjour;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private sub txtlongueur_afterupdate()
If cmbproduit.value = "Produit1" Thne
If

Je n'ai pas étudié ton problème mais regarde "Then"

Cordialement.