Comment mettre a jour par code ou macro des tables liées?

**jeo13** · 08/04/2008, 10h03

Bonjour a tous,

J'ai deux bases access (A et B) dont une (B) sert exclusivement a la consultation. Les tables de B sont liées a celles de A.

Je cherche a mettre en place un bouton qui permettrait a l'utilisateur de B de mettre a jour les tables de sa base.

Je sais comment faire manuellement mais est-ce possible par code ou macro ou autre méthode afin de créer ce bouton?

J'ai trouvé ce code dans la FAQ, mais ca ne me parle pas du tout:

Code :

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

1
2
3
Dim Db as DAO.Database
Set Db=CurrentDb
Db.Tabledefs("MaTable").RefreshLink

Pourriez-vous me guider?
merci

**osia1** · 08/04/2008, 11h13

Bonjour, tu peux nous expliquer ce que tu ne comprend pas, car pour moi c'est clair...

**jeo13** · 08/04/2008, 12h08

C'est clair mais je ne sais pas l'utiliser.

Dans ma base B, j'ai créé un module qui contient la fonction suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function UpdateDatabase()
 
Dim Db As DAO.Database
Set Db = CurrentDb
Db.TableDefs("tbl_History").RefreshLink
Db.TableDefs("tbl_History_Before").RefreshLink
Db.TableDefs("tbl_Clients").RefreshLink
Db.TableDefs("tbl_Clients_Conditions").RefreshLink
Db.TableDefs("tbl_Standard_Conditions").RefreshLink
Db.TableDefs("tbl_Type_Conditions").RefreshLink
 
End Function

pour mettre a jour les 6 tables liées.

J'ai ensuite créé une macro qui exécute la fonction UpdateDatabase mais ca ne fonctionne pas.

**mikeGo20** · 09/04/2008, 13h52

Je ne saisi pas très bien ...

Si les tables sont liés, le data doit être accessible ...

pourquoi aliors chercher à mettre à jour ???

**jeo13** · 10/04/2008, 08h51

Peut etre que je n'ai pas besoin de mettre a jour.
En fait, je reformule ma question:

Est-ce que les tables liées présentes dans la base B sont automatiquement mises a jour, si des modifications effectuées depuis la base A ?

Merci