TopPicLogo TopPicText

Библиотечные Ссылки (Referenses) - Удаление всех не обязательных библиотечных ссылок

... в файлах MDB используемых только под данные, например.

Private Sub DelAllReferences()
'es 20.10.2012
'Удаление всех не обязательных библиотечных ссылок
'В данном варианте: Ссылку на "DAO" - ОСТАВЛЯЕМ!
'     - Путь: C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll
'     - Встроенная: False
'--------------------------------------------------------------------------
Dim objRef As Reference
    
    For Each objRef In References
        If objRef.BuiltIn = False Then 'Если не обязательна
            If objRef.Name <> "DAO" Then  'Ссылку на "DAO" - ОСТАВЛЯЕМ!
                References.Remove objRef   'Удаляем ...
           End If
       End If
    Next objRef
    Set objRef = Nothing

End Sub

Предупреждаю:
Тем, кто не совсем хорошо понимает, что делает - ПОЛЬЗОВАТЬСЯ КРАЙНЕ НЕ РЕКОМЕНДУЕТСЯ!

Назад ToTop
L.E. 23.05.2016
Рейтинг@Mail.ru