Type 属性

expandtri全部显示

blueup应用于 AccessObject 对象的 Type 属性。

返回 AccessObject 对象类型的值。AcObjectType 型,只读。

AcObjectType 可以是下列 AcObjectType 常量之一:

acDataAccessPage

acDefault

acDiagram

acForm

acFunction

acMacro

acModule

acQuery

acReport

acServerView

acStoredProcedure

acTable

expression.Type

expression     必需。返回 AccessObject 对象的表达式。

blueup应用于 FormCondition 对象的 Type 属性。

返回 FormatCondition 对象类型的值。AcFormatConditionType 型,只读。

AcFormatConditionType 可以是下列 AcFormatConditionType 常量之一:

acExpression

acFieldHasFocus

acFieldValue

expression.Type

expression     必需。返回 FormatCondition 对象的表达式。

blueup应用于 Module 对象的 Type 属性。

指明一个模块是标准模块还是类模块AcModuleType,只读。

AcModuleType 可以是下列 AcModuleType 常量之一:

acClassModule

acStandardModule

expression.Type

expression     必需。返回 Module 对象的表达式。

示例

blueup应用于 Module 对象的 Type 属性。

下面的示例确定 Module 对象代表的是标准模块还是类模块:

Function CheckModuleType(strModuleName As String) As Integer

   Dim mdl As Module

   ' Open module to include in Modules collection.

   DoCmd.OpenModule strModuleName

   ' Return reference to Module object.

   Set mdl = Modules(strModuleName)

   ' Check Type property.

   If mdl.Type = acClassModule Then

       ' Insert comment.

       mdl.InsertLines 1, "' Class module."

       CheckModuleType = acClassModule

   Else

       ' Insert comment.

       mdl.InsertLines 1, "' Standard module."

       CheckModuleType = acStandardModule

   End If

End Function