ACCESS - Créer une relation par codeRésolu

Question

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

yaya2669 · Accepted Answer

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

yaya2669 · Answer

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

ACCESS - Créer une relation par code

2 réponses

Votre réponse