Discussion :

[lbar012001]

Bonjour,
J'ai une application type frontale/dorsale avec tables liées.
A l'ouverture de la frontale, on contrôle si la liaison vers la dorsale est OK.
Si pas OK, j'ouvre une boite de dialogue demandant à l'utilisateur de sélectionner une dorsale.
Je cherche à récupérer le chemin+nom de la dorsale, une fois la liaison établie car elle a pu changer et j'ai besoin de stocker cette valeur dans un champ.
Merci si vous savez,
Laurent

[nico84]

Bonjour,

Comme il peut y avoir plusieurs dorsales tu peux demander où se trouve une table :

Code :

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

msgbox CurrentDb.TableDefs("MaTable").connect

[LedZeppII]

Bonjour,

Un exemple de fonction prenant en argument le nom d'une table liée, et renvoyant la base liée (Chemin+Nom) :

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
Function GetLinkedDB(strLinkedTable As String) As String
Dim strConn As String, strSceDBPathName As String
Dim db As DAO.Database, tdef As DAO.TableDef
Dim p1 As Long, p2 As Long
 
Set db = CurrentDb
Set tdef = db.TableDefs(strLinkedTable)
If (tdef.Attributes And dbAttachedTable) = dbAttachedTable Then
   strConn = tdef.Connect
   ' Le nom complet de la base de données source commence
   ' après "DATABASE="
   p1 = InStr(1, strConn, "DATABASE=", vbTextCompare)
   If p1 > 0 Then
      p2 = InStr(p1, strConn, ";")
      ' Il se termine au premier point-virgule (;) suivant
      ' ou à la fin de la chaîne de connexion
      If p2 = 0 Then p2 = Len(strConn) + 1
      strSceDBPathName = Mid(strConn, p1 + 9, p2 - p1 - 9)
      GetLinkedDB = strSceDBPathName
   End If
End If
End Function

A+