Discussion :

[Keuf95]

Bonjour,
J'ai 2 bases :

Base Frontale

Base Dorsale

La base dorsale est sauvegardée tous les mois :

200601_maBase

200602_maBase

200603_maBase

Je voudrai modifier le lien en VBA de mes tables liées afin de pouvoir me connecter sur les bases archivées.
Je crois avoir déjà lu quelque chose sur le sujet mais n'arrive pas à remettre la main dessus.
Merci.

[Petogaz]

salut,

une piste http://access.developpez.com/faq/?pa...#RetablLienTbl

[Keuf95]

Je suis parti de là mais avec une différence c'est que je ne souhaite pas mettre à jour les attaches à partir de la liste des tables de ma base dorsale mais à partir des tables déjà liées dans ma base frontale.
Comme la valeur du lien est en lecture seule je liste les tables dans un tableau je supprime les tables puis je refais le lien sur la nouvelle base .

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
Private Sub btn_LienTable_Click()
Dim chemin As String
Dim BD As DAO.Database
Set BD = CurrentDb
Dim tb As DAO.TableDef
Dim rst As DAO.Recordset
   'On ouvre un curseur sur la table
    Set rst = CurrentDb.OpenRecordset("SELECT valeur from _SystemMaitre where type = 'CheminBaseData'")
    chemin = rst("valeur")
 
 
For Each tb In BD.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
        If Len(tb.Connect) > 0 Then
            DoCmd.RunSQL "DROP TABLE [" & tb.Name & "] ;"
            DoCmd.TransferDatabase acLink, "Microsoft Access", chemin & Me.lst_Fichier.Value, acTable, tb.Name, tb.Name, False
        End If
    End If
Next tb

[Muhad'hib]

Salut,

Connect, propriété

Définit ou renvoie une valeur fournissant des informations sur la source d'une connexion ou d'une base de données ouvertes, d'une base de données utilisée dans une requête directe ou d'une table liée. Avec les objets Database, les nouveaux objets Connection, les tables liées et les TableDef n'ayant pas encore été ajoutés à une collection, cette propriété est en lecture/écriture. Avec les objets QueryDef et les tables de base, cette propriété est en lecture seule.

Si tes tables sont des tables liées tu peux éditer la valeur de connect.

=>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
...
 
For Each tb In BD.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
        If Len(tb.Connect) > 0 Then
            tb.connect = ";DATABASE=" & chemin & Me.lst_Fichier.Value
        End If
    End If
Next tb
...

Comme indiqué dans la FAQ en fait

A+

[Keuf95]

Merci,
Je préfère ceci à ma méthode qui passait par un DROP de table.

[Keuf95]

J'ai testé ce code je n'ai pas de message d'erreur à l'execution mais les liens ne se font pas sur la nouvelle base dorsale.

J'ai vérifié les valeurs (debug print) des mes variables :
chemin et Me.lst_Fichier.Value
celles-ci sont correctes et font bien référence à la nouvelle base dorsale sur laquelle je veux me connecter.

[Muhad'hib]

Re,




Et en faisant un debug.print de connect ça te donne le nouveau ou l'ancien lien ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
...
 
For Each tb In BD.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
        If Len(tb.Connect) > 0 Then
            tb.connect = ";DATABASE=" & chemin & Me.lst_Fichier.Value
            debug.print tb.connect
        End If
    End If
Next tb
...

A+

[Keuf95]

Et en faisant un debug.print de connect ça te donne le nouveau ou l'ancien lien ?

ça me donne le nouveau lien.


Mais les liens sont inchangés.
Je le vérifie avec la requête suivante :

Code :

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

1
2
3
SELECT MSysObjects.Name, MSysObjects.ForeignName, MSysObjects.Database
FROM MSysObjects
WHERE (((MSysObjects.Type)=6));

[Muhad'hib]

Oupsss

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12

For Each tb In BD.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
        If Len(tb.Connect) > 0 Then
            tb.connect = ";DATABASE=" & chemin & Me.lst_Fichier.Value
            tb.RefreshLink
        End If
    End If
Next tb

Tdf.RefreshLink

encore

A+