[AC-2003] Rétablir liaisons sur la base dorsale [Résolu]

[jmde]

Bonjour,

Je voudrais à partir de la base Frontale rétablir les relations de la base Dorsale,
Mais le code ne me rétablie que les relations de la base Frontale, et rien sur la
Dorsale.

Ou se trouve mon 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
31
32
33
34
35
36
Public Sub RelationBaseFrontale()
       Dim db As Database
       Dim dbDorsale As Database
       Dim WS As Workspace
       Dim rel As relation
       Dim myField As DAO.Field
       Dim strsql As String
       Dim rs As DAO.Recordset
       Dim strChemin As String
       Dim cpt As Integer
 
 Set WS = DBEngine.CreateWorkspace("Nouveau", "Admin", "", dbUseJet)
 Set dbDorsale = WS.OpenDatabase(strChemin)
 
StrSql = "Select * from [tbl Relations]"
Set rs = dbDorsale.OpenRecordset(StrSql)
 
'Initialise à 0
cpt = 0
 
If Not rs.EOF Then
        cpt = cpt + 1
        rs.MoveFirst
        While Not rs.EOF
            Set rel = dbDorsale.CreateRelation(rs.Fields("NomRelation"), rs.Fields("TablePrincipale"), rs.Fields("TableSecondaire"), rs.Fields("relAttributes"))
            Set myField = rel.CreateField(rs.Fields("ChampPrincipal"))
            myField.ForeignName = rs.Fields("ChampSecondaire")
            rel.Fields.Append myField
            dbDorsale.Relations.Append rel
        rs.MoveNext
        Wend
    End If
 
dbDorsale.Close: Set dbDorsale = Nothing
 
End Sub

Merci pour votre aide.

Salutations

[jpcheck]

salut,

quelle est la valeur de ta variable strChemin ?

Pointe-t-elle bien vers ta dorsale ?

[jmde]

Bonjour jpcheck,

Merci pour ta réponse.

Oui le strChemin pointe bien sur la Dorsale.

A+

Salutations

[jpcheck]

Ok,
et en ligne a ligne, entres-tu au moins dans ta boucle de test ?

[jmde]

Re

Oui, puisque lorsque je supprime les relations sur la frontale
et que je lance le code, les relations se font normalement
sur la frontale.

[jpcheck]

Ok,

mais y a-t-il au moins des tables liees dans ta dorsale ?

[jmde]

Oui les tables sont bien reliées entre la frontale et la dorsale

ce sont bien les relations de mon shéma relationnel que je
n'arrive pas à faire.

[jmde]

Bonjour jpcheck,

J'ai fait un exemple sur une base allegée.

J'espère qu'elle sera utile pour cerner mon problème.

Salutations