Discussion :

[Salah9711]

J'ai ces deux Formulaire qui permettent au stock d'être mis à jour Grâce à une requête (voir photo)https://2.bp.blogspot.com/-Teoz0B0_T...As/s1600/s.PNG
Je veux quand le stock atteint la valeur (<2) le programme me donne un message d'alerte.
Merci

[marot_r]

Bonjour.

Tu veux le message où ?

• Dans les données ?
• Dans un pop-up quand tu affiches cet enregistrement dans le formulaire ?
• Ailleurs ?

A+

[Salah9711]

dans un pop-up

[marot_r]

Bonjour.

Pour une solution plus facile à maintenir de ton alerte je te suggère de soit :
Mettre le seuil d'alerte dans ta table des produits, ce qui te permet de définir un seuil pour chacun des produits indépendamment des autres.
Mettre le seuil d'alerte dans une table pour paramètre, ce qui te permet de modifier facilement le seuil sans toucher à l'application.

Pour le code que je te propose, je vais supposer que les seuils est dans la table des produits dont la structure est quelque chose comme :

tblProduit

NoProduit
StockMin (Réel Double)
Autres infos

Pour afficher l'alerte, il faut mettre du code dans la procédure événementielle associée à l'événement Sur Activation.

Le code ressemble à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
if not isnull(Me.NoProduit) then
    dim StockMin as double
    dim StockMinVar as variant
    StockMinVar=DFirst("StockMin", "tblProduit", "[NoProduit]=" & me.NoProduit) 'Récupère le seuil min
 
    StockMin=iif(not isnull(StockMinVar), CDbl(StockMinVar), 0) 'Met 0 si on n'a pas trouvé de seuil
 
    if Me.StockCourant<StockMin then
          Msgbox "Alerte Stock Min."
    end if
 
end if

A+