Discussion :

[dacid]

Bonjour à tous,

Je ne fait que très rarement du VBA, et j'ai besoin d'automatiser une fonctionnalité de l'interface Acces.

En fait, j'aimerais faire, par le code:
Fichier/Données externes/Lier les tables.

Je mettrait, en paramètre de ma fonction juste le chemin de la base et le nom de la(des) table(s).

Est-ce possible ?
Si oui, je veux bien quelques indices pour démarrer dans le bon sens.

Merci d'avance.

[cavo789]

Bonjour

Dans l'objet CurrentDB, tu vas trouver une méthode nommée CreateTableDef qui te permet d'ajouter une table attachée via VBA.

Un exemple :

Code :

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

1
2
3
4
5
6
Dim tbl As TableDef
   Set tbl = CurrentDB..CreateTableDef("LocalTableName", dbAttachSavePWD, "RemoteTableName" , ";DATABASE=C:\Temp\MaDB.mdb")
   CurrentDB.TableDefs.Append tbl
   CurrentDB.Refresh
 
   Set tbl=Nothing

[dacid]

Bonjour cavo789;

Génial, ca marche a merveille... En plus c'est pas trop lourd.
Par contre, il ne connait pas le refresh.

Dans la continuité du truc.
sais-tu comment faire pour voir si elle a déjà été ajoutée (si elle existe)
et aussi pour défaire ce lien (je n'ai pas vu de "delete" dans l'objet "CurrentDb"... ca me surprendrait que ce soit un drop table standard).

[Dolphy35]

Salut,

C'est un sujet très courant sur ce forum :

http://dolphy35.developpez.com/artic...sReseaux/#LVII

il y a dans le lien une explication et une fonction toute faite avec en paramètre le chemin de la bdd Dorsale, la fonction te renvoi true si ok, sinon False

Dolphy

[Azharis]

Moi j'utilise une autre méthode qui est la suivante :

Code :

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

DoCmd.TransferDatabase acLink, "Microsoft Access", edDataBase.Value, acTable, lbTableSrc.Value, edTableDest.Value

edDataBase.Value étant le nom de la base de données distante.
lbTableSrc.Value étant le nom de la table à lier.
edTableDest.Value sera le nom de la table attachée en local.

Si tu veux connaître les différents paramêtres de la fonction, tu n'as qu'à appeler l'aide de VB.

Ensuite pour supprimer le lien, tu exécutes une requête SQL du type "DROP TABLE" sur ta table liée, ça casse le lien sans toucher à la table source.

Si tu veux connaître toutes les tables liées de ta base, tu peux le faire à l'aide de cette requête :

Code :

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

1
2
3
SELECT Name, ForeignName, Database, Type
FROM MSysObjects
WHERE Type=6 And Name Not Like "~*";

"Type=6" correspond aux tables de type attachées.
"Name Not Like "~*"" permet de ne pas remonter les tables temporaires (par exemple, si tu supprime une table, elle reste avec un tilde devant son nom pendant un moment).

Cette requête te permet d'avoir plein d'information sur l'état de ta base de données, tu as qu'à faire "SELECT * FROM MSysObjects" pour voir l'intégralité de la table.

[dacid]

Extra !

Merci à tous pour ces renseignements.