The References property returns the set of references in a project. It is an accessor property (that is, a property that returns an object of the same type as the property name).
Sub Get_References_in_Project()
Dim i1
For i1 = 1 To Application.VBE.ActiveVBProject.References.Count
' Get the Name of the Reference
RefName = Application.VBE.ActiveVBProject.References(i1).name
' Get the Description of Reference
RefDesc = Application.VBE.ActiveVBProject.References(i1).Description
'Returns a Boolean value indicating whether or not the Reference object points to a valid reference in the registry. Read-only.
If Application.VBE.ActiveVBProject.References(i1).IsBroken = True Then
RefBroken = True
End If
Next i1
End Sub
Is there a way to do this same thing (or check for a specific reference) using a DAO.Database object?
ReplyDeleteI'm trying to loop through a list of almost 1000 databases and identify those with a specific reference library. In order to use the application.VBE... functionality I've found that the database has to be open in the database window (application.OpenCurrentDb()) which also fires all start up forms/autoexec.
I also need to pass in Passwords for various databases.