communication entre entités

[clo5000]

Salut à tous,

je suis entrain de réaliser une application en access.
j'ai deux entités qui contiennent chacune les mêmes tables. par exemple:

table produit et table produit1, table vente et table vente1, table entree et table entree1.

je voudrais faire une sortie dans la table vente et que cette sortie s'ajoute dans la table vente1 et que le stock de la table produit diminue mais dans la table produit1 le stock augmente pour le même produit. a la manière d'un dépôt qui fournit le magasin.

mais, j'arrive pas à le faire, quelqu'un a-t-il une idée

[Demco]

je voudrais faire une sortie dans la table vente et que cette sortie s'ajoute dans la table vente1 et que le stock de la table produit diminue mais dans la table produit1 le stock augmente pour le même produit.

Il faut que tu gères ça toi même dans le code avec des requêtes UPDATE.

[clo5000]

peux tu être un peu explicite, a chaque fois que je fais une sortie du dépôt, je crée une requête mise à jour qui met à jour n'importe quelle table Entree des Entités ou magasins

[Demco]

je voudrais faire une sortie dans la table vente et que cette sortie s'ajoute dans la table vente1 et que le stock de la table produit diminue mais dans la table produit1 le stock augmente pour le même produit.

par étape :

cette sortie s'ajoute dans la table vente1

requête INSERT

et que le stock de la table produit diminue

requête UPDATE

mais dans la table produit1 le stock augmente pour le même produit

requête UPDATE

A toi de trouver l'événement déclencheur et d'exécuter ces requêtes au bon moment.

[clo5000]

je vais essayer et te dirais quoi

[clo5000]

Bonjour Demco,

J'ai créé un formulaire Vente basée sur la table Produit
J'ai créé un bouton mise à jour sur ce formulaire, dont le code est sur l'événement Click. Je voudrais que après avoir saisi la désignation, la QteVente et que je clique sur le bouton mise à jour, que la mise à jour se fasse dans la table Produit1 pour le stock et Entree1 pour la QteEntree. Mais, j'ai l'erreur '3421' : erreur de conversion de données dans l'expression: rst1!QteEntree= Me.QteVente.Value. Je signale que les deux quantités sont toutes deux integer

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub MAJ_Click()
Dim db As Database
Dim rst, rst1 As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Produit1")
Set rst1 = db.OpenRecordset("Entree1")
rst1!QteEntree = Me.QteVente.Value
DoCmd.RunSQL "INSERT INTO Entree1[CodeProduit, Designation, QteEntree] WHERE  CodeProduit = '" & Me.CodeProduit
DoCmd.RunSQL "UPDATE Produit1 SET Stock=" & Stock + Me.QteVente.Value
End Sub

Vraiment, je n'y comprend rien. Help please

[Demco]

Tout d'abord merci de penser aux balises de code, tu peux les ajouter grâce au bouton # au dessus de la zone d'écriture.

Code :

rst1!QteEntree = Me.QteVente.Value

Passe par des requêtes INSERT et UPDATE comme tu l'as fait après. Si tu tiens vraiment à utiliser cette syntaxe-là, je te conseille de lire des tutoriels DAO.