Discussion :

[polianita]

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

[cafeine]

As tu regardé la FAQ ?

http://access.developpez.com/faq/?rechercher=relations

[polianita]

Merci beaucoup, j'ai du mal chérché dans la Faq
J'essayerai ça

poliana

[polianita]

J'ai utilisé la faq pour faire ça :

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

Mais j'ai un souci : il reconnait pas .ForeignName...
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

[polianita]

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

[pgz]

Bonjour,

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

J'ai un peu de mal à imaginer ce que tu essaies de faire...

Est-ce que tu arrives à créer ta relation à la main déjà?

pgz

[Tofalu]

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

[polianita]

Génial merci pour la doc vu qu'il n'y a pas d'intégrité référentielle
J'ai modifié comme cela

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)

Et ça marche nickel
Encore Merci

Poliana