Grafico Pivot Creazione, Utilizzando VBA di Access 2007

Question

OK non ci sono assolutamente buoni articoli su internet che posso trovare spiegare o esempi di codice su come creare una tabella pivot utilizzando VBA.Ho bisogno di questo, perché ho bisogno del grafico pivot che mostra risultati diversi in base alla selezione dell'utente in un form.Ci sono alcuni per Excel, ma la sintassi è diversa per l'Accesso.So che questa è una domanda zoppo, ma se qualcuno ha un esempio di come creare un grafico pivot in VBA vorrei davvero apprezzare l'aiuto.

Answer 1

Bene, dopo circa 3 giorni di ricerche credo di averlo trovato. Non che qualcuno si preoccupa in realtà, questo ha solo come 6 punti di vista, la dice lunga per horribleness totale di VBA. In ogni caso, MSDN ha avuto questo nascosto sotto "di Office XP" invece di sotto di accesso, ma qualunque cosa.

http://msdn.microsoft.com/en-us/ biblioteca / aa662945.aspx #

Answer 2

Ho creare un grafico Pivot maschera in Access 2007.Su un altro modulo ho l'utente controlli per la selezione e il pivotform come una sottomaschera.Allora io uso questo codice nella maschera principale.Il modello a oggetti è la stessa OWC11 (Office Web Components 11).

Private Function DisplayChart()

  With mysubform.Form.ChartSpace
    .Clear
    .AllowFiltering = True
    .HasChartSpaceTitle = True
    .ChartSpaceTitle.Caption = "test"
    .DisplayFieldButtons = False
    .DisplayToolbar = False

    .ConnectionString = ...
    .CommandText = "SELECT rSeries, rCategory, rDate, rValue " & _
        "FROM myTable"

    .Charts(0).Type = chChartTypePie

    .SetData chDimSeriesNames, chDataBound, "rSeries"
    .SetData chDimCategories, chDataBound, "rCategory"
    .SetData chDimValues, chDataBound, "rValue"

    .HasChartSpaceLegend = True

  End With

End Function

le costanti possono essere derivati da OWC11

C:\Program Files\Common Files\Microsoft Shared\Web Components\11\OWC11.DLL

Hai bisogno di loro all'inizio del modulo.In questa fase non sono sicuro di come estrarli dall'Accesso di grafico pivot.Fare riferimento a OWC11 e impostare la sottomaschera ChartSpace a una variabile dichiarata come OWC11.ChartSpace.Dopo aver scritto il codice per cambiare il tipo di "Oggetto", e rimuovere il riferimento per l'associazione tardiva (e re-test).In questo modo il vostro miglior attore non scollarsi su una macchina a 64bit quando si distribuisce.

Private Enum ChartConstants
  chDimSeriesNames = 0
  chDimCategories = 1
  chDimValues = 2
  chDataBound = 0
  chAxisPositionValue = -8
  chAxisPositionCategory = -7
  chChartTypePie = 18
End Enum

Ricordate che si può anche consentire all'utente di avere accesso al grafico Pivot proprietà, elenchi di campi e zone di trascinamento.Oppure si può fare clic con il grafico per arrivare a loro.

(Nota - questa è una nuova scoperta per me, quindi ho cercherà di aggiornare questa risposta se trovo gotcha s.)