'------------------------------------------------------------------------------------------
' FUNZIONE PER ESTRARRE LA LISTA DELLE REFERENZE NECESSARIE
' Alessandro Baraldi
'------------------------------------------------------------------------------------------
Option Compare Database
Option Explicit
Function ListeReferences()
   Dim accRef As Access.Reference
   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 Function
'------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------