Das folgende Beispiel überprüft, ob in der aktuellen Datenbank getrennte _
  Verweise vorhanden sind, und meldet das Ergebnis dem Benutzer.
 
' 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

Gru?
SR