Type 屬性
內(nèi)容
應(yīng)用于 AccessObject 對象的 Type 屬性。
返回 AccessObject 對象類型的值。AcObjectType 型，只讀。
AcObjectType 可以是下列 AcObjectType 常量之一： |
acDataAccessPage |
acDefault |
acDiagram |
acForm |
acFunction |
acMacro |
acModule |
acQuery |
acReport |
acServerView |
acStoredProcedure |
acTable |
expression.Type
expression 必需。返回 AccessObject 對象的表達(dá)式。
應(yīng)用于 FormCondition 對象的 Type 屬性。
返回 FormatCondition 對象類型的值。AcFormatConditionType 型，只讀。
AcFormatConditionType 可以是下列 AcFormatConditionType 常量之一： |
acExpression |
acFieldHasFocus |
acFieldValue |
expression.Type
expression 必需。返回 FormatCondition 對象的表達(dá)式。
指明一個(gè)模塊是標(biāo)準(zhǔn)模塊還是類模塊。AcModuleType，只讀。
AcModuleType 可以是下列 AcModuleType 常量之一： |
acClassModule |
acStandardModule |
expression.Type
expression 必需。返回 Module 對象的表達(dá)式。
示例
下面的示例確定 Module 對象代表的是標(biāo)準(zhǔn)模塊還是類模塊：
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