Discussion :

[yoyoo]

Salut,
Sur mon poste, j'ai mon répertoire C:\Répertoire, qui contient ma base de
données "OBS" mais aussi des sous-dossiers contenant les données d'autres BD.
Ma base de données OBS contient de nombreuses tables liées dans ces sous
dossiers.
La base terminée je dois copier le répertoire entier (base et données) sur
un réseau (ex Serveur:\Base\Répertoire), et bien sûr la liaison des tables ne
suit pas.
Y a t-il une solution pour ne pas refaire 'Gestionnaire des tables liées et
redéfinir l'adresse de chaque table à chaque fois (genre faire un chemin relatif)?
sachant que je vais tres régulierement la retravailler sur mon poste et
refaire la manip souvent.

--
merci!

[Fritzoune]

Tiens ca m interesse j ai le meme souci
et pas trouvé comment mettr eles chemin relativement
je suppose qu'il faut passer par VBA,mais quand à savoir ou les inscrires...

[Meduse]

Perso je lance un petit formulaire au démarrage ("frmLinkToBD") dans lequel l'utilisateur entre le nouveau chemin vers la base. Puis il clique sur un bouton OK qui lance le code suivant (DAO – Access 97) :

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
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub cmdOK_click()
 
    On Error GoTo er
 
    Dim Tabl As DAO.TableDef
    Dim NewPath As String
    NewPath = Me.txtNewPath
 
    For Each Tabl In CurrentDb.TableDefs
        If Tabl.Connect <> "" Then
            Tabl.Connect = ";DATABASE=" & NewPath
            Tabl.RefreshLink
        End If
    Next
    MsgBox "All linked tables have been successfully refreshed."
 
    DoCmd.Close
    DoCmd.OpenForm "MainForm"
 
Exit Sub
er:
    If Err.Number = 3044 Or Err.Number = 3024 Then
        MsgBox "File not found.", vbCritical
    ElseIf Err.Number = 3011 Then    'if a table is missing
        MsgBox "Table " & Tabl.name & " is missing. The installation failed.", vbCritical
    Else
        MsgBox "Error " & Err.Number & ": " & Err.Description
    End If
End Sub

Pour que ce formulaire ne s'ouvre que quand la base est déconnectée, je vérifie une des tables liées à l'ouverture de frmLinkToBD : si la table contient au moins un champ, c'est qu'elle est correctment liée et donc j'envoie directement le formulaire principal.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
 
Dim LinkTest As Integer
 
LinkTest = CurrentDb.TableDefs("tblPipingData").Fields.count
 
If LinkTest > 0 Then
    DoCmd.OpenForm ("MainForm")
End If
End Sub

Cette méthode a l'avantage d'éviter tous les messages d'erreur, mais bien sûr il y a plein d'autres manières de faire.
Voir aussi la FAQ
http://access.developpez.com/faq/?pa...#RetablLienTbl

[yoyoo]

Si j'ai bien compris: à l'ouverture de la base un petit form demande l'adresse de la base (d'ailleurs avec simplement une zone de texte et un bouton ok?).
Mais est-ce que cette solution met à jour les liaisons vers les tables?? sachant que pour moi, les tables liées sont à plusieurs endroits différents du répertoire.

merci
(dsl je suis pas un pro du code )

[Meduse]

Si j'ai bien compris: à l'ouverture de la base un petit form demande l'adresse de la base (d'ailleurs avec simplement une zone de texte et un bouton ok?).

Oui c'est ça.

Mais est-ce que cette solution met à jour les liaisons vers les tables?? sachant que pour moi, les tables liées sont à plusieurs endroits différents du répertoire.

Le code ci-dessus marche si toutes les tables liées sont stockées dans la même base.

Si elles sont réparties sur plusieurs bases, fais en sorte qu'il soit facile de voir pour chaque table où elle se trouve, par exemple en ajoutant un suffixe à leur nom (du genre tblFournisseur_BDachats). Non seulement ca rend les choses plus claires, mais aussi ca permet de faire facilement une variante du code ci-dessus:

Code :

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

1
2
3
4
5
6
7
8
9
For Each Tabl In CurrentDb.TableDefs
    If Tabl.Connect <> "" Then
        If InStr(Tabl.Name, "BDachats") > 0 Then
            Tabl.Connect = ";DATABASE=" & CheminAchats
        Else
            Tabl.Connect = ";DATABASE=" & CheminCompta
        End If
    Tabl.RefreshLink
Next

Pour ce qui est de prendre des chemins relatifs:
on peut demander à l'utilisateur dans quel répertoire se trouvent les bases, et en déduire le chemin de toutes les bases :

Code :

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

1
2
3
Repertoire = Me.txtNewPath
CheminAchats = Repertoire & "\Achats.mdb"
CheminCompta = Repertoire & "\Comptabilité.mdb"

[yoyoo]

Ok j'essaierai tout ca, mais je pense que la methode des chemins relatifs sera la mieux adaptée car ma base est déjà pratiquement terminée donc les noms des tables déjà utilisés dans plein d'applications

merci encore
(et a la prochaine )