Discussion :

[davibe]

Bonjour

J'aimerais trouver un script qui permet de mettre à jour les liaisons, sauf que cela fonctionne via un

Code :

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

fOpenfile

puisque c'est le cas où on à un front office et un back office. (http://www.3stone.be/access/articles.php?lng=fr&pg=28)

Or, mon fichier(unique) comporte des tables lieés et d'autres non , donc j'aimerais qu'au démarrage du formulaire, les liaisons soient automatiquement remises à jour ( un bon refresh quoi ^^ ) pour que le WSID s'adapte au PC sur lequel le fichier est lancé.

Merci beaucoup

[fevec]

bonjour,
Fais un essai avec ce code.
Je l'utilise tous les jours (Access97 - 2000 - 2003)

Usage :

Code :

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

1
2
 
Function ModifAttache(lechemincompletdelabase)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Function fGetLinkPath(strTable As String) As String
Dim dbs As Database, stPath As String
 
    Set dbs = CurrentDb()
    On Error Resume Next
    stPath = dbs.TableDefs(strTable).Connect
    If stPath = "" Then
        fGetLinkPath = vbNullString
        'can change this to currentdb.name
    Else
        fGetLinkPath = Right(stPath, Len(stPath) _
                        - (InStr(1, stPath, "DATABASE=") + 8))
    End If
    Set dbs = Nothing
End Function
 
 
Function ModifAttache(strDBPath)
' Modification simple des attaches
' sur le modèle de fGetLinkPath de Dev Ashish
' 21/07/2005
    Dim vieuxnom As String, stPath As String
    Dim loTd As TableDef
    Dim dbs As Database
    Dim I As Integer, nb As Integer
    I = 0
    CurrentDb.TableDefs.Refresh
    ' nb de table
    nb = CurrentDb.TableDefs.Count
 
 
    For Each loTd In CurrentDb.TableDefs
        On Error Resume Next
       stPath = dbs.TableDefs(loTd.Name).Connect
       If stPath = Null Then
        Else
            I = I + 1
            vieuxnom = fGetLinkPath(loTd.Name)
            loTd.Connect = ";Database=" & strDBPath    
            loTd.RefreshLink
        Debug.Print loTd.Name; " "; fGetLinkPath(loTd.Name); " à la place de : "; vieuxnom
 
        End If
    Next loTd
    Set loTd = Nothing
    CurrentDb.TableDefs.Refresh
    MsgBox "Terminé." & vbCrLf & I & " tables attachées pointent désormais vers la base de données " & strDBPath, vbOKOnly, "Procédure terminée avec succés"
End Function

cordialement,
FEVEC

[davibe]

Merci mais je ne suis pas sur que cela me corresponde.

Mes tables liées sont sur un serveur SQL 2000.

En fait dans Access je peux "mettre à jour" les liaisons et cela correspond à ce que je cherche mais j'aimerais l'automatiser, pour ne pas que l'utilisateur ait à le faire lui même.

[fevec]

Bonjour,
si j'ai bien compris la situation...

A chaque démarrage, Par une macro Autoexec (par exemple), lancement du code qui réattache les tables avec la source de données.

cordialement,
fevec

[davibe]

Bonjour,
si j'ai bien compris la situation...

A chaque démarrage, Par une macro Autoexec (par exemple), lancement du code qui réattache les tables avec la source de données.

cordialement,
fevec

Tout à fait. J'ai la moitié des tables qui sont sur Server SQL donc j'aimerais qu'il réattache ces tables à chaque lancement de programme.

Merci

[5GPCISAS1]

Moi j'utilise ce code dans un module que j'applique sur l'ouverture de mon formulaire d'entrée (version 2003);

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Initialisation()
 
    Dim SQL As String
    Dim SQL1 As String
 
    SQL = "DELETE [Ta_Table].* FROM [Ta_Table]"
    SQL1 = "INSERT INTO  SELECT [Table_Liée].*  FROM [Table_Liée] IN 'Chemin_de_la-Table_Liée.mdb'"
 
    DoCmd.RunSQL SQL
    DoCmd.RunSQL SQL1
 
End Function

J'espère que ça peut t'aider

[davibe]

Moi j'utilise ce code dans un module que j'applique sur l'ouverture de mon formulaire d'entrée (version 2003);

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Initialisation()
 
    Dim SQL As String
    Dim SQL1 As String
 
    SQL = "DELETE [Ta_Table].* FROM [Ta_Table]"
    SQL1 = "INSERT INTO  SELECT [Table_Liée].*  FROM [Table_Liée] IN 'Chemin_de_la-Table_Liée.mdb'"
 
    DoCmd.RunSQL SQL
    DoCmd.RunSQL SQL1
 
End Function

J'espère que ça peut t'aider

Merci mais ca n'est pas du tout mon problème

En fait j'aimerais parvenir au même résultat que si je fais :
outils->utilitaire de base de données->gestionnaire des tables liées

Mêttre à jour sans l'intervention de l'utilisateur