Freigeben über

Application.BrokenReference-Eigenschaft (Access)

  • Artikel

Gibt einen Wert vom Typ Boolean zurück, der angibt, ob die aktuelle Datenbank fehlerhafte Verweise auf Datenbanken oder Typbibliotheken aufweist. True , wenn fehlerhafte Verweise vorhanden sind. Schreibgeschützt.

Syntax

Ausdruck. BrokenReference

expression Eine Variable, die ein Application-Objekt darstellt.

Bemerkungen

Verwenden Sie die IsBroken-Eigenschaft des Reference-Objekts, um die Gültigkeit eines bestimmten Verweises zu testen.

Beispiel

Im folgenden Beispiel wird überprüft, ob in der aktuellen Datenbank getrennte Verweise vorhanden sind, und das Ergebnis wird dem Benutzer angezeigt.

' 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.