Циклическое просмотр ссылок для просмотра их свойств в Microsoft Access

Исходный номер базы знаний: 209849

Сводка

Когда вы просматриваете расположение ссылок в диалоговом окне Ссылки в меню Сервис, конечная часть имени пути может быть усечена из-за ограничений диалогового окна. В этой статье показано, как использовать процедуру Visual Basic для приложений для циклического просмотра коллекции References и получения свойств каждой ссылки.

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена.

Дополнительная информация

Чтобы выполнить цикл по коллекции References и получить свойства каждой ссылки, выполните следующие действия.

1. Создайте модуль и введите следующую строку в разделе Объявления, если его еще нет:

   Option Explicit
   

2. Введите следующую процедуру:

   Function ReferenceInfo()
   
       Dim strMessage  As String
       Dim strTitle    As String
       Dim refItem     As Reference
   
       On Error Resume Next
   
       For Each refItem In References
           If refItem.IsBroken Then
               strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
           Else
               strMessage = "Reference: " & refItem.Name & vbCrLf _
                          & "Location: " & refItem.FullPath & vbCrLf
           End If
           Debug.Print strMessage
       Next refItem
   
   End Function
   

3. Чтобы протестировать эту функцию, введите следующую строку в окне Интерпретация и нажмите клавишу ВВОД:

   ? ReferenceInfo
   

   Примечание.

   Каждая ссылка отображается в окне Интерпретация.

Ссылки

Для получения дополнительных сведений о коллекции Ссылок в Редактор Visual Basic щелкните Справка Microsoft Visual Basic в меню Справка, введите объект reference в помощнике office или мастере ответов, а затем нажмите кнопку Поиск, чтобы просмотреть раздел.

Дополнительные сведения о перечислении через коллекцию References с помощью параметра For Each... Далее в Редактор Visual Basic щелкните Справка Microsoft Visual Basic в меню Справка, введите далее в помощнике Office или мастере ответов, а затем нажмите кнопку Поиск, чтобы просмотреть раздел.