Discussion :

[kaptnkill]

J'ai ce probleme:

Je veux que mon application access soit tranferable d'un poster a lautre.
Pour cela, il faut que la table liée(externe) soit ds le meme dossier.

Alors ce que je veut c'est pouvoit dire a access ds quel dossier je me trouve pour ainsi refaire le lien de la table liée.

Il faut bien sur que cela occure avant que access nessaie d'atteindre la table externe

Ça ce fait ?

Merci de votre aide

[Dolphy35]

Salut,

Oui tu peux modifier les liaisons des tables par code.

pour récupérer le chemin de la bd courante :

Code :

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

CurrentProject.Path

Pour le reste je pense que tu trouvera tout dans la

[kaptnkill]

Merci
J'ai deja ce bout de code mais le probleme est ou le mettre pour que ce soit la premiere chose que fait access a louverture ?

Je vais voir la faq et je re

[Dolphy35]

re,

Tu créer un macro Autoexec où tu appel cette fonction :

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
Sub RafraichirLiens()
    Dim dbs As Database
    Dim tdf As TableDef
    Dim ntable As String
    Dim loctable As String
    Dim listfic As String
    Dim ancConnect As String
    listfic = CurrentProject.Path & "\ServeurTest_Codes.mdb"
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        If Len(tdf.Connect) > 0 Then
           ntable = tdf.Name
          ancConnect = tdf.Connect
                    loctable = ";DATABASE=" & listfic
            tdf.Connect = loctable
            Err = 0
 
            On Error Resume Next
            tdf.RefreshLink
            If Err <> 0 Then
                RefreshLinks = False
                MsgBox (ntable & "n'a pas été trouvé à " & loctable)
 
                Else
            End If
        End If
    Next tdf
  MsgBox ("mise à jour terminée")
    RefreshLinks = True
End Sub

listfic => renseigne le nom de ta base serveur.

Bon courage