Restaurer la quantité commandée après suppréssion commande Fermé

Question

Bonjour ; j'ai une base de donnée qui gère la gestion des commandes et j'ai une formulaire qui présente la liste des commande passées par les clients et j'ai un bouton supprimé qui permet de supprimer une commande de la liste ; ce que je souhaite faire c'est de pouvoir restaurer la quantité supprimée dans le stock du produit concerné ; actuellement la commande est supprimée mais sans conséquence sur la table PRODUIT au niveau du stock du produit supprimé
par ailleurs j'ai aussi une table MOUVEMENT qui retrace toutes les Operations effectuées c'est a dire les ventes et les achats effectués ; est ce que si une commande est supprimée ; faut il aussi supprimer la ligne de cette opération dans la table MOUVEMENT
jai besoins de vos avis et suggestions 
merci 
voici les lignes de code pour la suppression d'une commande 

Private Sub btnSupprimerCommande_Click()
Dim res As Integer
Dim r2 As Boolean
Dim db As Database
Dim req As String
res = MsgBox("Voulez vous Vraiment supprimer la commande [" & Me.CodeCommande & "]", vbYesNo + vbInformation, "Confirmation de suppression")
 If (res = vbYes) Then
    Set db = CurrentDb
    req = "DELETE * FROM Commandes WHERE idCommande=" & Me.idCommande
    db.Execute (req)
    If (db.RecordsAffected > 0) Then
        MsgBox "La Commande  a été supprimée", vbInformation, "Commandes"

DoCmd.Requery
    Else
        MsgBox "impossible de supprimer la commande [" & Me.CodeCommande & "]", vbInformation, "Commandes"
    End If

End If
End Sub

yg_be · Answer

bonjour,
En lisant cela, je me demande si les tables sont bien structurées.
Je me demande aussi s'il n'est pas préférable de créer une commande "négative", plutôt que de supprimer la commande.
Cela éviterait de créer du code pour la suppression, et de perdre l'historique.
Sinon, il faut analyser ce qui se fait quand la commande est créée, et défaire tout cela.

Oholabi12345 · Answer

Tout le programme marche très bien , quand on achète et on vend le stock est correct et même en cas de corrections les stocks sont auusi correctes sauf en cas de suppression de la commande sinon les tables sont bien structurées

Oholabi12345 · Answer

Quand le client passe une commande , le stock dimunie dans la table produit et une ligne de commande est créée dans les tables commande detailcommande et mouvement 
Je veux que la suppression se fasse dans le configuration actuelle c'est à dire à partir du bouton supprimé dans la liste des commandes

Oholabi12345 · Answer

Je ne comprends pas la suggestion

yg_be · Answer

Il faut analyser ce qui se fait quand la commande est créée, et défaire tout cela.
Afin d'augmenter le stock dans la table produit et de supprimer les lignes de commande dans les tables commande detailcommande et mouvement.

Oholabi12345 · Answer

Ok , en effet actuellement , la lignes de commande dans les tables commandes et detailcommandes sont bien supprimées sauf que ce n'est pas le cas dans la table mouvement et que le stock du  produit ne dimunie pas 
Est ce que on peut créé une macro ou tout autre chose et la lier au bouton supprimé

Oholabi12345 · Answer

Je l'ai conçu à partir de plusieurs documentations et la propriété RecordAffected de l'objet Database permet de tester l'instruction SQL si elle a  été bien exécuter ou pas 
En effet si elle est bien exécutée la ligne de commande sélectionnée est supprimée

Oholabi12345 · Answer

Salut , est ce que vous pouvez me donner des orientations 
Merci

Oholabi12345 · Answer

J'ai essayé d'ajouter une requête pour la mise à jour du stock mais il n'affiche aucun message d'erreur mais le stock ne se met pas à jour ; voici ce que jai pu faire :

Private Sub btnSupprimerCommande_Click()
Dim res As Integer
Dim ReqUpdateQTE As String
Dim db As Database
Dim req As String
Dim IdProduit As Integer
Dim QteCommande As Integer

res = MsgBox("Voulez vous Vraiment supprimer la commande [" & Me.CodeCommande & "]", vbYesNo + vbInformation, "Confirmation de suppression")
 If (res = vbYes) Then
    Set db = CurrentDb
    req = "DELETE * FROM Commandes WHERE idCommande=" & Me.idCommande
    db.Execute (req)
    
    If (db.RecordsAffected > 0) Then
        MsgBox "La Commande  a été supprimée", vbInformation, "Commandes"
    ReqUpdateQTE = "UPDATE Produit SET QteStock=QteStock + " & QteCommande & " WHERE idProduit=" & IdProduit
        db.Execute ReqUpdateQTE
        DoCmd.Requery
    Else
        MsgBox "impossible de supprimer la commande [" & Me.CodeCommande & "]", vbInformation, "Commandes"
    End If
    
 End If
End Sub

Oholabi12345 · Answer

QteCommande c'est la quantité commandée par un client dans une ligne de commande pour un produit

Oholabi12345 · Answer

Quelle peut être la réalité ? Qu'est ce que vous voulez dire

Oholabi12345 · Answer

Examiner la réalité, est ce que ça veut dire que ce n'est pas faisable avec ce fichier

Oholabi12345 · Answer

est ce que je avoir un lien pour mieux comprendre la notion de variable 
merci

Oholabi12345 · Answer

Je pense qu'il faut placer le curseur de la souris sur la variable dans le code et voir la valeur affichée par cette variable 
Est ce c'est juste ou pas ?

Oholabi12345 · Answer

j'avais dit que le code n'affiche pas de message d'erreur ; donc il n'affiche pas de valeur

Oholabi12345 · Answer

Comment cela peut être examiné à partir de la MsgBox

Oholabi12345 · Answer

Oui c'est fait et la QteCommande affiche 0
Voici le message : 
msgbox("la valeur de la quantité commandee : "& QteCommande)

Oholabi12345 · Answer

Oui effectivement,le stock ne change pas 
Que faut-il faire d'autre pour arriver à ma fin ?

Oholabi12345 · Answer

Parce que la valeur du paramètre QteCommande est 0

Oholabi12345 · Answer

Ça vient du fait que la variable ne contient pas la quantité commandée par le client

Oholabi12345 · Answer

Jusque là  , je ne vois pas

Oholabi12345 · Answer

Je ne sais vraiment pas comment mettre la bonne valeur dans la variable,  je pense que là valeur se trouve dans une table

Oholabi12345 · Answer

Est ce que je peux avoir un lien pour mieux comprendre cette notion,  ou bien la discussion ne peut plus continuer

Restaurer la quantité commandée après suppréssion commande

23 réponses

Discussions similaires