Discussion :

[sunvialley]

Bonjour,

j'ai chercher un peu de partout sur le sujet, cela doit parêtre simple pour tout le monde... je sais que pour une base fractionnée on peut determiner le chemin du fichier de données dans un fichier .ini

Mais je ne comprends pas comment...
J'ai vu des post qui en parlait, mais je n'ai pas trouver comment faire ? (J'ai juste trouver comment lire/ecrire dans un fichier ini, mais pas comment dire a Access que c'est le chemin des données)

qq1 pourrait il me donner un lien svp ?

PS : en fait mon application est quasi finie, donc j'espere que je n'aurais pas des modifications à faire de partout.

Merci

[loufab]

Bonjour,

tu trouvera la réponse ici

http://access.developpez.com/faq/?pa...#RetablLienTbl

[sunvialley]

J'avais vu ce truc y a un petit moment, mais je pensait pas que l'on devait passer par ca (j'imaginait qu il y avait juste besoin de faire un "currentDb.data = monChemin", naïvement)

Donc, si j'ai compris, j'utilise la sub "lierToutes" en remplacant "strCheminBd" par la valeur dans mon fichier Ini...

et après je lance la sub a chaque démarrage de l'appli (via Autoexec)...


Je vais tenter ca, je tiens au courant.
Si c'est pas la bonne méthode, hésitez pas

[sunvialley]

j'ai une petite erreur, comme les liaisons existes déjà, ca me dit que la table existe... faut que je trouve comment supprimé les tables (liaisons) qui sont dans la base interface.

[loufab]

il te faut mettre à jour la propriété Connect de l'objet TableDefs("matable")
puis faire un refreshlink.

Sinon tu supprimes les liens (docmd.deleteobject actable,"matable")
et réattache

Cordialement,

[sunvialley]

pour la 1er solution qui me parait moins couteuse en temps, ressoures ... (enfin je crois), je ne vois pas pourquoi j'ai une erreur

En m'inspirant d'un code microsoft ca donnerait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
   For i = 0 To UBound(strNomsTables)
 
      'recupération de la liaison existante
      Set oTbl = db.TableDefs(strNomsTables(i))
 
      'Lie les deux tables
      oTbl.Connect = strConnect
      'rafrachissement de la liaison
      oTbl.RefreshLink
 
    Next i

et quand je fais avec un delete (pas le meme delete) en debut de boucle :

Code :

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

oDb.TableDefs.Delete strNomsTables(i)

cela marche.

On va dire que c bon. Merci