![\"Werte](\"..\/tl_files\/images\/pic_725_004.png\")
<\/a><\/p>\nBild 1: Werte der Tabelle tblRechnungsstatus<\/p>\n
Für jeden Status gelten andere Regeln:<\/p>\n
- \n
- Entwurf:<\/b> Ein Entwurf darf bearbeitet, gestellt und gelöscht werden. Er hat noch keine Rechnungsnummer, deshalb entsteht beim Löschen keine Lücke in der Nummernfolge.<\/li>\n
- Gestellt:<\/b> Eine gestellte Rechnung darf nur noch angesehen und storniert werden. Das Löschen ist nicht erlaubt, denn ihre Nummer ist vergeben, und die Rechnung muss aufbewahrt werden.<\/li>\n
- Storniert:<\/b> Eine stornierte Rechnung darf nur noch angesehen werden.<\/li>\n<\/ul>\n
Wir setzen diese Regeln in zwei Formularen um: im Rechnungsformular frmRechnung<\/b>, das je nach Status schreibgeschützt wird, und im Kundendetailformular frmKundendetail<\/b>, in dem wir die Schaltflächen zum Stornieren und Löschen unterbringen.<\/p>\n
Das Rechnungsformular abhängig vom Status sperren<\/h2>\n
Access bietet für Formulare drei Eigenschaften, mit denen wir steuern, was der Benutzer mit den Daten tun darf: Bearbeitungen zulassen<\/b>, Anfügen zulassen<\/b> und Löschen zulassen<\/b>. In VBA heißen sie Allow-Edits<\/b>, AllowAdditions<\/b> und AllowDeletions<\/b>.<\/p>\n
Im Artikel Rechnungsverwaltung: Rechnungen eines Kunden<\/b> (www.access-basics.de\/723<\/b>) haben wir diese Eigenschaften im Eigenschaftenblatt fest auf Nein<\/b> gestellt. Hier brauchen wir sie dynamisch: Ob eine Rechnung bearbeitet werden darf, hängt von ihrem Status ab, wobei sich der Status von Rechnung zu Rechnung unterscheiden kann.<\/p>\n
Das passende Ereignis ist Beim Anzeigen<\/b> des Formulars. Es tritt immer dann ein, wenn ein Datensatz zum aktuellen Datensatz wird, also auch beim Öffnen des Formulars.<\/p>\n
Die Prozedur Form_Current<\/b> dazu gibt es in frmRechnung<\/b> bereits:<\/p>\n
Im Artikel Rechnungsverwaltung: Die Rechnungsnummer<\/b> (www.access-basics.de\/724<\/b>) aktivieren oder deaktivieren wir darin die Schaltfläche cmdRechnungStellen<\/b>, je nachdem, ob die Rechnung eine Rechnungsnummer hat (siehe Bild 2).<\/p>\n
![\"Rechnung](\"..\/tl_files\/images\/pic_725_005.png\")
<\/a><\/p>\nBild 2: Rechnung mit deaktivierter Schaltfläche cmdRechnungStellen<\/p>\n
Öffne den VBA-Code von frmRechnung<\/b> und ersetze die Prozedur Form_Current<\/b> durch die folgende Prozedur:<\/p>\n
Private Sub <\/span>Form_Current()\r\n Dim <\/span>bolEntwurf As Boolean<\/span><\/span>\r\n bolEntwurf = (Nz(Me!RechnungsstatusID, 1) = 1)\r\n Me.AllowEdits = bolEntwurf\r\n With<\/span> Me!sfmRechnungspositionen.Form\r\n .AllowEdits = bolEntwurf\r\n .AllowAdditions = bolEntwurf\r\n .AllowDeletions = bolEntwurf\r\n End With<\/span>\r\n Me!cmdRechnungStellen.Enabled = bolEntwurf\r\nEnd Sub<\/span><\/pre>\nDie Prozedur ermittelt zuerst, ob die angezeigte Rechnung ein Entwurf ist. Der Ausdruck in Klammern liefert True<\/b>, wenn RechnungsstatusID<\/b> den Wert 1<\/b> hat, anderenfalls False<\/b>.<\/p>\n
Die Funktion Nz<\/b> ersetzt den Wert Null<\/b> durch 1<\/b>, falls das Feld Rechnungs-statusID<\/b> noch keinen Wert enthält. Damit bleibt ein neuer Datensatz bearbeitbar.<\/p>\n
Dann übertragen wir das Ergebnis auf das Hauptformular und auf das Unterformular mit den Positionen. Im Hauptformular genügt AllowEdits<\/b>. Neue Rechnungen legen wir nicht in frmRechnung<\/b> an, und gelöscht wird dort nicht.<\/p>\n
Im Unterformular setzen wir alle drei Eigenschaften, damit der Benutzer bei einer gestellten Rechnung keine Positionen hinzufügen oder entfernen kann. Auf das Formular im Unterformular-Steuerelement greifen wir über dessen Eigenschaft Form<\/b> zu. Mit der With<\/b>-Anweisung schreiben wir den Ausdruck nur einmal.<\/p>\n
Zum Schluss steuern wir die Schaltfläche cmdRechnungStellen<\/b> jetzt über den Status statt über die Rechnungsnummer: Sie ist nur bei einem Entwurf aktiv.<\/p>\n
Die Prüfung in cmdRechnungStellen_Click<\/b> aus dem Artikel Rechnungsverwaltung: Die Rechnungsnummer<\/b> (www.access-basics.de\/724<\/b>) bleibt als zusätzliche Sicherung bestehen.<\/p>\n
Die Sperre nach dem Stellen auslösen<\/h2>\n
Wir probieren es aus: Öffne über frmKundendetail<\/b> einen Kunden, lege über Neue Rechnung<\/b> eine Rechnung an, füge im Unterformular des Rechnungsformulars eine Position hinzu und klicke auf Rechnung stellen<\/b>.<\/p>\n
Die Schaltfläche Neue Rechnung<\/b> heißt weiter unten in diesem Artikel Neu<\/b>.<\/p>\n
Die Rechnung erhält ihre Nummer, und die Schaltfläche Rechnung stellen<\/b> wird deaktiviert, das Formular lässt sich aber weiterhin bearbeiten.<\/p>\n
Das Ereignis Beim Anzeigen<\/b> tritt nur ein, wenn ein anderer Datensatz zum aktuellen Datensatz wird. Das Speichern des aktuellen Datensatzes löst es nicht aus.<\/p>\n
Deshalb rufen wir Form_Current<\/b> am Ende von cmdRechnungStellen_Click<\/b> selbst auf. Dort steht bisher die Anweisung Me.cmdRechnungStellen.Enabled = False<\/b>, die wir durch den Aufruf ersetzen.<\/p>\n
Die Schaltfläche wird dabei deaktiviert, obwohl sie gerade angeklickt wurde und den Fokus hat. Access lässt das zu, danach besitzt aber kein Steuerelement mehr den Fokus.<\/p>\n
Damit das nicht passiert, setzen wir den Fokus vorher auf die Schaltfläche cmdOK<\/b>. Ersetze die Anweisung am Ende der Prozedur cmdRechnungStellen_Click<\/b> durch diese beiden Zeilen:<\/p>\n
Me!cmdOK.SetFocus\r\n Call<\/span> Form_Current<\/pre>\nDie Prozedur sieht nun wie in Listing 1 aus.<\/p>\n
Private Sub <\/span>cmdRechnungStellen_Click()\r\n If <\/span>Me!RechnungsstatusID <> 1 Then<\/span>\r\n MsgBox<\/span> \"Diese Rechnung ist bereits gestellt.\", vbExclamation\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Me.Dirty Then<\/span> Me.Dirty = False<\/span>\r\n If <\/span>DCount(\"*\", \"tblRechnungspositionen\", \"RechnungID = \" & Me!RechnungID) = 0 Then<\/span>\r\n MsgBox<\/span> \"Die Rechnung enthält noch keine Positionen.\", vbExclamation\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>MsgBox<\/span>(\"Rechnung jetzt stellen? Danach lässt sie sich nicht mehr ändern.\", vbQuestion + vbYesNo) = vbNo Then<\/span> Exit Sub<\/span>\r\n End If<\/span>\r\n Me!Rechnungsdatum = Date\r\n Me!Faelligkeitsdatum = DateAdd(\"d\", 14, Date)\r\n Me!Rechnungsnummer = NaechsteRechnungsnummer(Me!Rechnungsdatum)\r\n Me!RechnungsstatusID = 2\r\n Me.Dirty = False<\/span>\r\n MsgBox<\/span> \"Die Rechnung wurde mit der Nummer \" & Me!Rechnungsnummer & \" gestellt.\", vbInformation\r\n Me!cmdOK.SetFocus\r\n Call<\/span> Form_Current\r\nEnd Sub<\/span><\/pre>\nListing 1: Die überarbeitete Prozedur für das Ereignis Beim Anzeigen des Formulars frmRechnung<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t - Gestellt:<\/b> Eine gestellte Rechnung darf nur noch angesehen und storniert werden. Das Löschen ist nicht erlaubt, denn ihre Nummer ist vergeben, und die Rechnung muss aufbewahrt werden.<\/li>\n