Compartir a través de

Propiedad Property.Inherited (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

Devuelve un valor que indica si se hereda un objeto Property desde un objeto base.

Sintaxis

expresión . Heredado

Expresión Variable que representa un objeto Property .

Comentarios

Para objetos Property integrados que representan propiedades predefinidas, el único valor devuelto posible es False.

Puede utilizar la propiedad Inherited para determinar si una propiedad Property definida por el usuario se creó para el objeto al que se aplica, o si la Property se heredó desde otro objeto. Por ejemplo, suponga que crea una nueva Property para un objeto QueryDef y después abre un objeto Recordset desde el objeto QueryDef. Esta nueva Property será parte de la colección Properties de los objetos Recordset y su propiedad Inherited se establecerá en True debido a que la propiedad se creó para el objeto QueryDef y no para el objeto Recordset.

Ejemplo

En este ejemplo se usa la propiedad Inherited para determinar si un objeto Property definido por el usuario se creó para un objeto Recordset o para algún objeto base.

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