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
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
Salut,
listfic
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 Subchemin de la base distante.
Dolphy![]()
merci
mais il y a une erreur sur
??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 RefreshLinks = False
je pense que ça passera mieux avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part RafraichirLiens = False
Ca sent la traduction partielle.
Remplace par "RafraichirLiens"
Edit : Cramé au poteau.
merci bien mais j'ai enlever les deux lignesEnvoyé par cafeine
et ca marche bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 RefreshLinks = False RefreshLinks = True
merci encore![]()
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
enfin, à toi de voir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Function RafraichirLiens() As Boolean ... End Function
C'est deux lignes ne servent qu'à renvoyer sur un variables le résultat.Envoyé par issam16
C'est vrai en passant par une fonction tu peux avoir l'état c'est plus simple.Envoyé par cafeine
Envoyé par Kloun
le code fonctionne très bien sauf si Option Explicit est mis.
Dolphy![]()
oui j'ai mis le code dans une fonction biensurEnvoyé par Dolphy35
![]()
mais je me suis pas servi de la variable Refreshlinks![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager