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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
|
num_facture = N°facture_livraison.Value
MsgBox num_facture
If nouveau_stock1 <> 0 Then
StrSql1 = "UPDATE Produit Set [Quantite_stock]='" & nouveau_stock1 & "' WHERE [désignation]='" & produit1.Value & "'"
Set Req1 = CurrentDb.CreateQueryDef("", StrSql1)
Req1.Execute dbFailOnError
sSQL6 = "Select N°Produit From Produit WHERE Produit.désignation='" & produit1.Value & "';"
Set rst6 = CurrentDb.OpenRecordset(sSQL6, dbOpenForwardOnly, dbReadOnly)
num_produit = rst6![N°Produit]
rst6.Close
If nouveau_casse1 <> 0 Then
sSQL7 = "Select N°Anomalie From anomalie WHERE anomalie.type_anomalie='casse';"
Set rst7 = CurrentDb.OpenRecordset(sSQL7, dbOpenForwardOnly, dbReadOnly)
num_casse = rst7![N°Anomalie]
rst7.Close
stock_casse1 = DLookup("[stock_anomalie]", "Stock_anomalie", "[N°Produit] = " & num_produit & " AND [N°Anomalie] = " & num_casse & "")
stock_casse1 = stock_casse1 + quantite1.Value
StrSql2 = "UPDATE Stock_anomalie Set [stock_anomalie]='" & stock_casse1 & " ' WHERE [N°Produit] = " & num_produit & " AND [N°Anomalie] = " & num_casse & ""
Set Req2 = CurrentDb.CreateQueryDef("", StrSql2)
Req2.Execute dbFailOnError
End If
If nouveau_vol1 <> 0 Then
sSQL7 = "Select N°Anomalie From anomalie WHERE anomalie.type_anomalie='vol';"
Set rst7 = CurrentDb.OpenRecordset(sSQL7, dbOpenForwardOnly, dbReadOnly)
num_casse = rst7![N°Anomalie]
rst7.Close
stock_vol1 = DLookup("[stock_anomalie]", "Stock_anomalie", "[N°Produit] = " & num_produit & " AND [N°Anomalie] = " & num_casse & "")
stock_vol1 = stock_casse1 + quantite1.Value
StrSql2 = "UPDATE Stock_anomalie Set [stock_anomalie]='" & stock_vol1 & " ' WHERE [N°Produit] = " & num_produit & " AND [N°Anomalie] = " & num_casse & ""
Set Req2 = CurrentDb.CreateQueryDef("", StrSql2)
Req2.Execute dbFailOnError
End If
If nouveau_perte1 <> 0 Then
sSQL7 = "Select N°Anomalie From anomalie WHERE anomalie.type_anomalie='perte';"
Set rst7 = CurrentDb.OpenRecordset(sSQL7, dbOpenForwardOnly, dbReadOnly)
num_casse = rst7![N°Anomalie]
rst7.Close
stock_perte1 = DLookup("[stock_anomalie]", "Stock_anomalie", "[N°Produit] = " & num_produit & " AND [N°Anomalie] = " & num_casse & "")
stock_perte1 = stock_perte1 + quantite1.Value
StrSql2 = "UPDATE Stock_anomalie Set [stock_anomalie]='" & stock_perte1 & " ' WHERE [N°Produit] = " & num_produit & " AND [N°Anomalie] = " & num_casse & ""
Set Req2 = CurrentDb.CreateQueryDef("", StrSql2)
Req2.Execute dbFailOnError
End If
Set db = CurrentDb
db.Execute " INSERT INTO Ligne_de_facture_livraison ( N°Produit, N°facture_livraison, Quantite_produit, Quantite_casse, Quantite_vol, Quantite_perte ) VALUES (" & num_produit & "," & num_facture & "," & nouveau_stock1 & "," & nouveau_casse1 & "," & nouveau_vol1 & "," & nouveau_perte1 & ");"
Debug.Print "Records affected = " & db.RecordsAffected
db.Close
Set db = CurrentDb
db.Execute " INSERT INTO Facture_livraison ( Date_facture_livraison, N°Fournisseur ) VALUES(" & date_reception & "," & Form_Commande_fournisseur.TMP_FOURNISSEUR & ");"
Debug.Print "Records affected = " & db.RecordsAffected
db.Close
End If |
Partager