Discussion :

[kiki_b]

Bonjour,

y-a-t-il un moyen de spécifier un chemin relatif (plutôt qu'absolu) pour des tables liées ?
(outils/utilitaires de bd/gestionnaire de tables liées)
Quelque chose du genre : .\tables\toto_princip.mdb
Plutôt que : c:\machin\bidule\tables\toto_princip.mdb

Ceci ayant pour but de rendre "portable" ma base fractionnée (avec ses tables dans le répertoire à côté d'elle) sans avoir à raffraichir les liaisons.

[stéphane_ais2]

Bonjour,

As-tu fait des recherches sur le forum ?
Le sujet est déjà traité...me semble-t-il?

SE

[kiki_b]

As-tu fait des recherches sur le forum ?
Le sujet est déjà traité...me semble-t-il?

Oui. Je planche sur le sujet depuis plusieurs jours déjà.
Le plus prometteur était la modif de la liaison par quelques lignes de VBA (trouvées effectivement sur ce forum)...
Mais, cela ne fonctionne pas.
Dans mon code je tape MONCHEMIN = ".\tables\toto_princip.mdb"
Mais, lorsque je vais voir la liaison (gestionnaire de liaisons) réellement mémorisée par Access, c'est : "D:\tables\toto_princip.mdb"
(D n'ayant d'ailleurs rien à voir avec le répertoire en cours...Mystère!?)

D'où mon post.

CB

[stéphane_ais2]

Tu peux regarder celui-ci :
http://www.developpez.net/forums/sho...tenance+tables

SE

[kiki_b]

Tu peux regarder celui-ci :
http://www.developpez.net/forums/sho...tenance+tables

SE

J'ai regardé.
Mais comme beaucoup d'autres fil, celui ci ne répond pas à mon problème.
Dans tout ceux que j'ai pu parcourir, le principe est que l'emplacement de la dorsale (les tables) est supposé connu.
Or, ce que je cherche à obtenir, c'est une liaison frontale/dorsale dont le chemin absolu(UNC) est inconnu a priori MAIS dont le chemin relatif est connu (ex: chercher la dorsale dans le répertoire actuel de la frontale, ce, quelque soit l'endroit où on installe la frontale).

[marot_r]

Désoléje ne pense pas que ce soit possible, j'ai pas mal travaillé là dessus et je n'ai rien trouvé.

J'ai résolu le pb de la façon suivante :

Au démarage l'appli teste si la base liée est accessible (avec Dir()).

Si elle n'est pas accessible elle vérifie dans son fichier d'ini si elle a l'info pour se reconnecter automatiquement.

Et enfin si cela ne marche pas un écran demande à l'utilisateur où est la base recherché.

Une fois que l'utilisateur a indiqué le chemin il est mémorisé dans le fichier ini.

Donc généralement je n'ai a indiqué qu'une seule fois le chemin, car aprés la reconnexion est automatique.

J'ai aussi fais un code plus élaboré pour gérer plusieurs bases liées mais l'idée est la même.

Ce que j'ai fais aussi c'est du code qui récupère le chemin d'accés à la base courrante et qui ajuste le chemin des tables liées en conséquence en modifiant la propriété connect des objets tabledef.

A+

[kiki_b]

Ce que j'ai fais aussi c'est du code qui récupère le chemin d'accés à la base courrante et qui ajuste le chemin des tables liées en conséquence en modifiant la propriété connect des objets tabledef.

A+

Ouuiii ! Ca me semble parfait !
Peux-tu m'indiquer le code utilisé pour récupérer le chemin de la base courante (pour la connection, je sais faire) ?

Merci.
CB

[marot_r]

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
 
Option Compare Database
Option Explicit
 
Private Sub test_DBDir()
    Debug.Print DBDir()
End Sub
 
Public Function DBDir() As String
    Dim result As String
    Dim morceauxNom As Variant
    Dim t As String
 
    t = CodeDb.Name
 
    morceauxNom = Split(CodeDb.Name, "\")
    result = Left(t, Len(t) - Len(morceauxNom(UBound(morceauxNom))))
    DBDir = result
End Function

A+

[kiki_b]

Super.
Merci.

CB