<\/p>\n
Die neuen Diagramme unter Access 2019 und aktuellen Versionen von Office 365 bieten eine moderne Darstellung von Daten. Dem Benutzer bleiben die Möglichkeiten der Anpassung der angezeigten Daten jedoch verwehrt, wenn er nicht gerade in den Entwurf des Formulars oder Berichts mit dem Diagramm eingreift. Also bieten wir ihm die Möglichkeit, verschiedene Aspekte der Darstellung über von uns bereitgestellte Steuer-elemente nach seinen Wünschen anzupassen. Im vorliegenden Beitrag schauen wir uns dabei die Wertebereiche von Diagrammen für die primäre und sekundäre y-Achse an.<\/b><\/p>\nBenutzern das Anpassen der Diagramme ermöglichen<\/h2>\n
Der Benutzer sollte in der Regel keine Gelegenheit erhalten, in den Entwurf von Formularen einzugreifen. Damit hat er aber leider auch keine Möglichkeit, die Ansicht der Diagramme anzupassen.<\/p>\n
Hier kommt VBA ins Spiel. Sie können mit geeigneten Steuerelementen die Werte, die für die verschiedenen Eigenschaften des Diagramm-Steuerelements eingestellt wurden, anzeigen und zur Bearbeitung anbieten. Die grundlegenden Einstellungen wie etwa die gewählte Diagrammart oder die Datensatzherkunft sollte man nicht bearbeiten lassen, da dies unter Umständen zu viele Gelegenheiten mit sich bringt, ein unerwünschtes Ergebnis zu produzieren. Also beschränken wir uns zu Beispielzwecken mit einigen wenigen Einstellungen.<\/p>\n
Für dieses Beispiel verwenden wir ein Diagramm, dass die Daten der Tabelle tblUmsaetzeUndRabattNachMonat <\/b>anzeigt. Dazu stellen Sie die Eigenschaft Diagrammtyp <\/b>auf Linien <\/b>und Datensatzherkunft <\/b>auf den Namen der Tabelle ein.<\/p>\n
Im Bereich Diagrammeinstellungen|Daten <\/b>legen wir für die Anzeige auf der y-Achse die beiden Felder Umsatz (Summe) <\/b>und Rabatt (Summe) <\/b>fest (siehe Bild 1), indem wir die entsprechenden Kontrollkästchen aktivieren.<\/p>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2019_02\/pic_1184_001.png\")
<\/p>\n
Bild 1: Auswahl der Felder für die Werte der y-Achse<\/span><\/b><\/p>\n Die angezeigten Texte für den Diagrammtitel und die Legendenbeschriftung stellen wir über die Eigenschaften Diagrammtitel <\/b>(im Eigenschaftenblatt) sowie Anzeigename <\/b>(im Bereich Diagrammeinstellungen|Format<\/b>) ein.<\/p>\n Außerdem möchten wir noch die sekundäre y-Achse einblenden. Das erledigen wir, indem wir die Eigenschaft Datenreihe zeichnen auf <\/b>im Bereich Diagrammeinstellungen|Format <\/b>für die Datenreihe SumOfRabatt <\/b>auf den Wert Sekundär <\/b>einstellen.<\/p>\n Schließlich wünschen wir uns noch Beschriftungen der beiden y-Achsen. Dazu tragen wir für die Eigenschaft Titel der primären Größenachse <\/b>den Wert Umsatz <\/b>und für Titel der sekundären Größenachse <\/b>den Wert Rabatt <\/b>ein.<\/p>\n Das Ergebnis sieht nun wie in Bild 2 aus.<\/p>\n Bild 2: Diagramm ohne Benutzereinstellungen<\/span><\/b><\/p>\n Nun wollen wir dem Benutzer die Möglichkeit geben, die Bereiche für die primäre und die sekundäre y-Achse einzustellen. Normalerweise sind hier die beiden Eigenschaften PrimaryValuesAxisRange<\/b> und SecondaryValuesAxisRange <\/b>auf den Wert acAxisRangeAuto <\/b>für Automatisch <\/b>eingestellt.<\/p>\n Wenn wir dem Benutzer die Möglichkeit geben wollen, diese Werte manuell einzustellen, müssen wir diese beiden Eigenschaften zunächst auf den Wert acAxisRangeFixed <\/b>einstellen. Die weiteren beiden Eigenschaften je y-Achse heißen PrimaryValuesAxisMinimum <\/b>und PrimaryValuesAxisMaximum <\/b>sowie SecondaryValuesAxisMinimum <\/b>und SecondaryValuesAxisMaximum<\/b>. Mit diesen stellen wir den Startwert und den Endwert für den anzuzeigenden Wertebereich ein.<\/p>\n Die Idee ist, dem Benutzer ausgehend von der automatischen Anzeige der Bereiche die Möglichkeit zu bieten, die Ober- und die Untergrenze für den Wertebereich manuell einzutragen. Oder er kann durch das Betätigen eines Steuerelements den aktuellen Wertebereich ermitteln und einstellen lassen. <\/p>\n Wir entscheiden uns, für den Wert der Eigenschaft PrimaryValuesAxisRange <\/b>eine Optionsgruppe zum Formular hinzuzufügen, der wir den Namen ogrPrimaerWertebereich <\/b>geben. Für diese Optionsgruppe stellen wir den Standardwert auf 0 <\/b>ein (was der Konstanten acAxisRangeAuto <\/b>entspricht).<\/p>\n Der Optionsgruppe fügen wir dann zwei Optionsfelder hinzu, denen wir die Werte 0 <\/b>und 1 <\/b>zuweisen und die wir mit Automatisch <\/b>und Manuell <\/b>beschriften. Die zweite Optionsgruppe für den Wertebereich der sekundären y-Achse erstellen wir auf die gleiche Weise, vergeben aber den Namen ogrSekundaerWertebereich<\/b>. <\/p>\n un benötigen wir noch vier Textfelder, welche die minimalen und maximalen Werte für die primäre und die sekundäre y-Achse aufnehmen. Diese platzieren wir unter der Optionsgruppe und so, dass die Felder für die primäre Achse links und die für die sekundäre Achse rechts erscheinen. Das Formular sieht nun wie in Bild 3 aus.<\/p>\n Bild 3: Entwurf des Formulars mit Steuerelementen für die Eigenschaften<\/span><\/b><\/p>\n Nun wollen wir die Steuer-elemente mit Funktion füllen. Als Erstes sorgen wir dafür, dass die Optionsgruppe den richtigen Wert enthält. Diesen lesen wir aus der entsprechenden Eigenschaft aus und weisen ihn in der Ereignisprozedur Beim Laden <\/b>des Formulars zu:<\/p>\n Hier rufen wir gleichzeitig eine Prozedur namens TextfelderAktivieren <\/b>auf:<\/p>\n Diese Prozedur prüft, ob die Wertebereiche automatisch ermittelt werden sollen oder nicht.<\/p>\n Falls nicht, sollen die Textfelder zur manuellen Eingabe der kleinsten und größten Werte aktiviert werden. Das erledigen die vier Anweisungen der Prozedur wie folgt:<\/p>\n Wenn der Benutzer den Wert einer der beiden Optionsgruppen ändert, also möchte, dass die Wertebereiche entweder automatisch festgelegt werden oder manuell, weisen wir der entsprechenden Eigenschaft des Diagramms, also PrimaryValuesAxisRange <\/b>oder SecondaryValuesAxisRange<\/b>, den entsprechenden Wert der jeweiligen Optionsgruppe zu.<\/p>\n Außerdem rufen wir dann erneut die Prozedur TextfelderAktivieren <\/b>auf, um diese zu aktivieren oder deaktivieren:<\/p>\n Damit haben wir allerdings noch nicht viel erreicht, denn wir blenden so nur die Zahlenwerte an der primären und sekundären y-Achse ein und aus.<\/p>\n Damit der Benutzer Standardwerte für die Wertebereiche hat, müssen wir diese entsprechend berechnen. Das können wir nur näherungsweise so tun, wie es das Diagramm-Steuerelement im automatischen Modus tut, da wir ja den dort verwendeten Algorithmus nicht kennen. Also wollen wir den größten und den kleinsten Wert ermitteln und einen bestimmten Prozentsatz aufschlagen, damit der größte Wert nicht gerade ganz oben auf der jeweiligen y-Achse angezeigt wird.<\/p>\n Wir aber können wir diese Werte berechnen Normalerweise ist das einfach, da wir ja wissen, welche Datensatzherkunft wir eingestellt haben und welche Felder für die Darstellung der Werte verwendet werden. Aber wir wollen die Lösung so gestalten, dass wir auch einmal die Datensatzherkunft wechseln und unsere Lösung immer noch verwenden können. Also schauen wir uns an, welche Möglichkeiten die Eigenschaften bieten, um die größten und kleinsten Werte der jeweiligen y-Achse zu berechnen.<\/p>\n <\/p>\n Dabei stoßen wir schnell auf die Eigenschaften der Datenreihen, wo wir Bezeichnungen wie SumOfUmsatz <\/b>oder SumOfRabatt <\/b>finden. Diese werden interessanterweise auch in dem Ausdruck für die Eigenschaft Transformierte Datensatzherkunft <\/b>verwendet, die in unserem Fall wie folgt aussieht:<\/p>\n Und wir wissen, dass die auf den beiden y-Achsen aufgetragenen Werte SumOfUmsatz <\/b>und SumOfRabatt <\/b>heißen. Daraus können wir dann durch geschicktes Formulieren einer Abfrage zum Beispiel wie folgt den maximalen Wert für SumOfUmsatz <\/b>ermitteln – hier für die Ausgabe im Direktfenster:<\/p>\n Das Ergebnis lautet korrekterweise 1250<\/b>.<\/p>\n Damit können wir dann auch noch den minimalen Wert für die primäre y-Achse ermitteln und den maximalen und den minimalen Wert für die sekundäre y-Achse.<\/p>\n Dabei dürfen wir allerdings nicht außer acht lassen, dass wir ja noch gar nicht wissen, welcher Wert auf welcher Achse aufgetragen ist. Und vielleicht sind ja sogar beide Datenreihen auf der gleichen y-Achse aufgetragen. Aber auch diese Information können wir über die Eigenschaften ermitteln. Dazu benötigen wir die Collection <\/b>namens ChartSeriesCollection<\/b>. Diese liefert alle Datenreihen. Für jede Datenreihe finden wir im Bereich Diagrammeinstellungen|Format <\/b>einen Satz von Eigenschaften. Durch Auswahl eines der Einträge des Kombinationsfeldes oben können wir die Eigenschaften für eine andere Datenreihe anzeigen lassen (siehe Bild 4). Hier interessieren uns besonders der Name der Datenreihe, denn diesen finden wir jeweils auch in der Abfrage aus der Eigenschaft Transformierte Datensatzherkunft <\/b>wieder (hier SumOfUmsatz <\/b>und SumOfRabatt<\/b>). Außerdem interessiert uns hier, auf welcher y-Achse die Werte für die Datenreihe aufgetragen werden – auf der primären oder der sekundären y-Achse. Diese Eigenschaft finden wir unter Diagrammeinstellungen|Format <\/b>unter Datenreihe zeichnen auf<\/b>.<\/p>\n Bild 4: Eigenschaften für eine Datenreihe<\/span><\/b><\/p>\n Unter VBA können wir ebenfalls auf diese Eigenschaften zugreifen. Die Datenreihen finden wir dabei in der bereits oben erwähnten Collection namens ChartSeriesCollection<\/b>.<\/p>\n Genau genommen kann es, im Gegensatz zu dem hier gezeigten Beispiel, auch Diagramme geben, wo es nur eine Datenreihe gibt, deren Werte auf der primären y-Achse aufgetragen werden, Diagramme mit zwei Datenreihen auf einer einzigen y-Achse oder auch Datenreihen, deren Werte sich auf die primäre und die sekundäre y-Achse aufteilen. In all diesen Fällen haben wir jedoch das gleiche Ziel: Wir wollen herausfinden, wie der minimale und der maximale anzuzeigende Wert für diese Datenreihen für die primäre und die sekundäre Achse lauten.<\/p>\n Dazu verwenden wir die Prozedur WertebereicheErmitteln<\/b> aus Listing 1. Die Prozedur deklariert neben einigen Long<\/b>-Variablen auch eine Objektvariable des Typs obj-ChartSeries<\/b>, die später beim Durchlaufen aller Datenreihen aus der Collection ChartSeriesCollection <\/b>als Laufvariable verwendet wird.<\/p>\n Listing 1: Ermitteln der minimalen und maximalen Werte für die primäre und die sekundäre y- Achse<\/span><\/b><\/p>\n Als Erstes referenziert die Prozedur mit der Variablen db <\/b>das Database<\/b>-Objekt zur aktuellen Datenbank. Dann speichert sie in der Variablen strTransformierteDatenherkunft <\/b>den Inhalt der Eigenschaft TransformedRowSource <\/b>des Diagramm-Steuerelements.<\/p>\n Danach folgt bereits die For Each<\/b>-Schleife, mit der wir die einzelnen Datenreihen durchlaufen, also die Elemente der Auflistung ChartSeriesCollection<\/b>, die auch im Bereich Diagrammeinstellungen|Format <\/b>angezeigt werden, und diese jeweils mit der Variablen objChartSeries <\/b>referenzieren.<\/p>\n Innerhalb der For Each<\/b>-Schleife tragen wir zunächst den Namen der Datenreihe in die Variable strFeld <\/b>ein. Dann prüfen wir, ob die Eigenschaft PlotSeriesOn <\/b>von objChart-Series <\/b>den Wert acPrimaryAxis <\/b>enthält, also die Datenreihe auf der primären y-Achse aufgetragen wird. Ist das der Fall, kommt die oben erwähnte transfomierte Datensatzherkunft ins Spiel. Diese bauen wir so um, dass wir den maximalen Wert des Feldes aus strFeld <\/b>für diese Datensatzherkunft erhalten. Diese SQL-Anweisung nutzen wir als Parameter der OpenRecordset<\/b>-Methode des mit db <\/b>referenzierten Database<\/b>-Objekts und lesen mit Fields(0) <\/b>das Ergebnis dieser Abfrage aus. Dieses landet dann in der Variablen lngMaxTemp<\/b>.<\/p>\n Die folgende If…Then<\/b>-Bedingung prüft, ob lngMaxTemp <\/b>größer als der aktuelle Wert in lngMaxPrimaer <\/b>ist. Falls ja, wird lngMaxPrimaer <\/b>durch den Wert aus lngMaxTemp <\/b>ersetzt. Dies geschieht bei Vorhandensein mehrerer Datenreihen, die auf der primären y-Achse angezeigt werden, für jede Datenreihe, sodass schließlich der größte maximale Wert aller Datenreihen in lngMaxPrimaer <\/b>landet.<\/p>\n Der Else<\/b>-Zweig der äußeren If…Then<\/b>-Bedingung arbeitet die Datenreihen ab, die auf der sekundären y-Achse abgebildet werden. Die hier enthaltenen Befehle entsprechen denen für die primäre y-Achse, mit dem Unterschied, dass wir hier die Variable lngMaxSekundaer <\/b>mit dem größten Wert für die sekundäre y-Achse füllen.<\/p>\n Danach folgt eine zweite For Each<\/b>-Schleife, welche die gleichen Elemente der Auflistung ChartSeriesCollection <\/b>durchläuft. Diesmal wollen wir die minimalen Werte für die primäre und die sekundäre y-Achse ermitteln. Dabei starten wir mit den für die beiden Achsen gefundenen maximalen Werten als Wert für die beiden Variablen lngMinPrimaer <\/b>und lngMinSekundaer<\/b>. Von da aus durchlaufen wir die Datenreihen und suchen nach kleineren Werten, die wir dann jeweils in die beiden Variablen einfügen.<\/p>\n Schließlich tragen die letzten vier Anweisungen die Werte aus den vier Long<\/b>-Variablen lngMinPrimaer<\/b>, lngMaxPrimaer<\/b>, lngMinSekundaer <\/b>und lngMaxSekundaer <\/b>in die entsprechenden Textfelder txtPrimaerMin<\/b>, txtPrimaerMax<\/b>, txtSekundaerMin <\/b>und txtSekundaerMax <\/b>ein.<\/p>\n Wenn der Benutzer nun für eine der Optionsgruppen den Wert auf Manuell <\/b>einstellt, sollen die als minimal und maximal ermittelten Werte auf die primäre und die sekundäre y-Achse angewendet werden. Dazu erweitern wir die beiden Prozeduren, die durch das Ereignis Nach Aktualisierung <\/b>der Optionsgruppen ausgelöst werden, wie folgt.<\/p>\n Wir prüfen darin, ob der Wert der jeweiligen Optionsgruppe der Konstanten acAxisRangeFixed <\/b>entspricht. Ist der Wert acAxisRangeFixed<\/b>, heißt das, die in den Textfeldern angegebenen Werte sollen für die y-Achse verwendet werden.<\/p>\n Dann weisen wir der Eigenschaft Primary-Va-lues-AxisMinimum <\/b>den Wert aus dem Textfeld txtPri-maer-Min <\/b>und der Eigenschaft PrimaryValuesAxisMaximum <\/b>den Wert aus dem Textfeld txtPrimaerMax <\/b>zu:<\/p>\n Für die sekundäre y-Achse sieht die Prozedur für das Ereignis Nach Aktualisieren <\/b>der Optionsgruppe analog aus:<\/p>\n Wenn Sie etwa in beiden Optionsgruppen die Option Manuell <\/b>auswählen, werden die Werte für die primäre und die sekundäre y-Achse so aufgetragen, dass der größte Wert ganz oben und der kleinste Wert ganz unten in der jeweiligen y-Achse auftaucht (siehe Bild 5).<\/p>\n Bild 5: Automatisch ermittelte maximale und minimale Werte<\/span><\/b><\/p>\n Nun wollen wir dem Benutzer auch noch erlauben, die Werte selbst anzupassen. Das ist an sich einfach, denn er kann ja einfach andere Werte in die vier Textfelder eintragen, wenn diese durch Einstellen der Option Manuell <\/b>aktiviert sind. Allerdings geschieht dann noch nichts. Also versehen wir die Textfelder mit einer Ereignisprozedur, die durch das Ereignis Nach Aktualisierung <\/b>ausgelöst wird. In diese Prozeduren fügen wir noch eine kleine Absicherung ein, falls der Benutzer einen nicht numerischen Wert eingibt:<\/p>\n Wenn der Benutzer nun entscheidet, dass er doch lieber die vom Diagramm automatisch eingestellte Ansicht verwenden möchte, kann er einfach in einer der Optionsgruppen oder auch in beiden den Wert Automatisch <\/b>wiederherstellen. Die Prozeduren, die durch das Ereignis Nach Aktualisierung <\/b>der beiden Optionsgruppen ausgelöst werden, enthalten bereits eine Anweisung, welche den Wert der Eigenschaft PrimaryValuesAxisRange <\/b>beziehungsweise SecondaryValuesAxisRange <\/b>auf den in den Optionsgruppen gewählten Wert einstellen.<\/p>\n Dieses Beispiel zeigt, wie Sie die Bereiche der primären und sekundären y-Achsen über die Werte von Steuerelemente und deren Umsetzung mit entsprechenden VBA-Anweisungen nach den Wünschen des Benutzers manipulieren können. Auf die gleiche Art könnte man auch die übrigen Eigenschaften in Form von Steuerelementen im Formular abbilden und dem Benutzer so die Möglichkeit geben, alle gewünschten Einstellungen selbst vorzunehmen, ohne die Entwurfsansicht bedienen zu müssen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n WertebereicheInDiagrammenPerVBA.accdb<\/p>\n![\"Diagramm](\"..\/fileadmin\/_temp_\/2019_02\/pic_1184_002.png\")
<\/p>\nMinimale und maximale Werte für y-Achse automatisch einstellen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2019_02\/pic_1184_003.png\")
<\/p>\nSteuer-elemente programmieren<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Me!ogrPrimaerWertebereich = Me!ctlMinMax.PrimaryValuesAxisRange\r\n Me!ogrSekundaerWertebereich = Me!ctlMinMax.SecondaryValuesAxisRange\r\n TextfelderAktivieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>TextfelderAktivieren()\r\n Me!txtPrimaerMax.Enabled = Me!ogrPrimaerWertebereich = 1\r\n Me!txtPrimaerMin.Enabled = Me!ogrPrimaerWertebereich = 1\r\n Me!txtSekundaerMax.Enabled = Me!ogrSekundaerWertebereich = 1\r\n Me!txtSekundaerMin.Enabled = Me!ogrSekundaerWertebereich = 1\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ogrPrimaerWertebereich_AfterUpdate()\r\n Me!ctlMinMax.PrimaryValuesAxisRange = Me!ogrPrimaerWertebereich\r\n TextfelderAktivieren\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>ogrSekundaerWertebereich_AfterUpdate()\r\n Me!ctlMinMax.SecondaryValuesAxisRange = Me!ogrSekundaerWertebereich\r\n TextfelderAktivieren\r\nEnd Sub<\/span><\/pre>\nKleinsten und größten Wert vorbelegen<\/h2>\n
SELECT [Monat], Sum([Umsatz]) AS [SumOfUmsatz], Sum([Rabatt]) AS [SumOfRabatt] FROM [tblUmsaetzeUndRabattNachMonat] GROUP BY [Monat] ORDER BY [Monat]<\/pre>\n
Debug.Print<\/span> CurrentDb.OpenRecordset(\"SELECT Max(SumOfUmsatz) FROM (SELECT [Monat], " _\r\n & "Sum([Umsatz]) AS [SumOfUmsatz], Sum([Rabatt]) AS [SumOfRabatt] " _\r\n & "FROM [tblUmsaetzeUndRabattNachMonat] GROUP BY [Monat] ORDER BY [Monat])\").Fields(0)<\/pre>\n![\"Eigenschaften](\"..\/fileadmin\/_temp_\/2019_02\/pic_1184_004.png\")
<\/p>\nDatenreihen analysieren<\/h2>\n
Public Sub <\/span>WertebereicheErmitteln()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngMinPrimaer As Long<\/span>, lngMaxPrimaer As Long<\/span>, lngMinSekundaer As Long<\/span>, lngMaxSekundaer As Long<\/span>\r\n Dim <\/span>lngMaxTemp As Long<\/span>, lngMinTemp As Long<\/span>\r\n Dim <\/span>objChartSeries As <\/span>ChartSeries\r\n Dim <\/span>strFeld As String<\/span>, strTransformierteDatensatzherkunft As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strTransformierteDatensatzherkunft = Me!ctlMinMax.TransformedRowSource\r\n For Each objChartSeries In Me!ctlMinMax.ChartSeriesCollection\r\n strFeld = objChartSeries.Name\r\n If <\/span>objChartSeries.PlotSeriesOn = acPrimaryAxis Then<\/span>\r\n lngMaxTemp = db.OpenRecordset(\"SELECT Max(\" & strFeld & \") FROM (\" & strTransformierteDatensatzherkunft _\r\n & \")\", dbOpenDynaset).Fields(0)\r\n If <\/span>lngMaxTemp > lngMaxPrimaer Then<\/span>\r\n lngMaxPrimaer = lngMaxTemp\r\n End If<\/span>\r\n Else<\/span>\r\n lngMaxTemp = db.OpenRecordset(\"SELECT Max(\" & strFeld & \") FROM (\" & strTransformierteDatensatzherkunft _\r\n & \")\", dbOpenDynaset).Fields(0)\r\n If <\/span>lngMaxTemp > lngMaxSekundaer Then<\/span>\r\n lngMaxSekundaer = lngMaxTemp\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> objChartSeries\r\n lngMinPrimaer = lngMaxPrimaer\r\n lngMinSekundaer = lngMaxSekundaer\r\n For Each objChartSeries In Me!ctlMinMax.ChartSeriesCollection\r\n strFeld = objChartSeries.Name\r\n If <\/span>objChartSeries.PlotSeriesOn = acPrimaryAxis Then<\/span>\r\n lngMinTemp = db.OpenRecordset(\"SELECT Min(\" & strFeld & \") FROM (\" & strTransformierteDatensatzherkunft _\r\n & \")\", dbOpenDynaset).Fields(0)\r\n If <\/span>lngMinTemp < lngMinPrimaer Then<\/span>\r\n lngMinPrimaer = lngMinTemp\r\n End If<\/span>\r\n Else<\/span>\r\n lngMinTemp = db.OpenRecordset(\"SELECT Min(\" & strFeld & \") FROM (\" & strTransformierteDatensatzherkunft _\r\n & \")\", dbOpenDynaset).Fields(0)\r\n If <\/span>lngMinTemp < lngMinSekundaer Then<\/span>\r\n lngMinSekundaer = lngMinTemp\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> objChartSeries\r\n Me!txtPrimaerMin = lngMinPrimaer\r\n Me!txtPrimaerMax = lngMaxPrimaer\r\n Me!txtSekundaerMin = lngMinSekundaer\r\n Me!txtSekundaerMax = lngMaxSekundaer\r\nEnd Sub<\/span><\/pre>\nBereiche der y-Achsen anpassen<\/h2>\n
Private Sub <\/span>ogrPrimaerWertebereich_AfterUpdate()\r\n Me!ctlMinMax.PrimaryValuesAxisRange = Me!ogrPrimaerWertebereich\r\n TextfelderAktivieren\r\n If <\/span>Me!ogrPrimaerWertebereich = acAxisRangeFixed Then<\/span>\r\n Me!ctlMinMax.PrimaryValuesAxisMinimum = Me!txtPrimaerMin\r\n Me!ctlMinMax.PrimaryValuesAxisMaximum = Me!txtPrimaerMax\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ogrSekundaerWertebereich_AfterUpdate()\r\n Me!ctlMinMax.SecondaryValuesAxisRange = Me!ogrSekundaerWertebereich\r\n TextfelderAktivieren\r\n If <\/span>Me!ogrSekundaerWertebereich = acAxisRangeFixed Then<\/span>\r\n Me!ctlMinMax.SecondaryValuesAxisMinimum = Me!txtSekundaerMin\r\n Me!ctlMinMax.SecondaryValuesAxisMaximum = Me!txtSekundaerMax\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Automatisch](\"..\/fileadmin\/_temp_\/2019_02\/pic_1184_005.png\")
<\/p>\nBenutzerdefinierte Aktualisierung der kleinsten und größten Werte<\/h2>\n
Private Sub <\/span>txtPrimaerMax_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>IsNumeric(Me!txtPrimaerMax) Then<\/span>\r\n Me!ctlMinMax.PrimaryValuesAxisMaximum = Me!txtPrimaerMax\r\n Else<\/span>\r\n MsgBox<\/span> \"Geben Sie einen numerischen Wert ein.\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtPrimaerMin_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>IsNumeric(Me!txtPrimaerMin) Then<\/span>\r\n Me!ctlMinMax.PrimaryValuesAxisMinimum = Me!txtPrimaerMin\r\n Else<\/span>\r\n MsgBox<\/span> \"Geben Sie einen numerischen Wert ein.\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtSekundaerMax_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>IsNumeric(Me!txtSekundaerMax) Then<\/span>\r\n Me!ctlMinMax.SecondaryValuesAxisMaximum = Me!txtSekundaerMax\r\n Else<\/span>\r\n MsgBox<\/span> \"Geben Sie einen numerischen Wert ein.\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtSekundaerMin_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>IsNumeric(Me!txtSekundaerMin) Then<\/span>\r\n Me!ctlMinMax.SecondaryValuesAxisMinimum = Me!txtSekundaerMin\r\n Else<\/span>\r\n MsgBox<\/span> \"Geben Sie einen numerischen Wert ein.\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAutomatische Werte wiederherstellen<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h3>\n