Pivot de la Création de Graphique à l'Aide de Access 2007 VBA

OK il n'y a absolument pas de bons articles sur internet que je peux trouver et expliquer ou avoir des exemples de code sur comment créer un graphique croisé dynamique à l'aide de VBA. J'ai besoin de cela parce que j'ai besoin d'un graphique croisé dynamique pour afficher des résultats différents en fonction de la sélection de l'utilisateur dans un formulaire. Il y en a pour Excel, mais la syntaxe est différente pour l'Accès. Je sais que c'est une lame de question, mais si quelqu'un a un exemple de comment créer un graphique croisé dynamique en VBA j'apprécierais vraiment l'aider.

OriginalL'auteur Nick Sinas | 2009-04-14

3

Bien après 3 jours de recherche je pense que je l'ai trouvé. Pas que quiconque se soucie vraiment, cela a seulement 6 points de vue, en dit beaucoup pour VBA totale des horribleness. De toute façon, MSDN a ce caché sous "Office XP" au lieu de sous Access, mais peu importe.

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

Il est dit quelque chose à propos de la facilité d'utilisation de graphiques dans l'Accès, où il y a eu des problèmes majeurs de l'intégration de MS Graph aussi bien en 1996 dans mon expérience. Ainsi, de nombreux Accès avancé aux développeurs de l'éviter. Les tableaux croisés dynamiques n'existait pas jusqu'en A2003, & je me souviens de personnes ayant des problèmes de mise au travail.

OriginalL'auteur Nick Sinas
0

J'ai créer un Graphique croisé dynamique formulaire dans Access 2007. Sur un autre formulaire, j'ai de la sélection de l'utilisateur et le pivotform comme un sous-formulaire. Puis-je utiliser ce type de code dans le formulaire principal. Le modèle objet est le même que OWC11 (Composants Web Office 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
```
les constantes peuvent être dérivées à partir de OWC11

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

Vous en avez besoin dans le haut du module. À ce stade, je ne suis pas sûr de la façon de les extraire de l'Accès de graphique croisé dynamique. Faire référence à OWC11 et de définir le sous-formulaire ChartSpace une variable déclarée comme une OWC11.ChartSpace. Après avoir écrit le code de changer de type "Objet", et de supprimer la référence pour la liaison tardive (et re-test). De cette façon, votre refs de ne pas se décoller sur une machine 64 bits lorsque vous déployez.
```
Private Enum ChartConstants
  chDimSeriesNames = 0
  chDimCategories = 1
  chDimValues = 2
  chDataBound = 0
  chAxisPositionValue = -8
  chAxisPositionCategory = -7
  chChartTypePie = 18
End Enum
```
Oubliez pas que vous pouvez également permettre à l'utilisateur d'avoir accès à de la de Graphique croisé dynamique propriétés du formulaire, le champ des listes et des zones de dépôt. Ou ils pouvez droit-cliquez sur le graphique pour obtenir les.

(Note - c'est toujours une nouvelle découverte pour moi, donc je m'efforcerai de mettre à jour cette réponse si je trouve un gotcha.)

voici un article par Mike Gunderloy à l'aide de vba graphiques croisés dynamiques dans A2002 msdn.microsoft.com/en-us/library/aa155735%28office.10%29.aspx

OriginalL'auteur Mark Plumpton

Vous devez vous connecter pour publier un commentaire.