Access VBA教程:Object属性

Object属性提供有关包含在“数据库”窗口中对象的一般信息。

注意   在Microsoft Access 数据库 (.mdb) 中,Object属性对所有对象均可用,而在Access 项目 (.adp) 中,Object属性仅对窗体、数据访问页、宏、模块和报表可用。

设置

可以使用以下方式来查看 Object属性,并设置 Description 或 Attributes属性。

也可以通过使用Visual Basic 来指定或确定 Access 数据库(.mdb) 中 Object属性。Access 项目(.adp) 的 Object属性对 Visual Basic 不可用。

注意   只可以输入或编辑 Description 和 Attributes属性,其他 Object属性由 Microsoft Access 设置并且是只读的。

说明

在“数据库”窗口中能显示属性的对象有:表、查询、窗体、数据访问页、报表、宏及模块。数据库中每一对象类别由 DAO Containers集合中单独的 DAO Document对象所代表。例如, Containers集合中包含一个代表数据库中所有窗体的 Document对象。

在“数据库”窗口中可以使用下列 Object属性:

属性 说明
Name 对象的名称和对象的Name属性所包含的设置。
Type 对象的类型。Microsoft Access对象类型有:窗体、数据访问页、宏、模块、查询、报表及表。
Description 对象的说明。其设置与对象的Description属性设置相同。也可以在对象的属性表中设置对象的 Description属性。如果单击“视图” 菜单的“详细信息”,对象的说明将显示在“数据库”窗口中的对象名称旁。
Created 对象的创建日期。对于表和查询,该属性与 DateCreated属性相同。
Modified 对象的最后修改日期。对于表和查询,该属性与 LastUpdated属性相同。
Owner 对象的所有者。有关详细信息,请参阅 Owner属性。
Attributes 该属性指定对象是隐藏还是可见,以及对象是否能在数据库副本中进行同步复制。

如果将 Hidden属性设为 True(选中“隐藏”复选框),对象将不会在“数据库”窗口中显示。若要显示“数据库”窗口中隐藏的对象,请单击“工具”菜单的“选项”,接着单击“视图”选项卡,然后选中“隐藏对象”复选框。在“数据库”窗口中,隐藏对象的图标将以变暗的颜色显示。也可以关闭 Hidden属性,使对象在“数据库”窗口中可见。


示例

下面的示例使用 PrintObjectProperties 子例程将对象的 Object属性值打印到“调试”窗口中。子例程需要对象类型和对象名称作为参数。


Dim strObjectType As String
Dim strObjectName As String
Dim strMsg As String
strMsg = "Enter object type (e.g., Forms, Scripts, " _
    & "Modules, Reports, Tables)."
' Get object type.
strObjectType = InputBox(strMsg)
strMsg = "Enter the name of a form, macro, module, " _
    & "query, report, or table."
' Get object name from user.
strObjectName = InputBox(strMsg)
' Pass object type and object name to
' PrintObjectProperties subroutine.
PrintObjectProperties strObjectType, strObjectName
Sub PrintObjectProperties(strObjectType As String, strObjectName _
    As String)
Dim dbs As Database, ctr As Container, doc As Document
Dim intI As Integer
Dim strTabChar As String
Dim prp As DAO.Property
Set dbs = CurrentDb
strTabChar = vbTab
' Set Container object variable.
Set ctr = dbs.Containers(strObjectType)
' Set Document object variable.
Set doc = ctr.Documents(strObjectName)
doc.Properties.Refresh
' Print the object name to Debug window.
Debug.Print doc.Name
' Print each Object property to Debug window.
For Each prp in doc.Properties
    Debug.Print strTabChar & prp.Name & " = " & prp.Value
Next
End Sub

上页:Access VBA教程:ObjectPalette属性 下页:Access VBA教程:ObjectVerbs属性

Access VBA教程:Object属性

Access VBA教程:ObjectVerbs属性 Access VBA教程:ObjectVerbsCount属性
Access VBA教程:ODBCConnectStr属性 Access VBA教程:OldBorderStyle属性
Access VBA教程:OldValue属性 Access VBA教程:OLEClass属性
Access VBA教程:OLEData属性 Access VBA教程:OLEType属性
Access VBA教程:OLETypeAllowed属性 Access VBA教程:OnActivate属性
Access VBA教程:OnApplyFilter属性 Access VBA教程:OnChange属性
Access VBA教程:OnClick属性 Access VBA教程:OnClose属性
Access VBA教程:OnConnect属性 Access VBA教程:OnCurrent属性
Access VBA教程:OnDblClick属性 Access VBA教程:OnDeactivate属性
Access VBA教程:OnDelete属性 Access VBA教程:OnDirty属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号