Access VBA教程:PivotTableChange事件

只要添加或删除指定数据透视表视图中的字段、字段集或汇总,该事件就会发生。

Private Sub Form_PivotTableChange(ByVal Reason As Long)

Reason   指定“数据透视表”列表的更改方式。可以是以下PivotTableReasonEnum 常量之一:

plPivotTableReasonTotalAdded
plPivotTableReasonFieldSetAdded
plPivotTableReasonFieldAdded

VBA示例

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


Private Sub Form_PivotTableChange(Reason As Long)
    Select Case Reason
        Case OWC.plPivotTableReasonTotalAdded
            MsgBox "A total was added!"
        Case OWC.plPivotTableReasonFieldSetAdded
            MsgBox "A field set was added!"
        Case OWC.plPivotTableReasonFieldAdded
            MsgBox "A field was added!"
    End Select
End Sub

上页:Access VBA教程:Page事件 下页:Access VBA教程:Print事件

Access VBA教程:PivotTableChange事件

Access VBA教程:Print事件 Access VBA教程:Progress事件 (Snapshot Viewer)
Access VBA教程:Query事件 Access VBA教程:ReadyStateChange事件 (Snapshot Viewer)
Access VBA教程:RecordExit事件 Access VBA教程:Resize事件
Access VBA教程:Retreat事件 Access VBA教程:RollbackTransaction事件
Access VBA教程:SelectionChange事件 Access VBA教程:Terminate事件
Access VBA教程:Timer事件 Access VBA教程:Undo事件
Access VBA教程:UndoBatchEdit事件 Access VBA教程:Unload事件
Access VBA教程:Updated事件 Access VBA教程:ViewChange事件
Access VBA教程:Command函数 Access VBA教程:DAvg函数
Access VBA教程:DCount函数 Access VBA教程:DDE函数
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号