Restaurer la quantité commandée après suppréssion commande
Oholabi12345
Messages postés
498
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Restaurer la quantité commandée après suppréssion commande
- Forcer la suppression d'un fichier - Guide
- Invite de commande - Guide
- Restaurer ordinateur - Guide
- Commande terminal mac - Guide
- Restaurer windows 10 - Guide
23 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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.
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.
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
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
Je veux que la suppression se fasse dans le configuration actuelle c'est à dire à partir du bouton supprimé dans la liste des commandes
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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.
Afin d'augmenter le stock dans la table produit et de supprimer les lignes de commande dans les tables commande detailcommande et mouvement.
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é
Est ce que on peut créé une macro ou tout autre chose et la lier au bouton supprimé
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
En effet si elle est bien exécutée la ligne de commande sélectionnée est supprimée
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
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 ?
Est ce c'est juste ou pas ?
Oui c'est fait et la
Voici le message :
QteCommandeaffiche 0
Voici le message :
msgbox("la valeur de la quantité commandee : "& QteCommande)