返回一个 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