Das Druckdatum von Rechnungen ermitteln und speichern

Ich habe mit Access ein einfaches Fakturierungstool entwickelt. Das m÷chte ich gern verbessern, indem sich Access merkt, welche Rechnungen bereits gedruckt sind und welche nicht. Das soll am besten ⁿber das Datum des Rechnungsdrucks in einer entsprechenden Spalte der Tabelle geschehen.Wie mu▀ ich bei der Sache vorgehen?

ZunΣchst erweitern Sie die Tabelle um die Spalte ╗Druckdatum½. Dazu ÷ffnen Sie die Entwurfsansicht und ergΣnzen unter den anderen Felddefinitionen das Feld ╗Druckdatum½ vom Typ ╗Datum/Uhrzeit½. Achten Sie auch darauf, da▀ die Tabelle einen PrimΣrschlⁿssel besitzt. Im Beispiel HCHIP-Code ACCRECH erfolgt der Druck jeder Rechnung einzeln. Den ausl÷senden Impuls gibt dabei der Anwender, indem er auf dem Formular eine SchaltflΣche anklickt. Dabei ruft er eine einfache Funktion auf, die unter anderem folgende Anweisungen enthΣlt: Diese Funktion druckt die aktuell im Formular angezeigte Rechnung und aktualisiert danach das Feld ╗Druckdatum½. Die erste Befehlszeile gibt den entsprechenden Bericht ╗ReportRechnung½ aus. Der Parameter ╗acViewNormal½ bewirkt, da▀ die Rechnung direkt ausgedruckt wird, ohne da▀ zuvor eine Seitenansicht erscheint. Da der zweite Parameter hier bedeutungslos ist, folgt nur ein Komma. Der letzte Parameter definiert eine Bedingung, nach der Access bestimmte DatensΣtze zur Ausgabe auswΣhlt. Im Beispiel ist dabei ausschlie▀lich die Rechnung ausgegeben, deren PrimΣrschlⁿssel mit dem PrimΣrschlⁿssel der im Formular angezeigten Rechnung ⁿbereinstimmt. Mit Hilfe der zweiten Befehlszeile wird dann das aktuelle Datum ╗Date½ in das Feld ╗Druckdatum½ des Formulars ╗FormRechnung½ ⁿbertragen. Die dritte Zeile schreibt die ─nderung des Druckdatums in die Tabelle zurⁿck. Damit hat sich Access den Rechungsdruck gemerkt; es kann allerdings nicht erkennen, ob der Drucker die Rechnung korrekt ausgedruckt hat.

Teil-Listing ╗Accrech½

DoCmd.OpenReport
"ReportRechnung", acViewNormal, , "[RECHNUNG] = Forms![FormRechnung]![RECHNUNG]"
Forms![FormRechnung]!  [Druckdatum] = Date
Forms![FormRechnung].Refresh