lier des tables

Le
alan211
Je cherche lier des tables qui se trouve dans une mme base Access
par le code (visual basic).
Aidez-moi, SVP !
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
seniorpapou
Le #15451121
Bonsoir,
Tourvé ça quelque part

'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

--

Cordialement

"alan211" a écrit :

Je cherche à lier des tables qui se trouve dans une même base Access
par le code (visual basic).
Aidez-moi, SVP... !




Publicité
Poster une réponse
Anonyme