salut tous le monde,
est ce que il ya un moyen pour lister toute les relations entre les tables d'une base de donneés access
exemple
1 a plusieur
champs1 de table 1 vers champs2 table2
merci d'avance
Version imprimable
salut tous le monde,
est ce que il ya un moyen pour lister toute les relations entre les tables d'une base de donneés access
exemple
1 a plusieur
champs1 de table 1 vers champs2 table2
merci d'avance
Bonjour
Tu peux utiliser la méthode DAO pour avoir ce que tu veux sur une base Access.
Un article à lire : Définition et manipulation de données avec DAO
Tu trouveras plus particulièrement des informations dans cette partie : http://warin.developpez.com/access/d...=partie_4#L4.6
Philippe
merci boucoup mais ce code contient des erreur
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Private Function listerrelation() Dim bolUtilise As Boolean Dim oRlt As DAO.Relation Dim oFld As DAO.Field Dim oBaseDeDonnees As DAO.Database Dim oTbl As DAO.TableDef Set oBaseDeDonnees = DBEngine.OpenDatabase("db1.mdb") strNomTable = t.Text strNomChamp = c.Text For Each oRlt In oBaseDeDonnees.Relations If oRlt.Table = strNomTable Then 'Pour chaque champ, contrôle le nom du champ For Each oFld In oRlt.Fields If oFld.Name = strNomChamp Then r.AddItem oFld.Name Next oFld ElseIf oRlt.ForeignTable = strNomTable Then 'pour chaque champ, contrôle le nom étranger For Each oFld In oRlt.Fields If oFld.ForeignName = strNomChamp Then r.AddItem oFld.ForeignName Next oFld End If Next oRlt End Function
ce que je veux c'est lister tous les champs slave d'un champ maitre
merci encore:oops: