ACCESS - Créer une relation par code [Résolu]

Signaler
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
-
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
-
Bonjour,

J'essai de créer une relation par du code. Le seul probleme c'est que j ai deux clefs dans chaques tables à liées en une seule fois.

Avec une clé de chaque coté pas de soucis mais là c'est un lien entre deux clés composées que je dois faire.

Quelqu'un pour m'aider svp ?

Merci pour votre aide

2 réponses

Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011

En cherchant un peu j'ai trouvé
Je vous donne la solution que j'ai trouvé on sais jamais ca peux toujours servir ;)

Dim rel As DAO.Relation
Dim chp As Field


Set rel = CurrentDb.CreateRelation("NomRelation", "Table1", "Table2")
rel.Attributes = dbRelationDeleteCascade + dbRelationUpdateCascade
Set chp = rel.CreateField("NomChamps1CléTable1")
chp.ForeignName = "NomChamps1CléTable2"
rel.Fields.Append chp
Set chp = rel.CreateField("NomChamps2CléTable1")
chp.ForeignName = "NomChamps2CléTable2"
rel.Fields.Append chp
CurrentDb.Relations.Append rel
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011

Oups j'oubliais une chose importante, je fais du code avec access 97.