Discussion :

[idiot]

j'aimerais en vba trouver les bases qui sont lié a la principale. chemin+nom
merci!

[Invité]

Bonjour

Si j'ai bien compris, tu veux à partir de la base dorsale, connaitre toutes les bases qui sont branchées sur celle-ci. Est-ce-cela ?

[idiot]

Bonjour

Si j'ai bien compris, tu veux à partir de la base dorsale, connaitre toutes les bases qui sont branchées sur celle-ci. Est-ce-cela ?

exact!

[LedZeppII]

Bonjour,

regarde si l'exemple que j'ai posté ici fait l'affaire.

A+

[Invité]

Bonjour

Bonjour,

regarde si l'exemple que j'ai posté ici fait l'affaire.

A+

Je ne pense pas que cela fasse l'affaire, tu pars de la bas qui contient les tables liés.
Ce que veux idiot, c'est à partir de la base contenant les tables, connaitre les bases qui sont liés dessus.

@idiot : Je t'avoue que je coinces, j'aurais cependant une solution (cela reprend le code de LedZeppII dans ce cas), c'est de parcourir toutes les bases de ton serveur par du code, de les ouvrir et de lancer le code de LedZeppII.

[Gabout]

Bonjour,

Trouvé sur le web en cherchant autre chose, mais non testé :

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
'*************** Code Start **************
'
Function fGetLinkPath(strTable As String) As String
Dim dbs As Database, stPath As String
 
    Set dbs = CurrentDb()
    On Error Resume Next
    stPath = dbs.TableDefs(strTable).Connect
    If stPath = "" Then
        fGetLinkPath = vbNullString
        'can change this to currentdb.name
    Else
        fGetLinkPath = right(stPath, Len(stPath) _
                        - (InStr(1, stPath, "DATABASE=") + 8))
    End If
    Set dbs = Nothing
End Function
 
Sub sListPath()
    Dim loTd As TableDef
    CurrentDb.TableDefs.Refresh
    For Each loTd In CurrentDb.TableDefs
        Debug.Print fGetLinkPath(loTd.Name)
    Next loTd
    Set loTd = Nothing
End Sub
 
'*************** Code End **************

[idiot]

Starec, Je pense que j'ai mal compris ta première question et je n'y ai pas répondu correctement. Désolé d'avoir mit ton cerveau en ébullition c'est vraiment gentil. J'ai compris maintenant ta façon de voir et bien que ce n'est pas un besoin que j'ai en ce moment, c'est vraiment un sujet intéressant.

Merci à LedZeppII sont code me convient à 99%

[francishop]

Bonjour,

Si c'est en partant de la frontale :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
    Me.Form.RecordSource = "SELECT DISTINCT MSysObjects.Database," & _
    "MSysObjects.Type " & _
         "FROM MSysObjects " & _
         "WHERE (((MSysObjects.Type)=6));"
End Sub

On peut aussi imaginer en source d'une zone de liste :

Code :

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

1
2
3
SELECT MSysObjects.Name, MSysObjects.Database, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=6));

Cordialement.

Ps : Notre formulaire 2 champs avec pour source==>Database===>Type