Discussion :

[Skizo]

boujour à tous et à toutes,

j'ai encore besoin de votre savoir...

j'ai le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim strsql As String
Dim diff As Integer
Dim numalerte As Integer
 
strsql = "UPDATE [produit] SET [produit].[qdispo] = [produit].[qdispo]-[historique des sorties].[Qsorti] WHERE [produit].[ref_int] = [historique des sorties].[ref_int]"
 
diff = tbl.produit.qdispo - tbl.produit.qmin
 
If diff > 0 Then
    numalerte = 0
    Else
    numalerte = 1
End If
 
Select Case numalerte
    Case 0: MsgBox "sortie de stock effectuée", vbInformation, "sortie de stock"
    Case 1: MsgBox "commandez" & tbl.produit.qachat & tbl.produit.nom_pièce & ". référence interne :" & tbl.produit.ref_int, vbInformation, "commande à faire"
End Select

j'aimerai que, de la meme manière que la requete SQL du meme code, appliqué ces instruction que sur la ligne correspondant à ref_int.

[m-mas]

ajoute un test sur ref_int, si c'est ce que tu veux tu continue sinon Exit Sub

[Skizo]

oui tout simplement, chui bete
merci

bon maintenant il ya un message d'erreur: objet recquis

ce code s'exécute grace un bouton d'un formulaire
l'utilisateur doit renseigner deux champs: ref_int et qsortie
(voila pour le contexte)

j'attend des propositions, de l'aide, n'importe quoi qui pourrait me faire avancer...

merci d'avance