Compartilhar via

Propriedade Property.Hered (DAO)

  • Artigo

Aplica-se ao: Access 2013, Office 2013

Retorna um valor que indica se um objeto Property foi herdado de um objeto base.

Sintaxe

expressão . Herdada

Expressão Uma variável que representa um objeto Property .

Comentários

Para objetos Property internos que representam propriedades predefinidas, o único valor de retorno possível é False.

Use a propriedade Inherited para determinar se Property definido pelo usuário foi criado para o objeto ao qual se aplica ou se Property foi herdado de outro objeto. Por exemplo, suponha que você criou um novo Property para o objeto QueryDef e depois abriu um objeto Recordset a partir de um objeto QueryDef. Esse novo Property fará parte da coleção Properties do objeto Recordset e sua propriedade Inherited será definida como True porque a propriedade foi criada a partir do objeto QueryDef e não do objeto Recordset.

Exemplo

Este exemplo usa a propriedade Inherited para determinar se um objeto Property definido pelo usuário foi criado para um Recordset ou para algum 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