Поделиться через

Свойство Property.Inherited (DAO)

  • Статья

Область применения: Access 2013, Office 2013

Возвращает значение, указывающее, наследуется ли объект Property от базового объекта.

Синтаксис

expression . Унаследовал

Выражение Переменная, представляющая объект Property .

Замечания

Для встроенных объектов Property , представляющих предопределенные свойства, единственным возможным возвращаемым значением является False.

Свойство Наследуется , чтобы определить, было ли создано определяемое пользователем свойство для объекта, к которому оно применяется, или свойство было унаследовано от другого объекта. Например, предположим, что вы создаете новое свойство для объекта QueryDef , а затем открываете объект Recordset из объекта QueryDef . Это новое свойство будет частью коллекции Свойств объекта Recordset, а его свойство Inherited будет иметь значение True, так как свойство было создано для объекта QueryDef, а не для объекта Recordset.

Пример

В этом примере свойство Inherited используется для определения того, был ли создан определяемый пользователем объект Property для объекта Recordset или для какого-либо базового объекта.

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