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

Fermé
UEMPTLise - 27 janv. 2019 à 23:51
yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 - 30 janv. 2019 à 00:33
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
A voir également:

1 réponse

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
30 janv. 2019 à 00:33
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