Access 2013, tables liées, répertoire courant

UEMPTLise -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je cherche une solution pour le gestionnaire des tables liées. En effet, je travaille parfois sur un poste fixe et parfois sur le réseau.

Comme la modification des macros et des modules est trop long sur le réseau, je mets la Base de données et les tables sur mon poste. Mais je dois à chaque fois refaire les liens du gestionnaire des tables liées. Alors, est-ce qu'il y a un moyen rapide de modifier les liens? Est-ce qu'il y a une procédure VBA que je pourrais utiliser?

Merci à l'avance de votre aide

1 réponse

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, source d'inspiration:
    Public Sub Fix_Table_Locations()
        Dim tbl As TableDef, db As Database, strConnect As String
    
        Set db = CurrentDb
    
        For Each tbl In db.TableDefs
            If InStr(tbl.Connect, "Portion of connect string to change") > 0 Then
                tbl.Connect = Replace(tbl.Connect, "Portion of connect string to change", "New portion of connect string")
                tbl.RefreshLink
            End If
        Next
    End Sub
    0