Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992145 visiteurs

 2 visiteurs en ligne

Lister les références cochées

Public Sub ListeReferences()
    Dim accRef As Access.Reference
    '/
    '/ Affiche les références actives dans la fenêtre de débogage
    '/
    For Each accRef In Application.References
        With accRef
            If (.IsBroken = False) Then
                Debug.Print .Name, .Guid, .FullPath
            Else
                Debug.Print .Guid
            End If
        End With
    Next accRef

End Sub


Catégorie : Les mémos - Administration
Page lue 5895 fois