Discussion :

[greg778]

Bonjour,

après avoir importé 2 tables :

Code :

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

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

[Jean-Philippe André]

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

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

[greg778]

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

Code :

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

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...

[Jean-Philippe André]

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

[Pierre Fauconnier]

Bonjour

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

Code :

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

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

[greg778]

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 :

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

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

[Pierre Fauconnier]

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