Discussion :

[Frantisch]

Bonjour,

Lorsque j'ouvre une base frontale qui ouvre automatiquement un formulaire, une erreur se produit disant que la base dorsale est introuvable.
C'est tout à fait normal puisque j'ai déplacé cette dernière.
Je sais rétablir les liens en VBA, ce n'est pas là le problème.

Mes questions :
Quand et où peut-on exécuter un test de validité des liens vers les tables liées sans provoquer d'erreur en VBA ?
Est-il possible de faire apparaître la boîte de dialogue d'access "Gestionnaire de tables liées" automatiquement ?

Merci,
Frantisch

[RobiPMS]

Bonjour.
Sujet maintes fois abordé dans le forum. Il y a ici un excellent tuto : http://jdgayot.developpez.com/tutori...cess/liaisons/
L'intégration dans l'appli frontale d'une solution de gestion des tables liées est de loin la meilleure solution. Et toutes les possibilités sont décrites dans ce tuto.
Cordialement

[Frantisch]

Merci pour la rapidité de la réponse !

J'ai vu cet article...
Bien lourd comme solution !
Je cherche une solution basée sur un événement qui se produirait au niveau d'Access avant même la tentative d'ouverture d'un formulaire...
Un événement qui donnerait accès à une fonction du genre "Main", notion qui existe dans pas mal d'environnements de développement !

Encore merci,
Frantisch

[Frantisch]

Ok, résolu !

Dans mon cas, l'utilisation d'une macro AutoExec qui fait appel à une fonction de test dans un module VBA a finalement résolu mon problème !
Rappel : Si le nom d'une macro est AutoExec, elle est exécutée à l'ouverture du fichier de la bd.



Et le contenu du module 'Start' :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Option Compare Database
Option Explicit
 
 
Public Function VérifieLiens()
 
    Dim sMsg      As String
    Dim sFichier  As String
 
    On Error GoTo GestErreur
 
    ' Récupère le nom du fichier de la BD à partir des propriétés
    ' d'une table connue.
    sFichier = Mid(CurrentDb.TableDefs("T_Outils").Connect, 11)
 
    ' Si le fichier de la BD n'existe pas...
    If Dir(sFichier) = "" Then
        ' Construction d'un message expliquant la suite des opérations
        sMsg = "Le chemin des données n'est plus valide." & vbCr & vbCr & _
               "La boîte de dialogue qui va s'afficher permet" & vbCr & _
               "la correction de ce problème." & vbCr & vbCr & _
               "Pour se faire, sélectionnez toutes les cases à cocher" & vbCr & _
               "de la liste, et cliquez sur OK." & vbCr & _
               "Choisissez ensuite le chemin où se situe le fichier" & vbCr & _
               "Out_Resa-Dorsale.accdb"
        ' Information à l'utilisateur
        MsgBox sMsg, vbOKOnly + vbInformation
        ' Ouverture de la fenêtre d'Access "Gestionnaire des tables liées"
        DoCmd.RunCommand acCmdLinkedTableManager
 
    End If
 
GestErreur:
    If Err.Number <> 0 Then
        MsgBox "Error: " & Err.Number & "  " & Err.Description, vbOKOnly, "VérifieLiens"
    End If
 
End Function

a+
Frantisch