CISA FotoGallery

Statistiche

Tot. visite contenuti : 928199
Home Articoli tecnici Moduli Elenco Referenze necessarie

Elenco Referenze necessarie

'-------------------------------------------------------------------------
'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