Die Daten müssen nun immer in dieser Reihenfolge angezeigt werden, außerdem dürfen keine Datensätze gelöscht werden oder die Werte in der zu kumulierenden Spalte geändert werden, da sonst das Ergebnis nicht mehr stimmt. Wenn Sie etwa den Wert der zweiten Zeile von 5 <\/b>auf 4 <\/b>ändern, stimmen die kumulierten Werte der zweiten und dritten Zeile nicht mehr. Gleiches gilt, wenn Sie einen der Datensätze löschen. Nur beim letzten Datensatz wirkt sich dies nicht fehlerhaft aus.<\/p>\n
In einer Abfrage kann man durch geschickten Einsatz von Berechnungsformeln dafür sorgen, dass die kumulierten Werte dynamisch erzeugt werden und dass sich änderungen an den Daten oder auch das Hinzufügen oder Löschen von Datensätzen nicht in Form von Fehlern auswirken, sondern sich allenfalls die Spalte mit den kumulierten Werten ändert.<\/p>\n
Beispieltabellen<\/h2>\n
Wir verwenden die Tabelle tblAusgaben <\/b>als Beispiel, die neben dem Primärschlüsselfeld noch ein Feld mit dem Datum, den Zweck und den Betrag der Ausgabe enthält sowie ein Feld mit einer Kategorie, das auf eine weitere Tabelle verweist (siehe Bild 1).<\/p>\n
Bild 1: Tabelle für Beispielzwecke<\/p>\n Wir schauen uns als Erstes an, wie wir die Zahlen in Tabellen aufsummieren können. Dazu haben wir der Tabelle tblAusgaben <\/b>ein paar Datensätze hinzugefügt. Außerdem legen wir dort noch ein Feld namens LaufendeSumme <\/b>an (siehe Bild 2).<\/p>\n Bild 2: Tabelle noch ohne laufende Summe<\/p>\n Wer sich mit VBA und dem DAO-Objektmodell auskennt, kann die Spalte LaufendeSumme nun recht schnell füllen. Dazu verwenden wir beispielsweise die Prozedur aus Listing 1.<\/p>\n Listing 1: Aufsummieren der Werte des Feldes einer Tabelle<\/p>\n Hier deklarieren und füllen wir ein Recordset mit den Daten der Tabelle tblAusgaben<\/b>. Dadurch, dass wir keine Sortierung angeben, werden die Datensätze nach dem Primärschlüsselwert sortiert. Danach durchlaufen wir die Datensätze in einer Do While<\/b>-Schleife und versetzen dabei zunächst den aktuellen Datensatz mit der Edit<\/b>-Methode in den Bearbeitungsmodus. Dann addieren wir den Wert des Feldes rst!Beitrag <\/b>zu dem in der Variablen curLaufendeSumme <\/b>gespeicherten Wert.<\/p>\n Im ersten Durchlauf ist dieser noch 0<\/b>, sodass der Wert nach dem Ausführen der Anweisung den Wert des Feldes Betrag <\/b>enthält. Bei den folgenden durchlaufen wird hier jeweils der Wert des Feldes Betrag <\/b>hinzuaddiert. Außerdem landet dieser Wert im Feld LaufendeSumme <\/b>des jeweiligen Datensatzes. Die Update<\/b>-Methode speichert die änderungen und die MoveNext<\/b>-Methode verschiebt den Datensatzzeiger auf den nächsten Datensatz, damit dieser im folgenden Durchlauf der Do While<\/b>-Schleife verarbeitet werden kann.<\/p>\n Das Ergebnis nach dem Ausführen der Prozedur (etwa durch Betätigen der Taste F5<\/b>, während sich die Einfügemarke in der Prozedur befindet) finden Sie in Bild 3.<\/p>\n Bild 3: Tabelle mit Werten im Feld LaufendeSumme<\/p>\n Wenn Sie nun feststellen, dass Sie vergessen haben, eine Ausgabe für ein zurückliegendes Datum, etwa am 2.1.2019, einzutragen, landet der neue Datensatz zwar ganz unten.<\/p>\n Das ist kein Problem, aber Sie wollen die Ausgaben nach dem Datum sortiert sehen und nicht nach der Reihenfolge des Anlegens. Sortieren Sie die Daten also nach dem Anlegedatum, erscheint der neue Datensatz zwischen den anderen Datensätzen (siehe Bild 4).<\/p>\n Bild 4: Neuer Datensatz zwischen den anderen Datensätzen<\/p>\n Wir müssen die Prozedur FeldAufsummieren <\/b>also nochmals aufrufen. Diese liefert dann allerdings ein in dieser Sortierung falsches Ergebnis, weil die Prozedur in der Reihenfolge der Primärschlüsselwerte aufsummiert, wir aber die Summe nach dem Feld Ausgabedatum <\/b>sortiert benötigen (siehe Bild 5).<\/p>\n Bild 5: Falsche Reihenfolge beim Aufsummieren<\/p>\n Also ändern wir die Prozedur, indem wir die Zeile zum Erstellen des Recordset-Objekts wie folgt um eine ORDER BY<\/b>-Klausel erweitern:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Tabelle](\"..\/tl_files\/images\/pic_432_001.png\")
<\/a><\/p>\nKumulieren in Tabellen<\/h2>\n
<\/a><\/p>\nLaufende Summe per VBA<\/h2>\n
Public Sub <\/span>FeldAufsummieren()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>curLaufendeSumme As Currency<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblAusgaben\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n rst.Edit\r\n curLaufendeSumme = curLaufendeSumme + rst!Betrag\r\n rst!LaufendeSumme = curLaufendeSumme\r\n rst.Update\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nProblem: Neue Datensätze<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nSet<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblAusgaben ORDER BY Ausgabedatum\", dbOpenDynaset)<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t