Application.BrokenReference (Access)

Returns a Boolean indicating whether the current database has any broken references to databases or type libraries. True if there are any broken references.

To test the validity of a specific reference, use the IsBroken property of the Reference object.

' 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