Partager via

Property.Inherited property (DAO)

  • Article

S’applique à : Access 2013, Office 2013

Renvoie une valeur qui indique si un objet Property est hérité d'un objet sous-jacent.

Syntaxe

expression . Hérité

Expression Variable qui représente un objet Property .

Remarques

Pour les objets Property intégrés qui représentent des propriétés prédéfinies, la seule valeur de retour possible est False.

La propriété Inherited permet de déterminer si un objet Property défini par l'utilisateur a été créé pour l'objet auquel il s'applique ou si l'objet Property a été hérité d'un autre objet. Par exemple, supposons que vous créez un nouvel objet Property pour un objet QueryDef et que vous ouvrez ensuite un objet Recordset à partir de l'objet QueryDef. Ce nouvel objet Property fait partie de la collection Properties de l'objet Recordset et sa propriété Inherited est définie sur True car la propriété a été créée pour l'objet QueryDef et non pour l'objet Recordset.

Exemple

Cet exemple utilise la propriété Inherited pour déterminer si un objet Property défini par l'utilisateur a été créé pour un objet Recordset ou pour un autre objet sous-jacent.

Sub InheritedX() 
 
 Dim dbsNorthwind As Database 
 Dim tdfTest As TableDef 
 Dim rstTest As Recordset 
 Dim prpNew As Property 
 Dim prpLoop As Property 
 
 ' Create a new property for a saved TableDef object, then 
 ' open a recordset from that TableDef object. 
 Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
 Set tdfTest = dbsNorthwind.TableDefs(0) 
 Set prpNew = tdfTest.CreateProperty("NewProperty", _ 
 dbBoolean, True) 
 tdfTest.Properties.Append prpNew 
 Set rstTest = tdfTest.OpenRecordset(dbOpenForwardOnly) 
 
 ' Show Name and Inherited property of the new Property 
 ' object in the TableDef. 
 Debug.Print "NewProperty of " & tdfTest.Name & _ 
 " TableDef:" 
 Debug.Print " Inherited = " & _ 
 tdfTest.Properties("NewProperty").Inherited 
 
 ' Show Name and Inherited property of the new Property 
 ' object in the Recordset. 
 Debug.Print "NewProperty of " & rstTest.Name & _ 
 " Recordset:" 
 Debug.Print " Inherited = " & _ 
 rstTest.Properties("NewProperty").Inherited 
 
 ' Delete new TableDef because this is a demonstration. 
 tdfTest.Properties.Delete prpNew.Name 
 dbsNorthwind.Close 
 
End Sub