Office: (Office 2013) Diagramm mit VBA erstellen und bearbeiten

Was verstehst du unter einer weiteren "Ausführung"?
Wird irgendwo die RowSource-Eigenschaft des Diagramms neu gesetzt?
Zeige doch bitte deine gesamte Prozedur bzw. den für das Diagramm relevanten Teil davon.

 

Hallo,

hab jetzt herausgefunden, wann der Fehler auftritt. Er tritt auf, wenn eine Abfrage keine Werte zurückgibt und bleibt dann aber auch für Abfragen, die Werte zurückgeben.

 

Ja, wird neu gesetzt.

Das ist der Code

b = " SELECT Reklamationen.Fehlerart As Fehlerart, COUNT(Reklamationen.Fehlerart) AS Anzahl" _
& " FROM Reklamationen" _
& " WHERE Reklamationen.Str='" & Presse & "' AND Reklamationen.[Erfassungs-Datum] BETWEEN '" & Beginn & "' AND '" & Ende & "' GROUP BY Reklamationen.Fehlerart;"




Me!FehlerDiagramm.RowSource = b
On Error GoTo Catch
objChart2.HasTitle = True
objChart2.ChartTitle.Text = "Prozentuale Verteilung der Fehlerarten der PRESSE " & Presse & ""
objChart2.ChartTitle.Font.Size = 12
Exit Sub

Catch: MsgBox "Die Abfrage hat keine Daten geliefert. Versuchen Sie es erneut oder wählen Sie einen größeren Abfragezeitraum."

 

1. Wieso ist das Setzen des Titels überhaupt abhängig von den Daten? (sehr ungünstig)
2. Wieso bleibt der Fehler bestehen, auch wenn Daten zurückgegeben werden?*wink.gif*

 

Steht so in Beitrag #13 *wink.gif*

Lösungsmöglichkeit:
Nutze die UPDATED-Ereignisbehandlung des Diagramms.
Bsp:
Code:

PS:
Die grundsätzliche Alternative wäre, vor Zuweisung der RowSource an das Diagramm
zu prüfen, ob der SELECT-String Daten liefert, und wenn nicht, den User darauf hinzuweisen.

PPS:

Die Gründe werden in der internen OLE-Verarbeitung liegen.