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 06.09.2012, 19:35   #16
Marsu65
MOF Guru
MOF Guru
Standard

Zitat:

das lng fehlte.

Um solche Fehler schnell zu finden verwende Option Explicit.

Zitat:

Wie kann ich nun die Säulenfarben im Bericht entsprechend anpassen?

hast du es mit o.g. Code im Bericht versucht?
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.04.2014, 15:57   #17
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
ja das habe ich. Die Farbe wird jedoch nicht angepasst.
Wenn ich den Bericht im Entwurf öffne, schließen und wieder in normaler Berichtsansicht öffne, wird die farbliche Änderung übernommen und angezeigt.
Wie kann man dies automatisieren?

__________________

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

Ups, nach eineinhalb Jahren ein Feedback. Daumen hoch!

Ohne zu wissen, was du da machst (Code), ist es (mir) nicht möglich
dir Hilfestellung zu geben.
Der Code aus #10 funktioniert - an geeigneter Stelle eingesetzt - auch für
Diagramme in Berichten.
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.04.2014, 17:58   #19
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
ja, der von Dir vorgeschlagene Code unter #10 (Einsatz in einem Bericht)funktioniert an sich auch. Daher war ich auch der Meinung dass das Thema erledigt war. Ich habe dieser Tage in der Farbtabelle für zwei Balken die Farbe angepasst und musste leider feststellen dass sich die Farbe im Diagramm in dem Bericht nicht automatisch auch anpasst. Erst nachdem ich den Bericht im Entwurf geöffnet und wieder in der Berichtsansicht geöffnet habe, wurde die Farbe im Diagramm aktualisiert. Ich habe den Vorgang mehrmals wiederholt, die Farbaktualisierung erfolgt nur wenn ich den Bericht zuvor im Entwurf öffne.

__________________

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

Die von dir wiederholte Beschreibung deutet darauf hin, dass der Code zur
Diagrammformatierung beim normalen Öffnen des Berichts nicht ausgeführt wird,
beim Wechseln der Ansicht von Entwurf zur Berichtsansicht aber schon ...
Und nu?
Da es keine neuen Informationen deinerseits gibt, bin ich nicht schlauer
geworden, was dein Problem betrifft (Eine weitere Wiederholung wird das
auch nicht ändern).
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.04.2014, 18:25   #21
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Für den Fall dass eine Farbänderung in der Farbtabelle erfolgt ist, kann man dann z.B. per Klick auf eine Schaltfläche den Bericht im Hintergrund im Entwurf öffnen und wieder schließen, sodaß beim nächsten Öffnen dann die Farbänderung übernommen wurde?
Oder muss ich den Code in einem anderen Ereignis einfügen?

__________________

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

Zitat:

... kann man dann z.B. per Klick auf eine Schaltfläche den Bericht im Hintergrund im Entwurf öffnen ...

Kann man. DoCmd.OpenReport hat dafür geeignete Parameter.

Zitat:

... sodaß beim nächsten Öffnen dann die Farbänderung übernommen wurde?

Das bezweifel ich immer noch.

Zitat:

Oder muss ich den Code in einem anderen Ereignis einfügen?

Diese Frage könnte(!) man beantworten, wenn man über den Istzustand irformiert würde.
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.04.2014, 19:28   #23
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

In dem Bericht mit dem Diagramm habe ich in dem Ereignis "Beim formatieren" folgenden Code eingefügt:
Code:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

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

__________________

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

Hallo Marsu,
ich glaube ich habe das Ganze eine wenig verwirrend beschrieben, daher nochmal eine Zusammenfassung.
In einem Bericht habe ich das „Diagramm2“ eingefügt. Die Farben der Balken im Diagramm sollen variabel angepasst werden können. Daher habe ich die Tabelle „tb_Farbtabelle“ mit dem Feld „Farbwert“ angelegt, welche beim Öffnen/Formatieren des Berichtes mit dem Code unter #23 abgefragt wird.
Beim Öffnen des Berichtes werden die Balken entsprechend der Farbwerte in der Tabelle korrekt angezeigt. Ändere ich einen Farbwert in der Tabelle, so wird beim nächsten Öffnen des Berichtes diese Änderung vom Diagramm nicht übernommen, es sei denn ich öffne den Bericht zuvor im Entwurf. Von da an wird die Farbänderung im Diagramm wieder korrekt angezeigt.

__________________

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

Wenn den der Datensatz mit dem geänderten Farbwert gespeichert ist,
kann ich das so nicht nachvollziehen bzw. ungesehen glauben.

Kannst die betreffenden Objekte in eine Bsp.-Datei packen.
Ich würde das gerne sehen.
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.04.2014, 14:45   #26
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
hier eine reduzierte Version.
Angehängte Dateien
Dateityp: zip Testdiagramm3.zip (238,9 KB, 5x aufgerufen)

__________________

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

Für mich, dahoam müsste es eine mdb sein.
Auch die Themenüberschrift zeigt Access 2003 an?!?
Marsu65 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2014, 08:16   #28
Broom
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Marsu,
ich glaube ich habe den Grund gefunden. Den Bericht habe ich ursprünglich mit:
Code:

DoCmd.OpenReport stDocName, acViewPreview
(Bericht2 anzeigen) geöffnet. In dieser Ansicht wird die Farbänderung angezeigt.
Aus irgendwelchen Gründen, habe ich dies umgestellt (Bericht1 anzeigen) auf:
Code:

DoCmd.OpenReport stDocName, acViewReport
In dieser Ansicht wird die Farbänderung nicht übernommen, warum auch immer.

__________________

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

Hier nochmal die Datenbank in mdb-Format.
Angehängte Dateien
Dateityp: zip Testdiagramm3.zip (60,3 KB, 5x aufgerufen)

__________________

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

Zitat:

In dieser Ansicht wird die Farbänderung nicht übernommen, warum auch immer.

Ganz einfach, weil die Format- und Print-Ereignisse in der Berichtsansicht nicht ausgelöst werden.

Geändert von Marsu65 (15.04.2014 um 09:15 Uhr).
Marsu65 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 13:22 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.