modifier lien table liée

**giloo(94)** · 26/01/2007, 15h01

soit:table_agent liée entre 2 bases
comment faire pour verifier que le lien n'est pas perdu et si tel est le cas
comment faire pour modifier le chemin dans le code
a noter quand ca arrive,j'ai actuellement un message d'erreur 3024
fichier:"chemin base distante.mdb" introuvable

**Dolphy35** · 26/01/2007, 15h49

Bonjour,

Envoyé par giloo(94)

comment faire pour verifier que le lien n'est pas perdu et si tel est le cas

tu as trouvé ta réponse toi même, lorsque la bdd Frontale ne trouve la base principale l'erreur 3024 est levée, il te suffit de l'intercepter pour définir que la laison n'est plus bonne.

Envoyé par giloo(94)

comment faire pour modifier le chemin dans le code

il y a une réponse dans la

Rétablir les liaisons des tables liées après déplacement d'une base fractionnée

Dolphy

**Ric500** · 26/01/2007, 15h55

Salut giloo(94)

Pour mes devs, j'ai choisi la solution suivante:

Une table Chemins dans laquelle je renseigne le chemin (et le nom) d'une dorsale,
Une table Attached : une seule colonne avec les noms des tables à attacher

puis, quand c'est nécessaire j'appelle le Sub suivant (Attache()):

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
Sub Attache()
 
On Error GoTo ErrMan
 
Dim mabd As Database
Dim ATT, MonRecordset As Recordset
Dim Chem As String
 
Chem = DFirst("Chemin", "CHEMINS", "[Fonction]='" & "Base de données datae" & "'")
Set mabd = CurrentDb()
Set ATT = mabd.OpenRecordset("Attached")
 
'Parcours la table Attached en attachant chaque nom de table
ATT.MoveFirst
Do While ATT.EOF = False
    DoCmd.TransferDatabase acLink, "Microsoft Access", Chem, acTable, ATT!LaTable, ATT!LaTable
    ATT.MoveNext
Loop
ATT.Close
 
Fin:
Exit Sub
ErrMan:
MsgBox (Error(Err) & " sur la table : " & ATT!LaTable)
 
 
Resume Next
End Sub