Discussion :

[jbbabb]

Bonjour,

Voici le code récupérer sur le forum acces qui permet de créer des relations entre des tables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'On crée une relation et définit ses propriétés. 
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("CommandesEmployés", "Employés", "Commandes") 
 ' 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("N° employé") ' Fournit le nom du champ clé externe. 
chp.ForeignName = "N° employé"  
rel.Fields.Append chp 
Currentdb.Relations.Append rel

la ligne

Code :

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

Dim rel as DAO.Relation

n'est pas prise en compte lorsque j'execute ce programme

Pouvez-vous m'aider ?
Connaissez vous la solution ?
Connaisez-vous une autre méthode pour établir des relations en vb ?

Pour info, je souhaite créer des relations sur plusieurs champs (2 ou 3)

[pgz]

Bonjour,

Essaie

Code :

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

Dim rel as Relation

pgz

[Arkham46]

n'est pas prise en compte

ça veut dire quoi??

sûrement une référence à DAO non cochée...

[jbbabb]

Code :

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

Dim rel as Relation

ne fonctionne pas non plus

"N'est pas prise en compte" signifie : "Type défini par l'utilisateur non défini"

[Arkham46]

je t'ai donné la réponse...

et c'est même dans la FAQ :
http://access.developpez.com/faq/?page=Debug#ErrorType

[jbbabb]

Effectivement je n'avais pas lu ta réponse en entier ! désolé !

J'ai un autre problème

Code :

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

CurrentDb.Relations.Append rela

Ne focntionne pas avec des tables attachées car j'utilise des tables attachées

[Arkham46]

je crains qu'il n'y ait pas de solution pour des relations avec des tables attachées