|
Ich möchte in einem Bericht die Fälligkeit einer Rechnung anzeigen. Ich habe das Datum der Rechnungsstellung als Datum, aber leider die Anzahl der Tage, die ich aufaddieren muss, nur innerhalb eines Abschlusstextes der Rechnung. Alle zur Zeit dort möglichen Texte sind:
T_SchlußRechnungen
| Schluß |
Zahlungsbedingungen:
Zahlbar innerhalb von 14 Tagen netto nach Rechnungsdatum. |
Zahlungsbedingungen:
Zahlbar innerhalb von 30 Tagen netto nach Rechnungsdatum. |
Zahlungsbedingungen:
Zahlbar innerhalb von 60 Tagen netto nach Rechnungsdatum. |
| Zahlungsbedingungen: Zahlbar innerhalb von 14 Tagen abzgl. 2% Skonto/30 Tage netto nach Rechnungsdatum. |
| Payment within 14 days net. |
| Payment within 30 days net. |
| Payment within 60 days net. |
Die vierte Zeile kann erstmal ignoriert werden, ich werde vermutlich erfragen können ob die im Bericht 14 oder 30 Tage ergeben soll.
Beim Button zum Öffnen des Berichts mache ich folgendes:
Set db = CurrentDb
Criteria = CStr(Jahr)
Set rst = db.OpenRecordset("Select * FROM A_RechnungenDruckOffen WHERE CStr(Jahr) LIKE '" & Criteria & "' ")
If rst.RecordCount = 0 Then MsgBox "Keine Daten vorhanden!": Exit Sub
db.Execute ("DELETE * FROM T_TmpRechDruckOffen ")
db.Execute ("INSERT INTO T_TmpRechDruckOffen SELECT * FROM A_RechnungenDruckOffen WHERE CStr(Jahr) = '" & Criteria & "'")
DoCmd.OpenReport "B_RechnungenDruckOffenFällig", acViewPreview
Ich hatte überlegt irgendwie die Anzahl der Tage aus dem Schlusstext zu filtern und das Ergebnis entweder in eine extra Spalte meiner temporären Tabelle T_TmpRechDruckOffen zu schreiben und dann im Bericht das Datum mit den Tagen zu addieren, oder gleich das Fälligkeitsdatum zu errechnen und in der Tabelle zu speichern.
Wie ginge das am besten oder gibt es einen besseren Weg?
Danke!
|