ACCESS - Créer une relation par code
Résolu
yaya2669
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
-
16 juil. 2008 à 13:24
yaya2669 Messages postés 31 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 17 mai 2011 - 16 juil. 2008 à 13:57
yaya2669 Messages postés 31 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 17 mai 2011 - 16 juil. 2008 à 13:57
2 réponses
yaya2669
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
16 juil. 2008 à 13:57
16 juil. 2008 à 13:57
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
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
Messages postés
31
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
17 mai 2011
16 juil. 2008 à 13:42
16 juil. 2008 à 13:42
Oups j'oubliais une chose importante, je fais du code avec access 97.
