Discussion :

[basto]

Bonjour,

j'utilise une base de données divisées en deux :
* 1 .Mdb pour les données
* 1 autre pour les requêtes et formulaires

J'ai mis en place des tables liées entre les deux fichiers.

Mon soucis vient du fait que je change d'environnement régulièrement et que par le fait mon lien entre mes données et mes formulaire n'est plus le même :
* 1 fois c'est sous c:\.....
* 1 autre fois sur un répertoire réseau

Est il possible de détecter à l'ouverture le fait que le lien est KO et demander à l'utilisateur d'indiquer le bon répertoire. Ou mieux encore, comme les deux fichiers sont au même endroit, récupérer le path du fichier formulaire et dire que les tables liées sont dans ce même path.

L'enjeu majeur est de ne pas avoir à cliquer sur XXXX fenêtres pour lui dire que je comprend son désarroi de ne pas trouver les fichiers...

Merci pour votre aide si précieuse

A+

[Frank]

Merci de lire la FAQ

[basto]

Merci

les infos fournies dans la FAQ me permettent d'envisager mon bout de code.

Mais en complément, est il possible de savoir si le lien est OK ou pas?
Est il possible de capter un evenement qui dit que c'est pas bon?

C'est la cerise sur le gateau mais j'aime quand les choses sont clean.... et recréer les liens systématiquement, je trouve celà un peu lourd....

A+

[mooh91]

Salut Basto,

J'ai posté le même type de question. Je t'invite à lire ce post :

http://www.developpez.net/forums/sho...d.php?t=308971

Cordialement,

[helas]

Il suffit d'interroger la table, si elle répond, la liaison est établie sinon la liaison est coupée.

Code :

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

1
2
 
If Not TestLiaison("MaTableLiee") then MsgBox("Liaison OK") Else MsgBox("Liaison HS")

Code :

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

1
2
3
4
5
6
7
8
 
Function TestLiaison(NomTable As String) As Long
 On Error GoTo erreur
 TestLiaison = DCount("*", NomTable)
 Exit Function
erreur:
 TestLiaison = -1
End Function