Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Changer Liaisons tables en VBA

Changer Liaisons tables en VBA

1 réponse
Avatar
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 = "\\serveur\Chemin\datas.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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
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" a écrit dans le message de news:
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
|
|