Office: (Office 2003) Bericht Summe je Seite

Habe DB und pro Datensatz Gewicht in Gramm (Feldname: Gewicht, Felddatentyp: Zahl)
Bei Bericht sind PRO Seite 25 Datensätze angeführt sind.
Mein Wunsch ist - nach 25 Datensätze IMMER eine (Teil-/Zwischen-)SUMME dieser 25 DS Gewicht
- wenn möglich im Berichtsfuß oder sonst im Detailbereich in einem Feld unten abzulesen.
Summe in Gramm dann bitte formatiert z.B. 1.234,56 "kg" und nicht mehr als 123.456 Gramm
Wer kann mir helfen wie das möglich ist.

:)

 

Hallo und Wilkommen im Forum *hands
lies einmal in meiner Doc s. Fusszeile unten Fechts
Seite 346
10.60 Funktion „Sum“ Summe
wenn Du interesiert bist ich habe noch eine Muster MDB dazu

 

Hallo SI-SI,

schau dir mal DonKarls FAQ 5.7. an.
donkarls Access-Seiten
Die Anzahl 25 Datensätze würde ich über die Seitenränder oben und unten steuern.
Die Formatierung siehe Format-Funktion in der Online-Hilfe.

Gruß Josef

 

*upps Danke, aber WO kann ich diese Seite 346 finden? Bitte um Link!
Ich würde gerne PRO SEITE des Berichtes (immer nach 25 DS!) eine (eigene) Summe haben - keine fortlaufende Summe.

 

https://dl.dropbox.com/u/46590638/AC...unterlagen.zip

 

Vielen Dank für die TOLLEN UNTERLAGEN, da muss ich mich aber erst DURCHARBEITEN. Ich bin da noch nicht so perfekt.
Habe gut funktionierende Bücher DB, aber mit VBA bin ich NOCH nicht so vertraut. Entschuldigung wenn ich da nochmals nerve.

Gibts da eine SIMPLE Lösung für Dummies?
Zwischensumme im Seitenfuß (Gewicht pro DS in GRAMM z.B. 2oo"g"

Seitenfuß
Zwischensumme (nach 25 DS = 1 Seite) NUR diese 25 DS bei
Gewicht eine SUMME (Zwischensumme NUR über diese 25 DS)

Berichtsfuß
Endsumme / Gesamtsumme Gewicht =Summe([Gewicht]) ist OK!
dzt Format #.### "g" 10.035 g

Bitte um Formatbekanntgabe für Anzeige als 100,35 kg (also in KG)

 

Hallo SI-SI,

erstelle erst mal alle Felder und Codes nach DonKarl's FAQ Schritt 1 bis 4.
Dann erstelle im Formularfuß ein ungebundenes Textfeld mit dem Namen "Seitensumme".
Dann der Code für die verschiedenen Ereignisse:
Code:

Die Formatierung der Anzeige überlasse ich dir. *wink.gif*
Bemühe dazu doch bitte die Online-Hilfe bezüglich der Format-Eigenschaft eines Textfeldes.

Gruß Josef

 

*Smilie DANKE erstmals, werde es heute tagsüber durchführen. Muss jetzt schlafen!
DANKE!!!! *Smilie

 

Habe es heute wie empfohlen durchgeführt. Leider kommt immer Fehlermeldung:

Bücherverzeichnis kann das Makro 'Me!Uebertrag = Me!Zwischensumme' nicht finden.
Entweder es existiert das Makro (oder dessen Makrogrujppe) nicht, oder das Makro ist neu und wurde noch nicht gespeichert.

Ich habe NOCH kein MAkro erstellt. Wie müsste das bitte lauten.

 

Formatierung ist nun ok, habe es geschafft.

Bei 'Me!Uebertrag = Me!Zwischensumme' kommt immer Fehlermeldung!

Bücherverzeichnis kann das Makro 'Me!Uebertrag = Me!Zwischensumme' nicht finden.
Entweder es existiert das Makro (oder dessen Makrogrujppe) nicht, oder das Makro ist neu und wurde noch nicht gespeichert.

Ich habe NOCH kein MAkro erstellt. Wie müsste das bitte lauten?

 

Formatierung geschafft und ok.

Bücherverzeichnis kann das Makro 'Me!Uebertrag = Me!Zwischensumme' nicht finden.

Welches Makro muss ich da vorher erstellen?

 

Hallo SI-SI,

ich kann mir die Fehlermeldung auch nicht erklären.
Poste mal deinen kompletten Code, der in deinem Bericht steht. Vielleicht kann man dann was erkennen.

[Edit]
Überprüfe bitte noch Folgendes:
Klicke im Entwurfsmodus des Berichts auf
Seitenkopf: Ist der Name "Seitenkopfbereich", und steht "Beim Formatieren" "[Ereignisprozedur]" drin ?
Seitenfuß: Ist der Name "Seitenfußbereich", und steht "Beim Formatieren" "[Ereignisprozedur]" drin ?
[/Edit]

Gruß Josef

 

SUPER, jetzt komm zu Bericht-Ansicht.

VB habe ich folgenden Eintrag
------------------------------------------------------------------
Option Compare Database
Option Explicit

Dim lngÜbertrag As Long

Private Sub Seitenfußbereich_Format(Cancel As Integer, FormatCount As Integer)

Me!Uebertrag = Me!Zwischensumme

End Sub


--------------------------------------------------------------------

Zwei Fragem habe ich noch,

Zwischensumme wird nur auf der LETZTEN SEITE im Berichtsfuß angezeigt,
bei allen vorherigen ca.100 Seiten wird NICHTS angezeigt.

Übertrag wird NUR auf der ERSTEN SEITE im Berichtskopf angezeigt,
bei allen nachfolgenden ca. 100 Seiten wird NICHTS angezeigt.
__________________________________________________

Meine Felder lauten wie folgt:

Habe ungebundenes Textfeld mit NAMEN Zwischensumme
Steuerelement =[LaufSumme]/1000
Diese ZWISCHENSUMME wird aber nur auf der letzten Seite angeigt
alle vorherigen Seiten keine Anzeige der laufenden Summe im Seitenfuß

Ungebundenes Textfeld mit NAMEN Uebertrag
Seuerelement KEIN EINTRAG
Dieser ÜBERTRAG wird aber nur auf der ERSTEN SEITE angezeigt,
alle folgenden Seiten keine Anzeige der laufenden Summe im Seitenkopf

Habe noch wie empfohlen unbebundes Textfeld mit NAMEN Seitensumme
Steuerelement =[LaufSumme]/1000
zeigt fortlaufende Summe aller Seiten an.
Zeigt bei JEDER SEITE des Berichtsfuß die fortlaufende Summe an!

Ungebundes Textfeld mit NAMEN Karton
Steuerelement KEIN EINTRAG (dzt)
Hier wäre mein Traum dass Summe nach 50 Datensätzen = alle 2 Seiten
angezeigt wird. (Das aber nur wenn es kein allzugroßer zus.Aufwand)

Es würde jetzt noch fehlen, dass bei JEDER SEITENSUMME
nur die SUMME der Datensätze von dieser einen Seite angezeigt wird.

ICh glaube das Ziel ist schon nahe, bitte nochmals um Unterstützung!
DANKE im Voraus! *biggrin.gif*

 

OK SI-SI,

wir machen alles nochmal schrittweise durch:

Bericht - Entwurfsansicht - Seitenkopf anklicken - Ereignis "Beim Formatieren" [Ereignisprozedur] auswählen - Knopf daneben mit den 3 Punkten anklicken.
Der Cursor blinkt in folgender VBA-Prozedur für den Seitenkopf, die du ausfüllen musst, bis sie so aussieht:
Code:

Jetzt den gleichen Vorgang für den Seitenfuß ausführen.
Der Code für den Seitenfuß muss dann so aussehen:
Code:

Der gesamte Code für das Berichtsmodul sieht dann anschließend so aus, wie in meinem Beitrag#7.
Vergleiche jetzt diesen Code einfach mal mit deinem Code, ob sie übereinstimmen.

Versuch's mal. Ich bin gespannt.
Der Code funktioniert bei mir, und wir haben beide A2003, dann müssen wir das doch auch bei dir hinbringen. *wink.gif*

Dazu kann ich dir keine Lösung anbieten.


Gruß Josef

 

Bei Seitenfuß (Nach Eintrag des Codes) kommt Fehlermeldung

Laufzeitfehler '2448'
Sie können diesem Objekt keine Wert zuweisen.


Wenn auf Debuggen klicke, dann

If Me.Page = 1 Then
Me!Seitensumme = Me!Zwischensumme (GELB HINTERLEGT)

Komme nicht mehr zu Bericht-Vorschau

Habe Eintrag zwei bei Seitenfuß wieder entfernt - dann wieder zu Vorschau

Wenn ich VB-Fenster schließe - MELDUNG Debugger wird beendet

Bei Bericht hat sich nichts geändert
Übertrag nur auf Seite 1 im Berichtskopf
Zwischensummen nur auf letzter Seite im Berichtsfuß

Habe genau nach Anweisung gehandelt, mache ich noch etwas falsch?
Bitte nochmals um Antwort
Danke im voraus lg S.