Partage via

Propriété Application.BrokenReference (Access)

  • Article

Renvoie un type Boolean qui indique si la base de données active possède des références rompues vers des bases de données ou des bibliothèques de types. La valeur true s'il existe des références rompues. En lecture seule.

Syntaxe

expression. BrokenReference

expressionUne variable qui représente un objetApplication.

Remarques

Pour tester la validité d'une référence spécifique, utilisez la propriété IsBroken de l'objet Reference.

Exemple

Cet exemple permet de rechercher l'existence de références rompues dans la base de données active, puis de rapporter les résultats à l'utilisateur.

' 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.