Access VBA教程:DataChange事件

当在指定的数据透视表视图中某个属性发生更改,或某些方法被执行时,该事件发生。

Private Sub Form_DataChange(ByVal Reason As Long)

Reason  可以使用PivotDataReasonEnum 常量的值,来确定触发该事件的原因。

PivotDataResonEnum 可以是下列 PivotDataResonEnum 常量之一:
plDataReasonAdhocFieldAdded
plDataReasonAdhocFieldDeleted
plDataReasonAdhocMemberChanged
plDataReasonAllIncludeExcludeChange
plDataReasonAllowDetailsChange
plDataReasonAllowMultiFilterChange
plDataReasonAlwaysIncludeInCubeChange
plDataReasonCommandTextChange
plDataReasonConnectionStringChange
plDataReasonDataMemberChange
plDataReasonDataSourceChange
plDataReasonDisplayCalculatedMembersChange
plDataReasonDisplayCellColorChange
plDataReasonDisplayEmptyMembersChange
plDataReasonExcludedMembersChange
plDataReasonExpressionChange
plDataReasonFieldNameChange
plDataReasonFieldSetDeleted
plDataReasonFieldSetNameChange
plDataReasonFilterContextChange
plDataReasonFilterCrossJoinsChange
plDataReasonFilterFunctionChange
plDataReasonFilterFunctionValueChange
plDataReasonFilterOnChange
plDataReasonFilterOnScopeChange
plDataReasonGroupEndChange
plDataReasonGroupIntervalChange
plDataReasonGroupOnChange
plDataReasonGroupStartChange
plDataReasonIncludedMembersChange
plDataReasonInsertFieldSet
plDataReasonInsertTotal
plDataReasonIsFilteredChange
plDataReasonIsIncludedChange
plDataReasonMemberPropertyDisplayInChange
plDataReasonMemeberPropertyIsIncludedChange
plDataReasonOrderedMembersChange
plDataReasonRecordChanged
plDataReasonRefreshDataSource
plDataReasonRemoveFieldSet
plDataReasonRemoveTotal
plDataReasonSortDirectionChange
plDataReasonSortOnChange
plDataReasonSortOnScopeChange
plDataReasonSubtotalsChange
plDataReasonTotalAllMembersChange
plDataReasonTotalDeleted
plDataReasonTotalExpressionChange
plDataReasonTotalFunctionChange
plDataReasonTotalNameChange
plDataReasonTotalSolverOrderChange
plDataReasonUnknown
plDataReasonUser

VBA示例

下面的示例说明了捕获 DataChange事件的子程序的语法。为了使该示例奏效,必须设置一个对 Microsoft Office Web 组件10.0 类型库的引用。


Private Sub Form_DataChange(Reason As Long)
    If Reason = OWC.plDataReasonDisplayCellColorChange Then
        MsgBox "The cell display color was changed."
    End If
End Sub

上页:Access VBA教程:Current事件 下页:Access VBA教程:DataSetChange事件

Access VBA教程:DataChange事件

Access VBA教程:DataSetChange事件 Access VBA教程:DblClick事件
Access VBA教程:Deactivate事件 Access VBA教程:Delete事件
Access VBA教程:Dirty事件 Access VBA教程:Enter事件
Access VBA教程:Error事件 Access VBA教程:Exit事件
Access VBA教程:Filter事件 Access VBA教程:FirstPage、LastPage、NextPage、PrevPage事件(快照查看器)
Access VBA教程:Format事件 Access VBA教程:GotFocus事件
Access VBA教程:Initialize事件 Access VBA教程:ItemAdded事件
Access VBA教程:ItemRemoved事件 Access VBA教程:KeyDown事件
Access VBA教程:KeyPress事件 Access VBA教程:KeyUp事件
Access VBA教程:Load事件 Access VBA教程:LostFocus事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号