VBA Access - Programando Views PivotTable e PivotChart no MS Access - Tabelas e Gráficos Dinâmicos - 01.

Continue nos acompanhando em:

| Blog Office VBA | Blog Excel | Blog Access  |

Twitter: @officespecialis             @brzexceldevelop             @brzaccessdevel

Tabelas e Gráficos Dinâmicos - 01

 

 

Mudando o layout de visualização Aprenda abaixo, a como adicionar campos CustomerID, ShipVia, e Freight na PT do formulário baseado na tabela Orders.

 

Dim fset1, fset2, fset3 As PivotFieldSet Set fset1 = Me.PivotTable.ActiveView.FieldSets("CustomerID") Set fset2 = Me.PivotTable.ActiveView.FieldSets("ShipVia") Set fset3 = Me.PivotTable.ActiveView.FieldSets("Freight") Me.PivotTable.ActiveView.RowAxis.InsertFieldSet fset1 Me.PivotTable.ActiveView.ColumnAxis.InsertFieldSet fset2 Me.PivotTable.ActiveView.DataAxis.InsertFieldSet fset3

Adicionando um Total ao campo: O código a seguir cria um Total para o campo que contará o número de CustomerIDs.

 

Me.PivotTable.ActiveView.AddTotal "Count Of Customers", _ Me.PivotTable.ActiveView.FieldSets("CustomerID").Fields("CustomerID"), plFunctionCount Me.PivotTable.ActiveView.DataAxis.InsertTotal _ Me.PivotTable.ActiveView.Totals("Count Of Customers")

 

Adicionando um Campo Total Calculado Crie um campo calculado de 7% do valor do frete. É importante perceber que a sintaxe aceitará qualquer expressão válida para o 'Microsoft Jet Database Engine' para as funções do Visual Basic for Applications (VBA).

 

Me.PivotTable.ActiveView.AddCalculatedTotal "FTax", "Freight Tax", "[Freight] * 0.07" Me.PivotTable.ActiveView.DataAxis.InsertTotal Me.PivotTable.ActiveView.Totals("FTax")

* ATENÇÃO: Ao rodar este código mais de uma vez ocorrerá um erro. Remover todos os Campos da sua visualização PT [Pivot Table] A seguir mostro um exemplo para limpar todos os Campos e Totais da PT, deixando-a em branco. A idéia básica é simples, envolve um looping através dos vários eixos, cuja ação será a remoção. The basic idea is to loop through the various axes and remove all totals and fields. * ATENÇÃO: Este exemplo de código não remove formatação, mas somente pode ser aplicado para os Campos e Totais.

 

Dim ptable As PivotTable Set ptable = Me.PivotTable With ptable.ActiveView     Do While .RowAxis.FieldSets.Count > 0         .RowAxis.RemoveFieldSet 0     Loop     Do While .ColumnAxis.FieldSets.Count > 0         .ColumnAxis.RemoveFieldSet 0     Loop     Do While .FilterAxis.FieldSets.Count > 0         .FilterAxis.RemoveFieldSet (0)     Loop     Do While .DataAxis.FieldSets.Count > 0         .DataAxis.RemoveFieldSet (0)     Loop     Do While .DataAxis.Totals.Count > 0         .DataAxis.RemoveTotal (0)     Loop End With