Freigeben über

Property.Inherited-Eigenschaft (DAO)

  • Artikel

Gilt für: Access 2013, Office 2013

Gibt einen Wert zurück, der angibt, ob ein Property -Objekt von einem zugrunde liegenden Objekt geerbt wurde.

Syntax

Ausdruck . Geerbt

Ausdruck Eine Variable, die ein Property-Objekt darstellt.

Hinweise

Bei integrierten Property-Objekten, die vordefinierte Eigenschaften darstellen, kann nur False zurückgegeben werden.

Mit der Inherited-Eigenschaft können Sie feststellen, ob für ein bestimmtes Objekt ein benutzerdefiniertes Property-Objekt erstellt wurde, oder ob das Property-Objekt von einem anderen Objekt geerbt wurde. Beispiel: Sie erstellen ein neues Property-Objekt für ein QueryDef-Objekt und öffnen dann über das QueryDef-Objekt ein Recordset-Objekt. Dieses neue Property-Objekt ist Teil der Properties-Auflistung des Recordset-Objekts, und seine Inherited-Eigenschaft erhält den Wert True, da die Eigenschaft für das QueryDef-Objekt erstellt wurde und nicht für das Recordset-Objekt.

Beispiel

In diesem Beispiel wird die Inherited-Eigenschaft verwendet, um festzustellen, ob ein benutzerdefiniertes Property-Objekt für ein Recordset-Objekt erstellt wurde oder für ein anderes zugrunde liegendes Objekt.

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