Propriedade Application.BrokenReference (Access)

Retorna um Boolean indicando se o banco de dados atual tem referências interrompidas aos bancos de dados ou bibliotecas de tipos. True se há referências interrompidas. Somente leitura.

Sintaxe

expressão. BrokenReference

expressão Uma variável que representa um Aplicativo objeto.

Comentários

Para testar a validade de uma referência específica, use a propriedade IsBroken do objeto Reference.

Exemplo

Este exemplo verifica se há referências interrompidas no banco de dados atual e informa os resultados ao usuário.

' 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.