Discussion :

[bailamos]

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

[Invité]

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

[bailamos]

merci boucoup mais ce code contient des erreur

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
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

[bailamos]

ce que je veux c'est lister tous les champs slave d'un champ maitre


merci encore