Individueller Diagrammtitel

[JOG]

Hallo Access - Freunde
Ich habe eine Abfrage, welche ich über eine Formularauswahl starte (siehe Bild Beilage). Nun möchte ich, dass mein Diagrammtitel entsprechend der Auswahl aus dem Formular bezeichnet wird. Kann mir jemand sagen, wie ich per VBA diesen Titel variabel machen kann?

[Hondo]

Hallo,
doppelt auf das Diagramm klicken, dann den Titel anklicken und ändern.

Gruß Andreas

[Xoar]

Hi, kann dir nur nen Ideenansatz geben, da ich unterwegs bin.

Unter vba kann man mit (diagramm).caption die Beschriftung festlegen. Wenn du das Diagramm öffnest müsste man über die OpenArgs Methode den jeweiligen Name mit übergeben können und als bei .caption einsetzen, oder einfach beim open Ereignis des Diagramms die caption über "select case (wert der Optionsgruppe)" und dann je Fall direkt benennen.

[JOG]

Hallo Xoar

Vielen Dank für Deinen Input. Leider habe ich noch keine Erfahrung mit der OpenArgs-Methode o.ä.. Ich habe nachfolgend meinen Code eingefügt. Demnach müsste ich nach jeder Option (if-Variante) den Diagramm-Namen definieren. Hast Du mir eine Idee, wie der Code lauten könnte?

Private Sub cmdAbfrDiaGewicht_Click()

    If Me.WertOption = 1 Then
    DoCmd.OpenQuery "abfrDiaGewicht", acViewPivotChart, acEdit
    ElseIf Me.WertOption = 3 Then
    DoCmd.OpenQuery "abfrDiaAusbeute", acViewPivotChart, acEdit
    ElseIf Me.WertOption = 4 Then
    DoCmd.OpenQuery "abfrDiaVit_C", acViewPivotChart, acEdit
    ElseIf Me.WertOption = 5 Then
    DoCmd.OpenQuery "abfrDiaGewichtGR", acViewPivotChart, acEdit
    ElseIf Me.WertOption = 6 Then
    DoCmd.OpenQuery "abfrDiaGewichtGE", acViewPivotChart, acEdit
    Else: DoCmd.OpenQuery "abfrDiaGlycerin", acViewPivotChart, acEdit
    End If
End Sub

[MaggieMay]

Hallo,

ich verstehe nicht worauf du hinaus willst. Ein PivotChart ist doch etwas anderes als ein Diagramm.
Wie öffnest du denn das in Bild #2 gezeigte Formular?

[JOG]

Hallo

Ok, ich habe mich vielleicht nicht ganz präzise ausgedrückt  - meine natürlich, wie Du korrekt gesehen hast die PivotChart-Ansicht der Abfrage. Daraus entsteht dann eben das Liniendiagramm der beigefügten Abbildung, welche dann wohl einen fixen Titel hat, den ich in den Eigenschaften wohl ändern kann, jedoch eben nicht automatisch angepasst an die Formularauswahl.
Das Formular öffnen ich ganz normal mit einer entsprechenden Schaltfläche aus dem Hauptmenü.

[Xoar]

Hi, kann es leider erst Miitwoch selbst testen, aber man kann bei dem DoCmd.open Methode optional als letztes Argument für OpenArgs einen "String" festlegen. Also z.B. DoCmd.openQuery "Abfrage",,,,,,"Titel1"

Unter der Ereignisprozedur bei Open kann man dann auf dieses Argument zugreifen.

me.caption = Me.openArgs

Ob das auch bei Querys klappt, oder nur bei Formularen weiß ich leider nicht.

Wie gesagt, kann das zur Zeit leider nicht testen.

[MaggieMay]

Hi,

meine natürlich, wie Du korrekt gesehen hast die PivotChart-Ansicht der Abfrage. Daraus entsteht dann eben das Liniendiagramm der beigefügten Abbildung

ich weiß ehrlich gesagt nicht, wie ein Liniendiagramm aus einer Abfrage entstehen kann.

Das Formular öffnen ich ganz normal mit einer entsprechenden Schaltfläche aus dem Hauptmenü.

Welches Formular?!
Du hast lediglich den Code gezeigt, mit dem du diverse Abfragen öffnest.
Diese zeigen aber kein Diagramm!
Zeige uns also bitte den kompletten Code bzw. beschreibe den vollständigen Zusammenhang.

[JOG]

Hallo MaggieMay
Du kannst aus einer Abfrage die Ansicht als PivotChart wählen (siehe Bild). Das Formular benötige ich lediglich, um die Daten für die Abfrage zu selektieren. Mit der Schaltfläche "Diagramm erstellen" löse ich den entsprechenden VBA-Code (wie vorhin beigefügt) aus.

[MaggieMay]

Um welche Access-Version geht es denn hier?
Ich hatte das ausprobiert (mit A2010) und erhielt keinesfalls ein fertiges Diagramm, sondern eine Art Entwurf, in dem ich mir die Vorgaben für die Diagrammerstellung erst noch zusammenklicken musste - daher meine Frage wie du zu dem gezeigten Diagramm (inkl. Titel und Legende) kommst.

[JOG]

ja bei mir ist es ebenso A 2010. Man kann durchaus sagen, dass es sich dabei um eine Art "Entwurf" handelt, wo halt noch diverse Ansichtseinstellungen definiert werden können. Hat mir bisher gereicht.
Gibt's aus Deiner Sicht für mein Problem denn eine bessere Lösung für Diagramme als via eine Abfrage?

[MaggieMay]

Naja, ich würde halt ein Diagramm in einem Formular anlegen und dieses mit einer Abfrage füttern. Das dürfte auch der einzige Weg sein, die Beschriftung dynamisch einzustellen, denn bei einer geöffneten Abfrage hast du IMO kein "Diagramm-Objekt" auf das du per VBA zugreifen könntest.

wo halt noch diverse Ansichtseinstellungen definiert werden können

Nicht nur können, sondern müssen - wie sonst kommst du zur grafischen Ansicht des Abfrageergebnisses?!

[Beaker s.a.]

Hallo Xoar,

Ob das auch bei Querys klappt, oder nur bei Formularen weiß ich leider nicht.

Nein, den OpenArgs-Parameter gibt es nur bei Formularen und (seit A2007) bei Berichten.
gruss ekkehard