Views

Histats

Vitrine

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

Continue nos acompanhando em:
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

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias