Access VBA教程:BrokenReference属性

返回一个 Boolean 值,表明当前数据库是否包含任何对数据库或类型库的损坏的引用。如果为 True,则有损坏的引用。只读。

expression.BrokenReference

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

若要试用特定引用的有效性,请使用Reference对象的IsBroken属性。

示例

该示例检查当前数据库中是否有任何已损坏的引用,并向用户报告结果。


' 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

上页:Access VBA教程:BoundColumn属性 下页:Access VBA教程:Build属性

Access VBA教程:BrokenReference属性

Access VBA教程:Build属性 Access VBA教程:BuiltIn属性
Access VBA教程:Cancel属性 Access VBA教程:CanGrow属性
Access VBA教程:CanShrink属性 Access VBA教程:Caption属性
Access VBA教程:ChartSpace属性 Access VBA教程:CheckIfOfficeIsHTMLEditor属性
Access VBA教程:Class属性 Access VBA教程:CloseButton属性
Access VBA教程:CodeContextObject属性 Access VBA教程:CodeData属性
Access VBA教程:CodeProject属性 Access VBA教程:Collection属性
Access VBA教程:ColorMode属性 Access VBA教程:Column属性
Access VBA教程:ColumnCount属性 Access VBA教程:ColumnHeadings属性
Access VBA教程:ColumnHeads属性 Access VBA教程:ColumnHidden属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号