jointure 1-1 en VBA

Bonjour,

après avoir importé 2 tables :

Code:

---

1 2	DoCmd.TransferDatabase acImport, "Microsoft Access", "\\serveur2\Application_planning\planning.mdb", acTable, "Table1", "planning" DoCmd.TransferDatabase acImport, "Microsoft Access", "\\serveur2\Application_planning\planning.mdb", acTable, "Liste clients", "Liste clients"

---

je voudrais maintenant créer une jointure entre 2 champs de ces tables... le champ "Nom client" de la table "Table1" et le champ "Liste de clients" de la table "Liste clients".

Est-ce faisable en VBA ?
merci d'avance,
Greg

Bonjour,
tu peux regarder l'objet relation en VBA à ce sujet.

La :faq: est aussi une très bonne source d'infos :
http://access.developpez.com/faq/?pa...on#CreerRelVBA

j'avais en effet trouvé dans le FAQ le bout de code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim rel As DAO.Relation 'Définit les attributs de l'objet Relation pour appliquer l'intégrité référentielle. Set rel = CurrentDb.CreateRelation("Table1","Nom client","Liste clients") ' On crée un champ dans la collection Fields de l'objet Relation rel.Attributes = dbRelationDeleteCascade + dbRelationUpdateCascade ' On ajoute le champ à l'objet Relation et l'objet Set chp = rel.CreateField("Liste de clients") ' Fournit le nom du champ clé externe. chp.ForeignName = "Liste de clients" rel.Fields.Append chp CurrentDb.Relations.Append rel End Function

---

mais il y a un truc que je n'ai pas dû piger car ça ne fonctionne pas...

Peux-tu etre plus explicite sur le "ne fonctionne pas" stp ? :calim2:

Bonjour

Tu peux le faire via une commande sql, en t'inspirant de ceci

Code:

---

1 2 3

Dim sql As String sql = "alter table trendezvous add constraint FK_ConIde foreign key (conide) references tcontacts (conide) on delete cascade on update cascade" CurrentProject.Connection.Execute sql

---

De la manière dont je l'ai fait, j'obtiens le message d'erreur suivant :
Erreur d'exécution '3011' :
Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet 'Nom client'. Assurez-vous que l'objet existe et que vous avez correctement saisi son nom et le nom chemin d'accès.

et quand je clique "Débogage", j'arrive sur la ligne

Code:

---

CurrentDb.Relations.Append rel

---

J'ai pas dû tout comprendre à la manière de faire une relation... Il faut dire que j'ai tapé mes noms de tables et champs comme ça dans la fonction pour voir ce que ça faisait car je ne connais pas du tout ces commandes... j'ai l'après-midi pour appronfondir...


Pour Pierre, je vais essayer du côté du SQL pour voir si c'est mieux ;)
merci,

Greg

Il faut éviter les espaces dans les noms de champs. Tu dois alors les encadrer dans des crochets, mais le mieux est de se passer des espaces, en les remplaçant éventuellement par des underscore

J'ai essayé en mettant les accolades, mais j'ai la même erreur mais sur '[Liste clients]'...

En fait, il y a des espaces dans les noms des champs car c'est comme ça qu'ils ont été nommés au départ dans la table que j'importe...


je cherche du côté des jointures en SQL... p-ê plus facile?
merci

Je pense que le sql est plus facile, en effet...

je ne sais pas si je m'étais bien fait comprendre, mais pour être plus clair, je souhaitais recréer le ligne suivant, après improtation de mes 2 tables...
http://img32.imageshack.us/img32/182/jointure1.jpg

comme on le fait via les relations, avec :
http://img197.imageshack.us/img197/976/jointure2.jpg

comme ça c'est plus précis encore :D

je cherche encore en SQL... pas mal de truc ici http://sqlpro.developpez.com/cours/sqlaz/jointures/

Soit je suis une bouse en SQL, soit j'ai pas les yeux en face des trous :calim2: car j'ai l'impression de rendre tout ça compliqué, juste pour faire une ptite jointure !! Mais ça l'est p-ê ?

et ce n'est pas possible de créer ta base à la main avec ta relation puis de juste les remplir avec du code en VBA ?
à moins que tes tables et champs soient souvent différents ?

non, ça n'est pas possible à la main... puisque je récupère mes 2 tables à l'ouverture de ma base de données... ces 2 tables sont importées depuis une autre base de données.
Donc je dois recréer cette jointure juste après l'importation... d'où l'idée de le faire en VBA... si possible.

Je n'avais pas compris que c'est cela que tu voulais réaliser. Je croyais que tu voulais placer l'intégrité référentielle...

A quoi cela te sert-il de placer une jointure? C'est uniquement utile pour la présenter par défaut lors de la création de requêtes via l'IHM => Utiliseras-tu l'IHM pour créer des requêtes, des formulaires/sous-formulaires, ... après importation des tables?

Bonsoir,

Pour être franc, Pierre, les tables étaient liées comme celà dans la base de données, donc je pensais refaire la même chose...

Maintenant si ça n'est pas là bonne solution, je suis preneur pour d'autres conseils... car je ne vois pas trop comment faire autrement... j'ai "peur" de tout mélanger et de ne pas avoir le même résultat que j'ai pour l'instant, en le faisant manuellement...

Bonsoir,

Logiquement, le SQL donné plus haut aurait dû fonctionner.

Tu peux poster ton code entier ?

salut à tous,

la solution de Begon0 est possible greg778.
tu crées au départ tes tables et relations [Table1], [Liste clients]

puis:
tu fais ton import sous [Import Table1], [Import Liste clients]
des "delete table" [Table1], [Liste clients]
et "insert into" de [Import Table1] vers [Table1], de [Import Liste clients] vers [Liste clients].

;)

Bonjour,

Tofalu, en fait comme il y avait au départ une jointure, je me suis dit : "Comment créer une jointure via VBA ?"

Mais en faisant le code suivant, je récupère donc bien le résultat que j'attends :

Code:

---

1 2 3

SELECT [Liste clients].[Liste de clients] FROM Table1 INNER JOIN ([Liste clients] INNER JOIN planning ON [Liste clients].[Abrégé]=[planning].[Nom client]) ON [Table1].[Numéro_dossier]=[planning].[N° de dossier] WHERE (([Table1].[Numéro_dossier]="090123"));

---

Donc plus besoin de créer une jointure au départ...

Vodiem, merci pour la proposition, mais le temps de "calcul" n'en sera-t-il pas plus long ??


Mon problème est donc résolu... merci à tous.

Mais pour mon information, à quoi ça sert alors de créer une jointure "manuellement" ?
C'est apparement bien plus complet et efficace en SQL, non ?

à+ et encore merci de m'avoir éclairer sur le VBA, et le SQL, je vais approfondir ce dernier, promis :D
Greg

La création d'une jointure manuelle dans la fenêtre des relations permet de créer une jointure par défaut qui sera proposée lors de la création de requêtes via l'IHM d'Access (requêtes, sources de formulaires, d'états, de listes déroulantes, ...).

Je précise bien "par défaut" puisqu'il sera bien entendu toujours possible de modifier, voire de supprimer, une jointure au cas par cas.

Il faut encore noter que, si le placement d'une jointure dans la fenêtre des relations ne crée pas automatiquement l'intégrité référentielle, cette dernière, lorsqu'elle est placée sur deux tables, implique automatiquement une jointure par défaut (inner join par défaut, que l'on peut changer en left join ou en right join)

Merci Pierre pour ces petites précisions... qui ont néanmoins leur importance ;)

à+
Greg