Discussion :

[Orionmel]

Hello world,

Je suis face à un problème me gachant la vie.

Voilà, j'ai créé une fonction permettant d'exporter ma base Access dans une autre base Access grâce à la fonction DoCmd.TransferDatabase. Je transfert bien les tables dans le bon ordre mais Access ne copie pas les relations entre les tables.

Si bien que dans mon fichier exporté, toute requête Access est inutile vu que les relations ne sont pas créées.

Y'a t il un moyen de copier les relations avec la fonction citée ci-dessus ? Où de les créer grâce à un code vBA ou une macro ?

Merci d'avance !

[Lou Pitchoun]

Bonjour,

Une petite recherche sur le forum merci.

[Orionmel]

Oui mais ca j'ai trouvé ^^

J'ai même trouvé ca :
http://www.developpez.net/forums/showthread.php?t=3990

Le problème c'est que ca marche pas, quoi qu'il arrive, mes relations ne se crée pas dans la table erxportée. Voici mon code :

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
37
38
39
40
41
42
43
44
45
46
47
48
 
        Set db = CurrentDb
 
        'création d'un nouveau fichier access
        Set dbBackup = DBEngine.CreateDatabase(txt_path.Value, dbLangGeneral, False)
        dbBackup.Close
 
        unit = 100 / db.TableDefs.Count
 
        'Transfert de toutes les tables
        DoCmd.TransferDatabase acExport, "Microsoft Access", txt_path.Value, acTable, "TBL_SITE", "TBL_SITE"
        DoCmd.TransferDatabase acExport, "Microsoft Access", txt_path.Value, acTable, "TBL_VALIDATEUR", "TBL_VALIDATEUR"
        DoCmd.TransferDatabase acExport, "Microsoft Access", txt_path.Value, acTable, "TBL_GRILLE", "TBL_GRILLE"
        DoCmd.TransferDatabase acExport, "Microsoft Access", txt_path.Value, acTable, "TBL_POSTE", "TBL_POSTE"
        DoCmd.TransferDatabase acExport, "Microsoft Access", txt_path.Value, acTable, "TBL_EQUIPEMENT", "TBL_EQUIPEMENT"
        DoCmd.TransferDatabase acExport, "Microsoft Access", txt_path.Value, acTable, "TBL_EQUIP_GRILLE", "TBL_EQUIP_GRILLE"
 
        'Récupération des relations dans une table temporaire
        sqlString = "Create table temp (relationName varchar(30),tableName varchar(30),relForeignTable varchar(30),relAttributes varchar (30))"
        DoCmd.RunSQL sqlString
        For Each rel In CurrentDb.Relations
              sqlString = "Insert into temp values ('" & rel.Name & "', '" & rel.Table & "', '" & _
                                            rel.ForeignTable & "','" & rel.Attributes & "')"
            DoCmd.SetWarnings (False)
                DoCmd.RunSQL sqlString
            DoCmd.SetWarnings (True)
 
'            CurrentDb.Relations.Delete rel.Name
        Next rel
 
        'Création des relations dans la copie
        Set dbBackup = DBEngine.OpenDatabase(txt_path.Value, dbLangGeneral, False)
        Set db = Application.CurrentDb
        sqlString = "Select * from temp"
        Set rs = db.OpenRecordset(sqlString)
        If Not rs.EOF Then
            rs.MoveFirst
            While Not rs.EOF
                Set rel = dbBackup.CreateRelation(rs.Fields("relationName"), rs.Fields("tableName"), rs.Fields("relForeignTable"), rs.Fields("relAttributes"))
                dbBackup.Relations.Append rel
            rs.MoveNext
            Wend
        End If
        dbBackup.Close
 
        progressBar.Value = 100
 
        MsgBox ("Export terminé! ")

[Lou Pitchoun]

Oui mais ca j'ai trouvé ^^

Si tu ne le dis pas je ne peux pas le deviner

Je n'ai pas de boule de cristal

Le While Not que tu as est quand même bien différent de ce que tu as trouvé

[Orionmel]

Ben il est différent uniquement dans le fait que je le fais dans ma base exportée et non dans la base courante.

Le but du code que j'ai trouvé est de recréer les relations dans la table actuelle, là, je veux copier celle que j'ai dans ma base exportée. Il y'a juste la base qui change.

A moins que j'ai mal regardé ??

[Lou Pitchoun]

Code original

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        While Not rs.EOF
            Set rel = db.CreateRelation(rs.Fields("relationName"), rs.Fields("tableName"), rs.Fields("relForeignTable"), rs.Fields("relAttributes"))
            Set myField = rel.CreateField(rs.Fields("relField"))
            myField.ForeignName = rs.Fields("relForeignField")
            rel.Fields.Append myField
            CurrentDb.Relations.Append rel
        rs.MoveNext
        Wend

Il te manque ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set myField = rel.CreateField(rs.Fields("relField"))
myField.ForeignName = rs.Fields("relForeignField")
rel.Fields.Append myField

A mon avis, tu devrais suivre à peu de chose près la même procédure (comme tu le dis ce qui change c'est que tu fais ça dans une autre base mais le principe est le même).

Crées une table où tu vas stocker tes relations.
Reprend la fonction qui supprime les relations en enlevant cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   CurrentDb.Relations.Delete rel.Name

Et sers toi de la fonction de création (avec les lignes manquantes) en l'adaptant au fait que tu refais les relations sur une autre base de données. (ce que tu as déjà fait)

Et ça devrait fonctionner au poil.