Discussion :

[thomason1407]

Bonjour à tous,

Plutôt de continuer à passer des heures à essayer de résoudre mon problème, je préfère profiter de l'entraide proposé dans ce forum.

Mon problème est sur Access 2007. Un exemple est le suivant:

Table1 = 4 champs
marque: a / a / b / b
modele: a1/a2/b1/b2
gps1 :
gps2: case à cocher (vrai/faux)


Table2: 3 champs
marque: a / a / b / b
modele: a1/a2/b1/b2
gps:1/2/3/4

Mon objectif est de mettre les données de table2.gps vers table1.gps. Les données doivent être transmises uniquement si le champs gps2 est coché dans le formulaire1 (appelé formulaires.formulaire1.gps2).
Enfin si "formulaires.formulaire1.gps2" n'est pas coché alors table1.gps doit prendre la valeur 0.


Mes démarches sont:

- création des requêtes mises à jour suivantes:

requete1: si la case "formulaires.formulaire1.gps2" est coché

Code :

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

1
2
UPDATE table1 INNER JOIN table2 ON (table1.marque = table2.marque) AND (table1.modele = table2.modele) SET table1.gps = [table1]![gps]
WHERE ((([Formulaires]![formulaire1]![gps2])="vrai"));

requete2: si la case "formulaires.formulaire1.gps2" est pas coché

Code :

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

1
2
 UPDATE table1 INNER JOIN test2 ON (table1.marque = table2.marque) AND (table1.modele = table2.modele) SET table1.gps = "0"
WHERE ((([Formulaires]![formulaire1]![gps2])="faux"));

- création d'un formulaire en mode continu à partir de la table1

ensuite j'ai fait sur [Formulaires]![formulaire1]![gps2]) ==>proprietes ==>événements==>surclic==>macro incorporée (ou j'ouvre respectivement requête1 et requête 2).


Mon problème c'est que le transfert de données ne se fait pas de la table1 à la table2 et que quand je clique sur 2 champs successivement, une fenêtre s'affiche me disant que les données viennent d'être modifier par un autre utilisateur.


Merci de m'aider, car ça me tracasse vraiment.

[bernardmichel]

Bonjour !

Veux-tu essayer cela ?
Si la case à cocher est sur "True"

Code :

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

1
2
UPDATE Table1 SET Table1.marque = [Table2]![marque], Table1.modele = [Table2]![modele], Table1.gps1 = [Table2]![gps1]
WHERE (((Table1.gps2)=True));

Si la case à cocher est sur "False"

Code :

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

1
2
UPDATE Table1 SET Table1.marque = [Table2]![marque], Table1.modele = [Table2]![modele], Table1.gps1 = [Table2]![gps1]
WHERE (((Table1.gps2)=False));

... et si ce n'est pas cela... reviens nous voir

[thomason1407]

Je vous remercie de votre coopération. Ca fonctionne.

Félicitations encore pour votre travail.