次の方法で共有

Application.BrokenReference プロパティ (Access)

  • [アーティクル]

カレント データベースに、タイプ ライブラリへの無効な参照があるかどうかを示すブール型 ( Boolean ) の値を取得します。 無効な参照がある場合は True になります。 値の取得のみ可能です。

構文

式。BrokenReference

expressionApplication オブジェクトを 表す変数。

注釈

特定の参照が有効かどうかをテストするには、 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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。