Discussion :

[PtitGénie]

Bonjour !

Mon problème : j'ai attaché à mon projet (à ma base de donnée) une table provenant d'une autre base.
J'aimerais que cette attache soit mise à jour à l'ouverture d'une formulaire (ou à l'ouverture du projet) via un code VBA.
J'ai trouvé sur Internet comment attacher une table en VBA, mais pas comment faire cette actualisation en code...

J'espèce avoir été clair ^^

Merci d'avance !

[mout1234]

Bonjour,


Pour créer une nouvelle relation, tu peux utiliser la méthode

Code :

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

Docmd.TransferDatabase

ou utiliser en DAO la propriété Connect d'un objet Tabledef nouvellement créé, comme proposé dans la faq http://access.developpez.com/faq/?pa...#RetablLienTbl.


Si tu souhaites uniquement mettre à jour le lien d'une table liée existante, il te suffit de mettre à jour la propriété Connect sur un objet tabledef existant. Il te faudra alors simplement forcer le rafraichissement de cette table attachée pour une prise en compte immédiate, avec la méthode RefreshLink.

Quelque chose du genre:

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
Sub MAJLienTableAttachée(sLinkedTableName As String, sDBFullName As String)
 
    'sLinkedTableName = nom de la table attachée, supposé le même que celui de la table source liée
    'sDBFullName = nom et chemin complet du fichier de base de données contenant la table (supposé ici non protégé par un mot de passe)
 
 
    Const cstPrefixeAttache As String = ";DATABASE="
 
    Dim oTbl As DAO.TableDef
    Dim odb As DAO.Database
    Set odb = CurrentDb
 
 
    Set oTbl = odb.TableDefs(sLinkedTableName)
 
    oTbl.Connect = cstPrefixeAttache & sDBFullName
    oTbl.RefreshLink
 
    Set odb = Nothing
End Sub

Il faudrait bien sur adapter ce code à tes besoins et compléter en ajoutant une gestion d'erreur et des commentaires...

[PtitGénie]

Merci de ta réponse ^^

Le problème, c'est que je n'ai pas de chemin d'accès, ce n'est pas une base Access que je lie. Je faais Fichier / Données externes / Lier les tables !

[mout1234]

Merci de ta réponse ^^

Le problème, c'est que je n'ai pas de chemin d'accès, ce n'est pas une base Access que je lie. Je faais Fichier / Données externes / Lier les tables !

Le principe reste le même... il te faut simplement adapter le contenu de la propriété connect.

[PtitGénie]

Ah oki...

J'ai donc tenté :

Code :

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

1
2
    oTbl.Connect = "COG_T_VENDEUR;pwd=truc;DATABASE=HORIZONSQL"
    oTbl.RefreshLink

Sans succès :/ => la fenêtre pour lier une table s'ouvre à présent o_O

J'ai aussi tenté "DATABASE=HORIZONSQL.dsn" '-'

[PtitGénie]

J'approche, j'approche '-'

J'ai fait cela :

Code :

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

1
2
3
4
5
6
7
Dim TblDef As DAO.TableDef
Dim myDB As DAO.Database
 
Set myDB = CurrentDb
Set TblDef = myDB.TableDefs("COG_T_SALARIE")
TblDef.RefreshLink
myDB.TableDefs.Refresh

Ca lance la mise à jour, seulement cela demande le mot de pass -_-
(ce que je voulais éviter, d'où le topic ^^)