检查当前数据库中是否有任何已损坏的引用

时　间:2008-07-04 22:47:01
作　者:李寻欢   ID：2712  城市：深圳
摘　要:检查当前数据库中是否有任何已损坏的引用函数
正　文:

Public Function strReport() As String
Dim refLoop As Reference
' 测试是否有损坏的引用
If Application.BrokenReference = True Then
    strReport = "The following references are broken:" & vbCr

    ' 循环检查每个引用
    For Each refLoop In Application.References
        If refLoop.IsBroken = True Then
            strReport = strReport & "    " & refLoop.Name & vbCr
        End If
    Next refLoop
End If
End Function