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

Примечание

Office 365 ProPlus переименован в Майкрософт 365 корпоративные приложения. Для получения дополнительной информации об этом изменении прочитайте этот блог.

Исходный номер статьи базы знаний:   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
    

    Примечание

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

Ссылки

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

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