Discussion :

[Skizo]

bonjour,
j'ai créer grace au membre du forum(que je remercie) une fonction, mais il y a une erreur non négligable car ca plante, j'ai du faire un ctrl+alt+suppr pour fermer access.
pouvez vous me dire ce qui ne va pas?

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
19
20
21
22
23
24
25
26
27
28
------------------------------------------------------------
' sortie_de_stock
'
'------------------------------------------------------------
Function sortie_de_stock()
On Error GoTo sortie_de_stock_Err
 
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [produit] SET [produit].[qdispo] = [produit].[qdispo]-[historique des sorties].[Qsorti] WHERE [produit].[ref_int] = [historique des sorties].[ref_int]", -1
DoCmd.OpenTable "historique des sorties", acNormal, acEdit
DoCmd.Save acTable, "historique des sorties"
DoCmd.Close acTable, "historique des sorties"
Beep
MsgBox "sortie de stock éffectuée", vbInformation, "sortie de stock"
 
If Forms.historique_des_sorties.ref_int = tbl.produit.ref_int Then
If tbl.produit.qdispo <= tbl.produit.qmin Then MsgBox "commandez cette pîèce", vbInformation, "alerte de niveau bas"
End If
 
 
sortie_de_stock_Exit:
Exit Sub
 
sortie_de_stock_Err:
MsgBox Error$
Resume sortie_de_stock_Exit
 
End Function

'

[Skizo]

bonjour

Qu'est ce que je doit changer pour que partie de la macro converti, soit juste un code?
est ce que quelqu'un peut m'aider????

merci d'avance

[ft035580]

Salut,

If Forms.historique_des_sorties.ref_int = tbl.produit.ref_int Then
If tbl.produit.qdispo <= tbl.produit.qmin Then MsgBox "commandez cette pîèce", vbInformation, "alerte de niveau bas"
End If

Un truc tout bête:Ou se trouve le dernier "End If"

[Skizo]

merci

j'ai rajouté un end if en dessous du précédent mais il ya un message d'errreur de compilation:bloc end if sans if...

comment faire????

[ft035580]

Oups tu as aussi oublié un "Then"

[Skizo]

ah bon???
pourtant y a 2 if 2 then et 2 endif!!!

Code :

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

1
2
3
4
If Forms.historique_des_sorties.ref_int = tbl.produit.ref_int Then
If tbl.produit.qdispo <= tbl.produit.qmin Then MsgBox "commandez cette pîèce", vbInformation, "alerte de niveau bas"
End If
End If

[ft035580]

Autant pour moi.

Et comme ça ?

Code :

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

1
2
3
4
5
If Forms.historique_des_sorties.ref_int = tbl.produit.ref_int Then
If tbl.produit.qdispo <= tbl.produit.qmin Then
MsgBox "commandez cette pîèce", vbInformation, "alerte de niveau bas"
End If
End If

[Skizo]

bon merci, il n'y a plus d'erreur de compilation

mais la fonction que je voulai obtenir ne fonctionne pas.
je voudrais, que lors de la saisi du nombre de pièce qui sortent, après validation:
-le nombre de pièce sorti soit imputé à la quantité disponible (code sql de la macro converti, qui ne se fais plus et je ne sais pas pourquoi),
- le nombre de pièce sorti soit enregistrer dans ma table historique des sorties
- et effectuer le test sur la quantité disponible de la pièce sorti

que dois-je modifier?