Discussion :

[pivoine1342]

Bonjour,
J’ai un problème sur une bd Access, j’ai une requête « Lot Requête » qui me retourne la quantité d'articles par lot ,je veux remplir le champ "LasommeDEtousLesArticles" de la table "lot" à partir de la requête.
Merci pour vos idées...

MOT DE PASSE: admin
stock.rar

[marot_r]

Bonjour.

Ajouter le résultat d'un calcul à une table est généralement une mauvaise idée.
Access n'est pas dynamique comme Excel et si tu modifies les données en amont le résultat de ton calcul ne change pas.
Donc la plus part du temps on affiche le résultat obtenu via une requête mais on ne l'enregistre pas.
Pourquoi veux-tu faire cela ?

Et pour répondre quand même un peu à ta question, tu peux probablement te servir d'une requête de MAJ ou d'ajout (je n'ai pas regardé ta BD, pas le droit de télécharger).
Sinon il faudra faire du code VBA.

A+

[pivoine1342]

Bonjour,je vous explique en détaille,j'ai des lots chaque lot est composé de plusieurs articles et chaque lot a un coût de livraison ,j'ai une requête qui calcule la somme de tous les articles de chaque lot, mon but est de trouver le coût de livraison unitaire (le coût de livraison pour chaque article d'un lot donné ) et d’enregistrer cette information .
j'espère que c'est clair
merci.

[bertiny]

Bonjour
En supposant que c'est cette valeur que tu as mis sur le champ Quantité de ton formulaire Lot, et que tu lance la sauvegarde sur le bouton Sauvegarder et que ch'est une simple mise à jour du champ LasommeDEtousLesArticles que tu souhaite faire
un petit truc comme

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Sauvegarder_Click()
Dim rq As String
If Not IsNull(Me.NumLot) Then
rq = "update Lot set LasommeDEtousLesArticles = '" & Me.Quantite & "' Where NumLot = '" & Me.Lot.Value & "'"
CurrentDb.Execute rq
MsgBox "mise à jour avec success", vbInformation
Else
MsgBox "Veuilez choisir le numéro de lot", vbExclamation
End If
End Sub