Обращение к объекту References во внешнем проэкте

Есть db1.mdb и dblib.mdb; dblib.mdb является библиотечной базой, на нее установлена ссылка в db1.mdb

код в db1.mdb
Application.References
возвращает ссылки установленные в db1.mdb

как получить доступ к объекту References в dblib.mdb ?

Открыть эту либу (из основного приложения) и выполнить в ней обращение к своим рефам

в dblib.mdb

Public Property Get refs() As References
Set refs = Application.References
End Property

при вызове из db1.mdb все равно возвращает References основного(db1.mdb) приложения

Открыть файл библиотеки dblib.mdb как приложение акцесс из основного приложения db1.mdb
Обратиться к функции в блиотеки через созданное приложение
С возвратом результата не подскажу, например (если это не объект а значение) сохранить в таблице библиотеки, тогда можно достать из основного

Использовать VBE.VBProjects("ИмяПроекта").References

Иллюстрация того, что рекомендовал ILL HEAD

Sub readRefer(biblBase)
    Dim app As Application, ref As Reference
    Set app = CreateObject("access.application")
    With app
        .OpenCurrentDatabase biblBase
        For Each ref In .References
            Debug.Print ref.Name, ref.Guid
        Next
    End With
    Set app = Nothing
End Sub

Serge Gavrilov

Использовать VBE.VBProjects("ИмяПроекта").References

Dim rfs As References

set rfs =VBE.VBProjects("dblib").References

выдает
Run-time error 13 Type mismatch (несоответствие типов)

Sub s()
Dim app As New Access.Application
  app.OpenCurrentDatabase "C:\testdel.mdb"
  Debug.Print app.References.Count
  Set app = Nothing
Debug.Print VBE.VBProjects("C:\testdel.mdb").References.Count
End Sub

Sub s()
Dim app As New Access.Application
  app.OpenCurrentDatabase "C:\test.mdb"
  Debug.Print app.References.Count ' это работает
  Set app = Nothing
  Debug.Print VBE.VBProjects("C:\test.mdb").References.Count ' это дает ошибку runtime error 9 'out of range'
End Sub

?

mds_world,

ага, чтото я про "функцию" загнул :)