ник: palarm
В mdb прокатит такое цепляние в референцах
Function ReferenceFromFile(strFileName As String) As Boolean
On Error Resume Next
Dim ref As Reference
' Создает новую ссылку.
Set ref = References.AddFromFile(strFileName)
ReferenceFromFile = True
End Function
|