MyTetra Share
Делитесь знаниями!
Библиотечные Ссылки (Referenses) - Удаление всех не обязательных библиотечных ссылок
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 10 Приложение MSA

Библиотечные Ссылки (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




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

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования