Discussion :

[Bestia_negra]

Bonjour à tous,

J’ai créer une base de données Access pour la gestion d’un petit magasin au sein de ma société.

J’aimerais que le champ quantité d’une table se mette à jour automatiquement à l’encodage via deux formualires pour l’entrée et la sortie de marchandises

J’ai créer les tables suivantes pour gérer les mouvements et stock.
T_Articles_Inventaire 0115 : est la table qui contient les articles en stock à un moment donné ( inventaire fait une fois par an)
T_Stock_SAP :sert à entrer les marchandises qui sont commandées au fournisseur .
T_Bon_de_commande et T_détails : sont les deux tables qui enregistrent les sorties de mon magasins.

Mon but est de mettre à jour la quantité dans la table « T_Articles_Inventaire 0115 » INV_QTY avec le formulaire Ajouter une commande SF via le champ DC_QTY.

1.J’ai essayer de par un événement après mis à jour dans le formulaire sur le champ DC_QTY avec le code suivant :
DoCmd.RunSql "UPDATE T_Articles_Inventaire 0115 SET T_Articles_Inventaire 0115.INV_QTY=Formulaires!Ajouter une commande SF![DC_QTY] WHERE ((T_Détails.OUT_ID)=[Formulaire] ! [Ajouter une commande SF] ![OUT_ID])
Mais il y a un problème de syntaxe

2.J’ai également créer une requête de mis à jour pour récupérer le code SQL et faire calculer :
DoCmd.RunSQL "UPDATE [T_Articles_Inventaire 0115] INNER JOIN [T_Détails] ON [T_Articles_Inventaire 0115].OUT_ID=[T_Détails].OUT_ID SET [T_Détails].DC_QTY=[T_Articles_Inventaire 0115]![INV_QTY]-[T_Détails]![DC_QTY]"
Mais il veut me changer tous mes enregistrements et pas juste un seul

Par contre je peux gérer le message d’erreur sur événement de sortie par :
DoCmd.SetWarnings False

Voici la DB en pièce jointe mais allégée.

Quelqu’un peut-il me corriger et me mettre sur la bonne voie.

Merci d’avance

[nico84]

Bonjour,

Qq remarques :
- il vaut mieux éviter les espaces dans les noms d'objet, sinon cela oblige à les mettre systématiquement entre [] (d'où le bug 1)
- il n'y a pas de WHERE dans la requete 2 -> modifie toute la table
- j'utilise currentDB.execute plutot que docmd.runsql car cela permet une gestion d'erreur complète qui fait gagner du temps

exemple :

Code :

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

1
2
3
4
5
6
7
8
Private Sub nouveau_Click()
dim Sr as string
If Not Mode_debug Then On Error GoTo err:
104 Sr = "INSERT INTO tool (cd_tool,e_tool,tool_cre,tool_qui,frequence,Dnext) VALUES (" & cd & ",'P','" & Date & "','" & User_init & "',12,'" & Date & "');"
106 CurrentDb.Execute Sr, dbFailOnError
    Exit Sub
err: msgbox "Erreur " & err.Number & "/" & Erl & " dans tool.nouveau : " & err.description & vbcr & Sr
end sub

[Bestia_negra]

Merci pour ta réponse Nico84.

J'ai essayé de suivre tes conseils mais je ne sais pour quel raison rien ne fonction, j'ai toujours autant d'erreur.

Si je ne passe pas par le premier code avec le WHERE qui modifie tous les enregistrements de ma table, je peux garder la deuxième :
CurrentDb.Execute "UPDATE T_Articles_Inventaire 0115 INNER JOIN T_Détails ON [T_Articles_Inventaire 0115].OUT_ID=[T_Détails].OUT_ID SET [T_Détails].DC_QTY=T_Articles_Inventaire 0115![INV_QTY]-T_Détails![DC_QTY]" ?

Merci pour ton aide!

[nico84]

D'abord dans "T_Articles_Inventaire 0115" il y a un espace ! Les accents j'évite aussi et du coup je n'ai jamais besoin de [] qui me gonflent...
Et pourquoi écrire le même champ une fois [T_Détails].DC_QTY et plus loin T_Détails![DC_QTY] ? [T_Détails].[DC_QTY] est la seule syntaxe toujours ok

Ensuite pour la clause WHERE : comme tu peux le voir dans mon exemple, pour utiliser un champ d'une fenêtre je l'appelle dans le code et non dans le string. D'une part c'est plus standard, d'autre part je pense que ta syntaxe ne marche pas (mais je n'en suis pas sûr car je n'ai jamais essayé)

Dit autrement : .runSQL (ou .execute) ne connait probablement pas les variables des fenêtres, il faut donc les remplacer par leurs valeurs pour que ça marche !