Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Seitensumme fr jede Seite

Seitensummen sind gerne gesehen und leicht zu berechnen. Interessanter wird es, wenn die Summe nicht ber mehrere Seiten, sondern fr jede Seite neu berechnet werden soll. Wie Sie das bewerkstelligen knnen, zeigt nachfolgendes Beispiel.

Beispieldatenbank

Als Beispieldatenbank wird die Nordwind-Datenbank verwendet. Der dort enthaltene Bericht namens Rechnung bildet die Grundlage fr die nachfolgend beschriebenen Schritte.

Bericht anpassen

Der Bericht Rechnung der Nordwinddatenbank enthlt im Detailbereich ein Feld namens Endsumme, dass je Seite im Fubereich aufsummiert werden soll.

Dazu bentigen Sie ein wenig VBA und ein entsprechendes Feld im Fubereich. Legen Sie daher ein neues Feld namens txtSeitensumme im Fubereich des Berichts an.

ffnen Sie dann das Klassenmodul des Berichts, indem Sie in dessen Entwurfsansicht wechseln und im Men den Eintrag Ansicht/Code auswhlen.

Legen Sie ganz oben im nun VBA-Editor erscheinenden Klassenmodul die folgende Zeile an, die eine Variable namens Seitensumme deklariert:

Dim Seitensumme As Integer

Nun werden drei Ereigniseigenschaften angelegt. Die erste dient dazu, die Variable Seitensumme beim Formatieren jeder neuen Seite wieder auf den Wert 0 zu setzen. Die zweite addiert den Inhalt des Feldes Endsumme im Detailbereich zum aktuellen Wert der Variablen Seitensumme hinzu. Die dritte und letzte wird beim Formatieren des Seitenfues ausgelst und schreibt den Wert der Variablen Seitensumme in das Textfeld txtSeitensumme.

Die drei Prozeduren sehen folgendermaen aus:

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

    Seitensumme = Seitensumme + Me!Endpreis

End Sub

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

    Me!txtSeitensumme = Seitensumme

End Sub

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

    Seitensumme = 0

End Sub

Nach dem Anlegen der Prozeduren zeigt das Textfeld txtSeitensumme immer die Summe der Werte des Feldes Endsumme fr die aktuelle Seite an.

© 2003-2015 André Minhorst Alle Rechte vorbehalten.