Changer Liaisons tables en VBA

Le
Albéric
Bonjour

Je dois copier une dorsale en local, puis modifier la liaison de certaines
tables de la frontale, faire des rapports assez lourds, puis rétablir les
liaisons d'origine (voir plus bas le 24 mars "Access dans un MAN")

J'ai ce code :
Dim sDorsale As String, sLocale As String

Dim Fso As FileSystemObject

Dim Fl As File

Dim DB As DAO.Database

Set DB = CurrentDb



sDorsale = "\serveurChemindatas.mdb"

sLocale = "d:datas.mdb"

Set Fso = New FileSystemObject

Set Fl = Fso.GetFile(sDorsale)

Fl.Copy (sLocale)

DB.TableDefs("Tbl_Ctrl_Users").Connect = ";DATABASE=" & sLocale

DB.TableDefs.Refresh



La base est, bien entendu, copiée, mais la connection de la table n'est pas
modifiée.

Il n'y a pas de message d'erreur.



Cordialement
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #23263931
Salut,

Si tu copie en local, dans le même répertoire que la frontale,
tu peux utiliser ceci :
http://www.3stone.be/access/articles.php?lng=fr&pgE7

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




"Albéric" ini060$hil$
| Bonjour
|
| Je dois copier une dorsale en local, puis modifier la liaison de certaines
| tables de la frontale, faire des rapports assez lourds, puis rétablir les
| liaisons d'origine (voir plus bas le 24 mars "Access dans un MAN...")
|
| J'ai ce code :
| Dim sDorsale As String, sLocale As String
|
| Dim Fso As FileSystemObject
|
| Dim Fl As File
|
| Dim DB As DAO.Database
|
| Set DB = CurrentDb
|
|
|
| sDorsale = "\serveurChemindatas.mdb"
|
| sLocale = "d:datas.mdb"
|
| Set Fso = New FileSystemObject
|
| Set Fl = Fso.GetFile(sDorsale)
|
| Fl.Copy (sLocale)
|
| DB.TableDefs("Tbl_Ctrl_Users").Connect = ";DATABASE=" & sLocale
|
| DB.TableDefs.Refresh
|
|
|
| La base est, bien entendu, copiée, mais la connection de la table n'est pas
| modifiée.
|
| Il n'y a pas de message d'erreur.
|
|
|
| Cordialement
|
|
Publicité
Poster une réponse
Anonyme