[AC-2007] Rétablir les Liaisons de tablées liées [Résolu]

[marycaLou]

Bonjur,
J'ai une base de données "LOG-Dossiers" qui a des tables liées dans 2 bases de données, Ces 2 bases sont placées dans un sous-répertoire de la base "LOG-Dossiers".
Dans la première base liée "LOG-Donn.accdb", j'ai 5 tables et dans la deuxième "Log-DoncG", j'ai 6 tables.

Comme je travaille à la maison et je dois transporter mes bases au travail, c'est assez long de refaire les liaisons avec l'écran "Link manager".

Dans le forum - FAQ access, j'ai vu les informations "Rétablir les liaisons des tables liées après déplacement d'une base fractionnée".
J'ai recopié la programmation suggérée en ajustant avec mes données. Là où je rencontre un problème, c'est lorsque arrive la ligne numéro 7:

Code :

1
2
3
4
5
6
7
        Set oTbl = oDb.CreateTableDef(strNomTable)
    With oTbl
        .Connect = strConnect
        .SourceTableName = strNomTable
    End With
    'Ajoute la table à la base de données
    oDb.TableDefs.Append oTbl: oDb.TableDefs.Refresh  ' cette ligne ???

J'ai un message qui me dit que la base existe. Bien sur qu'elle existe. puisque je veux juste refaire les liaisons.

Comment faire? De plus, je me demandais si les liaisons peuvent être mises à jour lorsque la base contenant les tables est ouverte ou faut-il que la procédure soit appelée au moment de l'ouverture exemple avec un module "autoexec"?

Merci

[LedZeppII]

Bonsoir,

Ton bout de code crée une table liée.

Pour une table liée déjà créée

Code :

1
2
3
4
5
6
7
    Set oTbl = oDb.TableDefs(strNomTable)
    With oTbl
        .Connect = strConnect
        .SourceTableName = strNomTable
    End With
    'Recrée le lien
    oTbl.RefreshLink

Remarque : La ligne 4 n'est pas indispensable si le nom de la table n'a pas changé dans la base de données externe.

A+

[Dolphy35]

Salut,

Je t'invite à consulter mon tutoriel, il ya un exemple complet sur les liaisons des tables.
Dans mon cas je DEV sur un portable je me suis créer un form pour basculer de local en distant par appui bouton, ceci est très pratique.

http://dolphy35.developpez.com/artic.../basesreseaux/

Dolphy

[marycaLou]

Bonjour,

Finalement, j'ai réussi à recréer mes liens.
J'avais tenté de faire un "oTbl.RefreshLink", mais j'ai une erreur me disant
"Opération invalide".

Pour solutionner le tout, je dois détruire mes talbes et les reconstruire.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
        For intI = 0 To UBound(stNomTables)
            'Crée une nouvelle table dans la base de données courante
            Set oTbl = oDb.CreateTableDef(stNomTables(intI))
            'Lie les deux tables
            oTbl.Connect = stConnect
            oTbl.SourceTableName = stNomTables(intI)
            'Effacer l'ancienne liaison avant d'Ajouter la table à la base de données
            oTbl.RefreshLink
            oDb.TableDefs.Delete stNomTables(intI)
            oDb.TableDefs.Append oTbl
        Next intI
        'Rafraichit la liste des tables
        oDb.TableDefs.Refresh

Ainsi, cela fonctionne, bien sur, je fais un backup de sécurité avant le tout.


Merci pour le tutoriel. Je compte bien l'étudier et voir ce que je pourrai modifier dans mon code pour le rendre plus pratique.

Merci