Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine