Supportnet / Forum / Datenbanken
Bericht und Tabellen
Frage
Hallo Leute, ich komme mal wieder mit einem Problem nicht klar, vielleicht kann mir da einer Helfen.
Hier die Frage:
Wenn ich abends die Berichte ausdrucke, ist es dann auch möglich die Summen im Bericht in einer Tabelle abspeichern zu lassen, bzw. eine vorhandene Tabelle als neuen Datensatz hinzu zufügen.
Ist das irgendwie möglich?
Danke für die antworten
Antwort 1 von Teddy
Zwei Möglichkeiten :
1) Speichern im Bericht
geht, erfordert aber VBA-Kenntnisse
2) Summe zusätzlich in einer Abfrage ermitteln und eine Anfügeabfrage daraus machen
Gruß
Teddy
1) Speichern im Bericht
geht, erfordert aber VBA-Kenntnisse
2) Summe zusätzlich in einer Abfrage ermitteln und eine Anfügeabfrage daraus machen
Gruß
Teddy
Antwort 2 von oliverV
Hallo Roy,
das Problem sehe ich darin, die Summe aus dem Bericht auszulegen.
Ich würde folgendermaßen vorgehen.
Erstelle ein Formular anlog dem Bericht, indem du dir die Summe berechnen läßt.
Erstelle nun im Formular eine Schaltfläche zum Öffnen des Bericht (kannst du mit dem Assistenten machen).
Trage nun zwischen DoCmd.OpenReport... und der Exit-Anweisung schreibe sinngemäß folgenden Code:
[Code]
Dim db As Database
Dim rs As Recordset
Dim Druckdatum As Date
Dim Summenfeld As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Deine_Tabelle")
rs.AddNew
rs![Druckdatum] = Date
rs![Wert] = Forms!Dein_Berichtsformular!Dein_Summenfeld
rs.Update
[/Code]
Da du den Bericht ja nur einmal am Tag ausdruckst und auch nur pro Tag einen Datensatz haben möchtest, solltest du in der Tabelle beim Feld „Druckdatum“ einen Index (ohne Duplikat) setzten, sodass ein mehrfaches anlegen des gleichen Tages verhindert wird.
Gruß
Oliver
das Problem sehe ich darin, die Summe aus dem Bericht auszulegen.
Ich würde folgendermaßen vorgehen.
Erstelle ein Formular anlog dem Bericht, indem du dir die Summe berechnen läßt.
Erstelle nun im Formular eine Schaltfläche zum Öffnen des Bericht (kannst du mit dem Assistenten machen).
Trage nun zwischen DoCmd.OpenReport... und der Exit-Anweisung schreibe sinngemäß folgenden Code:
[Code]
Dim db As Database
Dim rs As Recordset
Dim Druckdatum As Date
Dim Summenfeld As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Deine_Tabelle")
rs.AddNew
rs![Druckdatum] = Date
rs![Wert] = Forms!Dein_Berichtsformular!Dein_Summenfeld
rs.Update
[/Code]
Da du den Bericht ja nur einmal am Tag ausdruckst und auch nur pro Tag einen Datensatz haben möchtest, solltest du in der Tabelle beim Feld „Druckdatum“ einen Index (ohne Duplikat) setzten, sodass ein mehrfaches anlegen des gleichen Tages verhindert wird.
Gruß
Oliver
Antwort 3 von firestar
Danke an alle
Funktionier so wie es soll, juhuuuuuuuu
Funktionier so wie es soll, juhuuuuuuuu