MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 28.08.2012, 14:38   #1
Broom
MOF Koryphäe
MOF Koryphäe
Standard Acc2003 - unterschiedliche Farben im Säulendiagramm

Hallo,
in meinem Formular wird ein Säulen-Diagramm angezeigt. Alle Säulen haben die gleiche Farbe. Kann man sie auch in unterschiedlichen Farben anzeigen lassen?

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.08.2012, 17:56   #2
Marsu65
MOF Guru
MOF Guru
Standard

Ja, kann man
- per Code
- manuell
- durch Umstellung der Datenherkunft

Beschreibe bitte, was das Diagramm abbildet.
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 29.08.2012, 08:10   #3
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Die Datensatzherkunft lautet:

SELECT [FzgNr],AVG([BewGrp]) AS [MittelwertBewGrp] FROM [qy_FzgBewDiagramm] GROUP BY [FzgNr];

In dem Säulendiagramm wird zu jeder „FzgNr“ (7 Stück in Summe) der Mittelwert aller Bewertungen (BewGrp) (5 Bewertungen (BewGrp) pro Kriterium) und angezeigt. Über ein Kombifeld „cmbDiag“ im Formular, welches ich mit dem Feld „BewNr“ in der Abfrage verknüpft habe, kann ich mir zu jedem Kriterium „BewNr“ das Diagramm anzeigen lassen.
Würde jetzt gerne die Farben der Säulen, um die FzgNr besser herauszustellen unterschiedlich einfärben.

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 29.08.2012, 13:14   #4
Gandalf
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Broom,
standardmäßig werden die Daten spaltenweise dargestellt, heißt du hast nur eine Datenreihe und nur eine Farbe. Umstellung auf Darstellung zeilenweise (Menü - Daten) könnte helfen. Das müsste dann 7 Datenreihen geben, denen man unterschiedliche Farben zuordnen kann.

__________________

Gruß Gandalf

"Ein Programm sie zu knechten -
sie alle zu binden,
in den Wahnsinn zu treiben,
wenn Probleme sich finden."
Gandalf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 29.08.2012, 19:51   #5
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Gandalf,
jetzt ist es zwar farbiger, aber es verschwinden auf einmal unter der X-Achse die FzgNr unter den Säulen. Das ist keine Lösung.

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.08.2012, 18:13   #6
Marsu65
MOF Guru
MOF Guru
Standard

Zitat:

jetzt ist es zwar farbiger, aber es verschwinden auf einmal unter der X-Achse die FzgNr unter den Säulen. Das ist keine Lösung.

Hallo Heinrich,
da ja keiner außer dir das Diagramm sehen kann, fällt es wahrscheinlich
nicht nur mir sehr schwer, sich unter der gegebenen Problembeschreibung
etwas vorzustellen.
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.08.2012, 18:35   #7
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
ich füge mal eine etwas Datenreduzierte Datenbank bei.
- In dem Formular als auch Bericht werden alle Säülen nicht in mehreren unterschiedlichen Farbend argestellt.
- Hier ist auch noch das Thema, das beim Öffnen des Berichtes nicht die gleiche RowSource wie beim Formular übernommen wird.
- und das ich nicht für jedes Bewertungskriterium ein Diagramm in Reihe in den Bericht gebracht wird.
Versuche mich aber zur Zeit noch dran.
Angehängte Dateien
Dateityp: zip Testdiagramme.zip (54,8 KB, 20x aufgerufen)

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.08.2012, 21:25   #8
Marsu65
MOF Guru
MOF Guru
Standard

Hallo Heinrich,

etwas zum grundsätzlichen Verständnis zum Arbeiten mit Diagrammen:
Die Darstellung, die du aktuell hast, ist eine Datenreihe mit mehreren (3) Datenpunkten (Fahrzeuge = Rubriken auf der x-Achse).
Eine Datenreihe mit ihren Datenpunkten wird standardmäßig in einer Farbe dargestellt.

Wenn du, wie von Gandalf vorgeschlagen, die Diagrammoption nach
Zeilen umstellst werden deine Daten als 3 Datenreihen einer Rubrik (MittelwbewGrp) dargestellt.
Damit sind die Säulen verschiedenfarbig. Jedoch entfällt die Rubrikeneinteilung auf der x-Achse (Es gibt ja nur die eine).
Die Zuordnung zu den Fahrzeugen (Farben) ist nun über die Legende möglich.

Du möchtest eine Mischung aus beiden haben.
Am einfachsten ist IMHO bei deiner ersten Darstellung zu bleiben und die einzelnen Datenpunkte unterschiedlich einzufärben.

Manuell kannst du im Diagram die einzelnen Datenpunkte auswählen und ihnen eine Farbe zuordnen.
Um das automatisiert anzugehen, ist es von Vorteil zu wissen:
Gibt es eine max. Anzahl von Fahrzeugen die im Diagramm dargestellt werden (das Bsp. enthält drei)
Soll es für jedes Fahrzeug eine eindeutige Farbe geben oder reichen z.B. ingesamt 5 Farben die dann immer wiederkehren.
Oft werden für solche Fälle nur 2 Farben benutzt, die sich abwechseln.

BTW:
Ich weiss nicht ob die Tabelle tb_FzgBewertung nur im Bsp. oder auch in deiner Anwendung so aufgebaut ist.
Im zweiten Fall würde ich empfehlen, bevor du dir weitere Gedanken um Formulare/Diagramme/Berichte machst, erst noch einmal gründlich über das Datenmodell nachzudenken bzw. dieses hier im Forum zur Diskussion zu stellen.

Geändert von Marsu65 (31.08.2012 um 22:28 Uhr).
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.09.2012, 17:54   #9
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
der Einsatz der Datenbank erfolgt zu unterschiedlichen Gegebenheiten, sodass die Anzahl der Fahrzeuge variieren können. Von 5 bis ca. 15 Fahrzeuge, je nachdem wie viele zur Bewertung anstehen. Ideal wäre für jedes Fahrzeug eine eigene Farbe, wobei ich mir vorstellen könnte, wenn zu viele Fahrzeuge angezeigt werden, dies reichlich bunt werden würde. Daraus folgernd könnte bei einer kleinen Anzahl jedes Fahrzeug eine eigene Farbe erhalten und bei einer höheren Anzahl Fahrzeuge dann 5 Farben, die wiederkehrend sind eingesetzt werden. Frage ist, welcher Aufwand für eine automatische Umsetzung dafür erforderlich wäre.

Die Tabelle „tb_FzgBewertung“ an sich entspricht außer den beiden Spalten BNr und KNr der sonst verwendeten Tabelle. In die Tabelle wird in dem Feld BewGrp die Bewertungsnote des jeweiligen Bewerters (BewNr) eingetragen. Nach Abschluss der Bewertungsrunde wird diese so in eine Historientabelle gespeichert und die Tabelle neu befüllt. Die Bewertungskriterien, Fahrzeuge und Bewerter können sich bei jeder Bewertungsrunde ändern.

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.09.2012, 20:29   #10
Marsu65
MOF Guru
MOF Guru
Standard

Zwei Möglichkeiten:
1) du bastelst dir eine Datenherkunft für dein Diagramm, dass dir ca. 20 Datenpunkte anzeigt.
Gehst in den Entwurf und änderst die Farbe der Datenpunkte manuell.
(Geht schnell und erfordert nicht viel Programmieraufwand)

2) du änderst die Farben per Code anhand einer Farbtabelle
Farbtabelle:
Code:

FarbID FarbBezeichnung Farbwert
  1           weis     16777215 
  2
... usw.
Die Datenpunkte kannst du dann z.B. so einfärben:
Code:

Sub Datenpunkte_Faerben()
    Dim cht As Graph.Chart
    Dim lngFarbwert As Long
    Dim i As Integer
    
    Set cht = Me.Diagramm3.Object
    
    For i = 1 To cht.SeriesCollection(1).Points.Count
        lngFarbwert = _
          Nz(DLookup("[Farbwert]", "Farbtabelle", "[FarbID] = " & i), 0)
        cht.SeriesCollection(1).Points(i).Interior.Color = Farbwert
    Next i
    Set cht = Nothing
End Sub

Zitat:

Die Tabelle „tb_FzgBewertung“ an sich entspricht ... der sonst verwendeten Tabelle.

Ohne da im Detail drauf einzugehen:
z.B. BewKriterium sollte in eine eigene Tabelle ausgelagert werden.
In der tb_FzgBewertung steht dann nur noch der Fremdschlüssel ...

BTW: Kleiner Tip am Rande: verwende in jedem Modul Option Explicit.

Geändert von Marsu65 (02.09.2012 um 20:35 Uhr).
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.09.2012, 15:38   #11
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
hab die zweite Variante probiert und 3 verschiedene Farben definiert. Den Code habe ich in eine Schaltfläche eingefügt und nach einem Klick darauf wurden jetzt alle 3 Säulen in schwarz eingefärbt. was habe ich da falsch gemacht?

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.09.2012, 18:31   #12
Marsu65
MOF Guru
MOF Guru
Standard

Och Heinrich,
wie soll man sehen, was du evtl. falsch gemacht hast, wenn man nicht sieht, was du gemacht hast ... nicht nur meine hellseherischen Fähigkeiten sind begrenzt.
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.09.2012, 07:37   #13
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
hier meine Datenbank.
Angehängte Dateien
Dateityp: zip Testdiagramme2.zip (60,3 KB, 18x aufgerufen)

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.09.2012, 12:11   #14
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
ich habe den Fehler gefunden:
Code:

cht.SeriesCollection(1).Points(i).Interior.Color = lngFarbwert
das lng fehlte.
Jetzt funktioniert es beim Klick auf die Schaltfläche.

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.09.2012, 14:55   #15
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
mit der o.g. Anweisung kann ich die Säulenfarben des Diagramms im Formular aktualisieren. Dazu kann ich mir ja auch das Diagramm im Bericht anzeigen lassen. Wie kann ich nun die Säulenfarben im Bericht entsprechend anpassen?

__________________

Gruß
Heinrich
Broom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:53 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.