Compartir vía

Propiedad Application.BrokenReference (Access)

  • Artículo

Devuelve un valor Boolean que indica si la base de datos activa tiene alguna referencia rota a bases de datos o bibliotecas de tipos. True si hay alguna referencia rota. Solo lectura.

Sintaxis

expresión. BrokenReference

expresión Variable que representa un objeto Application.

Comentarios

Para comprobar la validez de una referencia específica, utilice la IsBroken del objeto Reference

Ejemplo:

Este ejemplo comprueba si hay alguna referencia rota en la base de datos activa e informa sobre los resultados al usuario.

' 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.