Discussion :

[Crachover]

Bonjour,

Est-il possible d'avoir un code qui pourrait permettre à l'utilisateur de changer le lien des tables liées sans passer par le gestionnaire des tables liées du menu Access 2007?

Est-il possible de mettre à jour automatiquement les liens par rapport à l'endroit ou l'on se trouve, en se disant par exemple que les Base de données se trouvent toujours dans le même répertoire...

Merci d'avance pour votre aide :-)

[ilank]

Bonjour,

Une piste :
Crée un nouveau module et copie ce code

Code :

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

1
2
3
4
Public Function SetCurDir()
 ChDrive(Left(CurrentProject.Path,2))
 ChDir(CurrentProject.Path & "\")
End function

Maintenant crée une nouvelle macro que tu enregistreras sous le nom AutoExec
Dans cette macro Choisis l'action ExécuterCode dans la zone Nom de la Fonction écris SetCurDir().
Maintenant, puisque les deux bases de données se trouvent dans le même répertoire; ta requête peut maintenant s'écrire

Code :

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

1
2
3
4
INSERT INTO Table2
 SELECT .... 
 FROM Table1 IN 'Base une.mdb' 
 WHERE ....

Tant que les deux bases sont dans le même répertoire,

[Crachover]

Merci, je test

[Crachover]

Lorsque je lance ma base de données, maintenant j'ai un message d'erreur qui dit :

Erreur de compilation
Sub ou Function non définie sur ChgDrive

[Crachover]

J'ai trouvé !!!!!!!!

J'ai trouvé le moyen qu'il vérifie au démarrage si les tables liées sont accessibles, si non, une fenêtre s'ouvre et demande le nouveau chemin... cool

Pour un exemple : il suffit de demander... :-)

[ilank]

Effectivement, j'ai placé des "g" en trop c'est corrigé.(voir plus haut)