Bonjour à tous, j'ai essayé de chercher un peu partout comment relier des tables en VB ou aussi en SQL et aussi enlever les relations mais je n'arrive pas à trouver
est ce que vous avez des idées?
Merci d'avance
poliana
Bonjour à tous, j'ai essayé de chercher un peu partout comment relier des tables en VB ou aussi en SQL et aussi enlever les relations mais je n'arrive pas à trouver
est ce que vous avez des idées?
Merci d'avance
poliana
As tu regardé la FAQ ?
http://access.developpez.com/faq/?rechercher=relations
Merci beaucoup, j'ai du mal chérché dans la Faq
J'essayerai ça
poliana
J'ai utilisé la faq pour faire ça :
Mais j'ai un souci : il reconnait pas .ForeignName...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Function AddRelation() Dim chp As Field Dim relNew As DAO.Relation Set relNew = _ CurrentDb.CreateRelation( _ "Donnees_UlisToT_Immeuble", _ "Donnees_Ulis", _ "T_Immeuble", _ dbRelationDeleteCascade + dbRelationUpdateCascade) Set chp = rel.CreateField("ESI_Immeuble") chp.ForeignName = "ESI_Immeuble" relNew.Fields.Append chp CurrentDb.Relations.Append relNew End Function
Sachant que je relie deux tables avec le champs "ESI_Immeuble" qui existe dans les deux tables et qui n'est pas une clé primaire ni clé etrangere pour aucune des deux tables
Vous avez une idée sur cette manip?
Merci d'avance
J'ai essayé de corriger mon code mais voila le resultat, mai au débogage, il souligne la derniere ligne :db.Relations.Append relNew
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Function AddRelation() Dim chp As DAO.Field Dim relNew As DAO.Relation Dim bd As DAO.Database Set db = CurrentDb Set relNew = _ CurrentDb.CreateRelation( _ "Donnees_UlisToT_Immeuble", _ "Donnees_Ulis", _ "T_Immeuble", _ dbRelationDeleteCascade + dbRelationUpdateCascade) Set chp = relNew.CreateField("ESI_Immeuble") chp.ForeignName = "ESI_Immeuble" relNew.Fields.Append chp db.Relations.Append relNew End Function
Bonjour,
J'ai un peu de mal à imaginer ce que tu essaies de faire...je relie deux tables avec le champs "ESI_Immeuble" qui existe dans les deux tables et qui n'est pas une clé primaire ni clé etrangere pour aucune des deux tables
Est-ce que tu arrives à créer ta relation à la main déjà?
pgz
Ce sera forcément une clé étrangère. Et il vaut mieux que ce soit une clé primaire. Sinon comment garantir l'intégrité ?
Tu peux consulter ceci :
http://warin.developpez.com/access/d...=partie_4#L4.6
Génial merci pour la doc vu qu'il n'y a pas d'intégrité référentielle
J'ai modifié comme cela
Et ça marche nickel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Set relNew = _ CurrentDb.CreateRelation( _ "Donnees_UlisT_Immeuble", _ "Donnees_Ulis", _ "T_Immeuble", dbRelationDontEnforce)
Encore Merci
Poliana
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager