Discussion :

[issam16]

salut tout le monde,

je suis entrain d'essayer la fonction dans le faq pour retablir la liason entre les tables, j'ai remarqué que cette fonction marche seulement si je supprime les tables, est ce qu'il y a un moyen pour Y remedier? Merci

[Dolphy35]

Salut,

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 chemin de la base distante.

Dolphy

[issam16]

merci
mais il y a une erreur sur

Code :

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

1
2
RefreshLinks = False

??

[cafeine]

je pense que ça passera mieux avec

Code :

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

RafraichirLiens = False

[Kloun]

Ca sent la traduction partielle.
Remplace par "RafraichirLiens"

Edit : Cramé au poteau.

[issam16]

je pense que ça passera mieux avec

Code :

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

RafraichirLiens = False

merci bien mais j'ai enlever les deux lignes

Code :

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

1
2
3
 
RefreshLinks = False
RefreshLinks = True

et ca marche bien
merci encore

[cafeine]

Ok mais tu ne sauras pas si le code s'est déroulé avec succès ou non ...

Le code est bien, j'aurais plutot mis une Fonction

Code :

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

1
2
3
Function RafraichirLiens() As Boolean
...
End Function

enfin, à toi de voir.

[Dolphy35]

merci bien mais j'ai enlever les deux lignes

Code :

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

1
2
3
 
RefreshLinks = False
RefreshLinks = True

et ca marche bien
merci encore

C'est deux lignes ne servent qu'à renvoyer sur un variables le résultat.

Ok mais tu ne sauras pas si le code s'est déroulé avec succès ou non ...

Le code est bien, j'aurais plutot mis une Fonction

Code:

Function RafraichirLiens() As Boolean
...
End Function

enfin, à toi de voir.

C'est vrai en passant par une fonction tu peux avoir l'état c'est plus simple.

Ca sent la traduction partielle.
Remplace par "RafraichirLiens"

Edit : Cramé au poteau.

le code fonctionne très bien sauf si Option Explicit est mis.

Dolphy

[issam16]

C'est deux lignes ne servent qu'à renvoyer sur un variables le résultat.


C'est vrai en passant par une fonction tu peux avoir l'état c'est plus simple.


le code fonctionne très bien sauf si Option Explicit est mis.

Dolphy

oui j'ai mis le code dans une fonction biensur
mais je me suis pas servi de la variable Refreshlinks