Discussion :

[zoopsys]

Bonjour,

Je met à jour la liaison de mes tables liées de la façon suivante :

Function Fct_ModifyLink(strDb As string) As Boolean

Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim strDbFileName As String

Set oDb = CurrentDb

strDbFileName = Fct_FileName(strDb)


'Boucle sur les tables
For Each oTbl In oDb.TableDefs

'Détermine toutes les tables qui sont attachées en excluant les tables systèmes
If oTbl.Attributes = dbAttachedTable And Not oTbl.Attributes = dbSystemObject Then

If oTbl.Connect Like "*" & strDbFilename Then

oTbl.Connect = "MS Access";pwd="";DATABASE=" & strDb
oTbl.RefreshLink

End if

End If

Next

End Function

Le problème est que mes tables sont dans des groupes personnalisés et le RefreshLink me supprime mes tables de mes groupes personnalisés.
En fait, j'ai l'impression que le RefreshLink supprime les tables et les recrée.

Or, si je passe par l'assistant du gestionnaire des tables liées, mes tables restent bien dans mes groupes personnalisés.

Y aurait-il une autre méthode VB pour mettre à jour les liaisons des tables ?

[nico84]

Bonjour,

Avant de rafraichir le lien, il serait intéressant de regarder ce qu'il contient avec une instruction

Code :

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

msgbox otbl.connect

Avec un peu de chance (!) il y aura une indication de groupe

Sinon il doit être possible d'afficher toutes les propriétés de l'objet otbl pour trouver laquelle contient le groupe avec un truc du genre :

Code :

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

1
2
3
For Each prp In otbl.Properties
msgbox prp.Name & " : " & prp.Value
Next prp

[zoopsys]

Bonjour Nico et merci de t'intéresser à mon problème

Bonjour,

Avant de rafraichir le lien, il serait intéressant de regarder ce qu'il contient avec une instruction

Code :

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

msgbox otbl.connect

Avec un peu de chance (!) il y aura une indication de groupe

msgbox otbl.connect m'affiche bien le nouveau chemin (donc celui de la variable strDb).
mais aucune indication de groupe.

Sinon il doit être possible d'afficher toutes les propriétés de l'objet otbl pour trouver laquelle contient le groupe avec un truc du genre :

Code :

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

1
2
3
For Each prp In otbl.Properties
msgbox prp.Name & " : " & prp.Value
Next prp

Ceci ne permet pas d'afficher le groupe.
La seule solution que j'ai trouvé pour récupérer le groupe est via la requête suivante :

SELECT MSysObjects.Name
FROM MSysObjects INNER JOIN (MSysNavPaneGroups INNER JOIN MSysNavPaneGroupToObjects ON MSysNavPaneGroups.Id = MSysNavPaneGroupToObjects.GroupID) ON MSysObjects.Id = MSysNavPaneGroupToObjects.ObjectID
WHERE (((MSysNavPaneGroups.Name)="MonGroupe"));

La solution que tu me proposes c'est en fait de récupérer le groupe avant le refreshlink puis faire mon refreshlink et enfin de réattribuer le groupe à ma table ?

j'ai trouvé quelqu'un qui a la même problématique que moi :
http://www.vbaexpress.com/forum/arch...p/t-35842.html

[nico84]

Je n'utilise pas les groupes et je ne sais même pas à quoi ça sert

Mais l'idée est de trouver où le groupe est stocké pour voir si le fait de rafraîchir le lien efface l'info et s'il y a moyen de la recréer !

Le msgbox est bien fait avant de lui donner la nouvelle valeur ?

[zoopsys]

Je n'utilise pas les groupes et je ne sais même pas à quoi ça sert

Mais l'idée est de trouver où le groupe est stocké pour voir si le fait de rafraîchir le lien efface l'info et s'il y a moyen de la recréer !

Le msgbox est bien fait avant de lui donner la nouvelle valeur ?

Les groupes se trouvent dans la fenêtre de gauche (celle des tables, requêtes...) et te permettent de "ranger" les différents objets.

Je pense que le refreshlink détruit l'objet puis le recrée et donc attribut un nouvel id dans la table MSysObjects.
Le lien entre les groupes (MSysNavPaneGroups) et les objets (MSysObjects) est réalisé par la table MSysNavPaneGroupToObjects. Le refreshlink ne met pas à jour cette dernière, l'ancien id est toujours présent.

De plus, je ne suis pas sûr qu'il soit conseillé de modifier les tables systèmes. Cela peut éventuellement faire crasher Access, non ?

[nico84]

De plus, je ne suis pas sûr qu'il soit conseillé de modifier les tables systèmes. Cela peut éventuellement faire crasher Access, non ?

J'imagine qu'on modifie ces tables lorsqu'on utilise certaines instructions comme refreshlink, mais de là à faire un update sur la table je suis d'accord que cela mérite réflexion... Pour ma part j'ai toujours réussi à trouver une instruction VBA qui faisait le boulot "proprement"

[zoopsys]

Apparemment j'ai trouvé une solution :

Avant de faire mon RefreshLink, j'exporte la configuration du panneau de navigation dans un fichier xml via la commande

Application.ExportNavigationPane "C:\Temp\NavPan.xml"

puis après le RefreshLink j'importe le fichier xml

Application.ImportNavigationPane "C:\Temp\NavPan.xml"