Discussion :

[m1ro86]

Bonjour!

J'ai une table Pièces Détachées, une table Entrée (avec comme clé primaire le numéro de Pièces Détachées et le Numéro du Bon d'entrées, et une quantité) et une table Bon Entrées.

Dans mon formulaire bon d'entrées s'affichent toute les pieces recues pour le bon d'entrée XXXX et avec la quantité recues pour chaque pièce.

Je voudrai modifier le champ "Quantité en stock" de la table Pièces détachées pour chaque pièces recues quand j'enregistre le formulaire du Bon d'entrée afin de rajouter la quantité reçue mais je ne trouve pas solution!

Merci

[Demco]

Je voudrai modifier le champ "Quantité en stock" de la table Pièces détachées pour chaque pièces recues quand j'enregistre le formulaire du Bon d'entrée

Une solution serait que sur enregistrement, pour chaque pièce de ce bon d'entrée tu fasses un UPDATE sur la table Pièces afin d'ajouter la quantité reçue au stock actuel.
Tu as besoin pour cette requête UPDATE de l'identifiant de la pièce concernée, tu peux trouver celui ci dans la table Entrées.

En espérant t'aider.

[m1ro86]

Oui c'est possible, le problème est qu'il faut que tous les enregistrement s'enregistre en même temps. Dans ta solution que j'ai déjà essayeé il faut faire un bouton en face de chaque enregistrement qui fait un update de la table. Le problème c'est que des fois, les commandes sont importantes se qui contraint l'utilisateur a cliquer sur 50 bouton afin de mettre a jour chaque pièces et ceci est très contraigant!

Merci de ton aide

[Demco]

Tu as besoin pour cette requête UPDATE de l'identifiant de la pièce concernée, tu peux trouver celui ci dans la table Entrées.

J'entends par là que tu récupère dans la table Entrées tous les identifiants des pièces concernées et pour chaque identifiant tu exécute une requête update.
Ce raisonnement doit être fait par le code et donc tout est automatique, tu n'as pas un bouton par enregistrement.
Puisque tu as une table Entrées, tu dois être capable de récupérer tous les identifiatns des Pièces pour le bon XXXXX.

[m1ro86]

Merci c'est bon ca marche!
Dans le code du bouton j'ai mis ça:

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
29
30
Private Sub Commande16_Click()
On Error GoTo Err_Commande16_Click
 
    Dim stDocName As String
    Dim Qte As Integer
    Dim Refpieces As String
    Dim db As DAO.Database
    Dim QteStock
 
    Qte = Quantité.Value
    Refpieces = [Ref Pièces détachées].Value
    RefBE = [Ref BE].Value
 
 
    Set db = DBEngine.OpenDatabase("C:\XXXXXX.mdb")
 
    ' Exécution de la requête
    db.Execute "UPDATE [Pièces détachées] SET [Qté en stock] = (([Qté en stock])+ " + Str(Qte) + ") WHERE [Ref Pièces détachées]= '" + Refpieces + "';"
 
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
 
Exit_Commande16_Click:
    Exit Sub
 
Err_Commande16_Click:
    MsgBox Err.Description
    Resume Exit_Commande16_Click
 
End Sub

[m1ro86]

J'ai mis ça pour ceux que ça intéresse!!!

[Demco]

J'ai mis ça pour ceux que ça intéresse!!!