Access 2013, tables liées, répertoire courant
UEMPTLise
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 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
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:
- Access 2013, tables liées, répertoire courant
- Word 2013 - Télécharger - Traitement de texte
- Excel 2013 - Télécharger - Tableur
- Powerpoint 2013 - Télécharger - Présentation
- Real football 2013 - Télécharger - Jeux vidéo
- Tables des matières word - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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