Свойство Application.BrokenReference (Access)

Возвращает логическое значение, указывающее, содержит ли текущая база данных неработающие ссылки на базы данных или библиотеки типов. Значение True , если есть какие-либо неработающие ссылки. Только для чтения.

Синтаксис

expression. BrokenReference

выражение: переменная, представляющая объект Application.

Примечания

Чтобы проверить допустимость конкретной ссылки, используйте свойство IsBroken объекта Reference .

Пример

В этом примере проверяется, есть ли в текущей базе данных неработающие ссылки, и сообщается о результатах пользователю.

' Looping variable. 
Dim refLoop As Reference 
' Output variable. 
Dim strReport As String 
 
' Test whether there are broken references. 
If Application.BrokenReference = True Then 
 strReport = "The following references are broken:" & vbCr 
 
 ' Test validity of each reference. 
 For Each refLoop In Application.References 
 If refLoop.IsBroken = True Then 
 strReport = strReport & " " & refLoop.Name & vbCr 
 End If 
 Next refLoop 
Else 
 strReport = "All references in the current database are valid." 
End If 
 
' Display results. 
MsgBox strReport

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.