Rétablir liaisons sur la base dorsale

**jmde** · 03/01/2011, 17h35

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 :

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