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