Type 属性
内容
返回 AccessObject 对象类型的值。AcObjectType 型，只读。
AcObjectType 可以是下列 AcObjectType 常量之一： |
acDataAccessPage |
acDefault |
acDiagram |
acForm |
acFunction |
acMacro |
acModule |
acQuery |
acReport |
acServerView |
acStoredProcedure |
acTable |
expression.Type
expression 必需。返回 AccessObject 对象的表达式。
应用于 FormCondition 对象的 Type 属性。
返回 FormatCondition 对象类型的值。AcFormatConditionType 型，只读。
AcFormatConditionType 可以是下列 AcFormatConditionType 常量之一： |
acExpression |
acFieldHasFocus |
acFieldValue |
expression.Type
expression 必需。返回 FormatCondition 对象的表达式。
指明一个模块是标准模块还是类模块。AcModuleType，只读。
AcModuleType 可以是下列 AcModuleType 常量之一： |
acClassModule |
acStandardModule |
expression.Type
expression 必需。返回 Module 对象的表达式。
示例
下面的示例确定 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