<\/p>\n
Die flexible Handhabung von Bestellungen, Lieferungen und Rechnungen basiert auf einem ausgefeilten Datenmodell. Genauso wichtig ist die Bereitstellung einer Benutzeroberfläche, die alle Möglichkeiten des Datenmodells ausschöpft. In diesem Beitrag lernen Sie die Formulare kennen, die das Aufnehmen von Bestellungen nach Kunde und Kostenstelle, die Erfassung von Lieferungen und die flexible Erstellung von Rechnungen erlauben.<\/b><\/p>\n
Im Beitrag Flexible Bestellungen: Datenmodell <\/b>(www.access-im-unternehmen.de\/882<\/b>)haben wir das Datenmodell einer einfachen Bestellverwaltung, nämlich der Südsturm-Datenbank, so erweitert, dass Sie damit neben den eigentlichen Bestelldaten einige weitere Daten erfassen können:<\/p>\n Diese Daten werden so in Tabellen abgelegt, dass Lieferungen und Rechnungen recht flexibel verarbeitet werden können. Wenn Sie das Datenmodell aufgestellt haben, steht das Fundament – es liegt jedoch noch einige Arbeit vor Ihnen. Wir gehen einmal davon aus, dass wir ein herkömmliches Formular zur Erfassung der Bestellungen verwenden. Dieses wollen wir an dieser Stelle nicht näher beschreiben, sondern uns gleich auf die übrigen Formulare stürzen, mit denen Sie die Lieferungen und die Rechnungsstellung organisieren.<\/p>\n Der Optimalfall<\/b><\/p>\n Im besten Fall liegen immer alle bestellbaren Artikel in ausreichender Anzahl vor. Wenn Sie eine Anwendung programmieren, die diesen Fall abdecken soll, sind Sie quasi bereits fertig – Sie können die Lieferscheine und die Rechnungen direkt aus den Bestelldaten füllen und verarbeiten. Nun kommen einige von Ihnen und sagen: „Diesen Optimalfall kann es nicht geben! Niemand kann voraussehen, ob nicht irgendein Wahnsinniger auf einmal Tausende von Exemplaren eines bestimmten, schlecht lagerbaren Artikels bestellt!€ – „Doch, das geht! Haben Sie mal mit Downloadartikeln wie eBooks oder Software gehandelt€<\/p>\n Sie sehen: Nichts ist unmöglich. Wir wollen uns aber nicht auf diesen (nicht mehr allzu seltenen) Fall reduzieren, sondern etwas schaffen, mit dem auch die übrigen Menschen etwas anfangen können.<\/p>\n Wenn das Regal leer ist<\/b><\/p>\n In diesem Fall kommt früher oder später eine Bestellung, die nicht sofort komplett beliefert werden kann, weil Artikel nicht mehr in ausreichender Zahl vorrätig sind. Dies kann man auch durch eine sorgfältige Pflege der verfügbaren Artikel nicht gewährleisten. Mittlerweile hängen so viele Abnehmer wie Onlineshop, Telefonverkauf, eBay et cetera an einer Warenwirtschaft, dass es sich kaum verhindern lässt, dass ein Artikel einmal mehr verkauft wird als er vorhanden ist.<\/p>\n Doch das soll kein Problem sein: Zwar ist es für einen Kunden ärgerlich, wenn er den gewünschten Artikel nicht in der angegebenen Zeit erhält, aber besser etwas später als gar nicht.<\/p>\n Also sehen wir in der Anwendung die Möglichkeit vor, dass eine Bestellung nicht vollständig geliefert werden kann. Gleichzeitig sollten wir den Fall abfangen, dass ein Kunde zwei oder mehr Bestellungen aufgibt, die in einer einzigen Lieferung durchgeführt werden können.<\/p>\n Beim Zusammenstellen der Lieferungen betrachten wir also nicht die Bestellung eines Kunden, sondern alle bestellten und offenen Bestellungen dieses Kunden. Dabei kann es natürlich auch sein, dass ein Kunde an einem Tag eine Bestellung durchführt, die bis auf eine Position auch versendet wird. Am nächsten Tag bestellt er erneut etwas. Praktischerweise soll der fehlende Artikel vom Vortag direkt mit dieser Sendung verschickt werden.<\/p>\n Von der Bestellposition zur Lieferposition<\/b><\/p>\n Um dies zu erledigen, brauchen wir ein Formular, das alle offenen Bestellpositionen eines Kunden anzeigt und diese zur Übernahme in einer Lieferung anbietet. Dazu benötigen wir zumindest eine Liste aller offenen Bestellpositionen. Wie verarbeiten wir diese dann weiter Es wären beispielsweise folgende Optionen denkbar:<\/p>\n Weiter hinten schauen wir uns an, wie die dritte Lösung umgesetzt wird. Sie erlaubt es gleichzeitig, die Anzahl der bestellten und der zu liefernden Artikel anzuzeigen und per bedingter Formatierung Fehlmengen farbig hervorzuheben.<\/p>\n Rechnungen erstellen<\/b><\/p>\n Schließlich sollen noch die Rechnungen erstellt werden. Dies erfolgt auf Basis der gelieferten Artikel. Diese werden ja komplett in der Tabelle tblLieferpositionen <\/b>gespeichert, die über die Tabelle tblLieferungen <\/b>weitere Informationen über den Lieferzeitpunkt referenziert.<\/p>\n Ein Formular soll nun alle noch nicht bezahlten Lieferpositionen eines Kunden anzeigen und deren Auswahl für die Zusammenstellung der Rechnungspositionen erlauben. Auch dieses Formular sehen wir uns weiter unten im Detail an.<\/p>\n Formular zum Zusammenstellen von Lieferungen<\/b><\/p>\n Das Formular frmLieferungen<\/b> zeigt die einzelnen Lieferungsdatensätze an und enthält zwei Unterformulare. Das erste Unterformular heißt frmBestellpositionenOffen <\/b>und soll alle Einträge der Tabelle tblPositionen<\/b> anzeigen, die noch nicht oder noch nicht vollständig geliefert wurden. Das bedeutet, dass wir alle Datensätze der Tabelle tblLieferpositionen <\/b>heranziehen müssen, deren Feld PositionID <\/b>die jeweilige Bestellposition referenziert, und deren Mengen vergleichen. Ist die Menge der gelieferten Artikel geringer als die bestellte, soll das Formular den Eintrag der Tabelle tblPositionen <\/b>anzeigen.<\/p>\n Das zweite Unterformular heißt frmLieferpositionen <\/b>und zeigt alle zur aktuellen Lieferung gehörenden Datensätze an. Der Aufbau des Formulars soll zunächst wie in Bild 1 aussehen, um die betroffenen Daten überhaupt darzustellen. Später legen wir Steuerelemente an, mit denen die Bestellpositionen leicht in die Lieferpositionen übertragen werden können.<\/p>\n Bild 1: Erster Entwurf des Formulars frmLieferungen mit den zu liefernden und den in der aktuellen Lieferung enthaltenen Datensätzen<\/span><\/b><\/p>\n Das Hauptformular frmLieferungen<\/b><\/p>\n Das Hauptformular frmLieferungen <\/b>ist an die Tabelle tblLieferungen <\/b>gebunden und zeigt alle Felder dieser Tabelle im oberen Abschnitt des Detailbereichs an. Das Formular dient zum Anlegen neuer Lieferungen, kann aber auch zum Ansehen und Bearbeiten vorhandener Lieferungen dienen.<\/p>\n Das Unterformular sfmBestellpositionenOffen <\/b><\/p>\n Das oberste Unterformular des Hauptformulars frmLieferungen <\/b>soll alle offenen Bestellpositionen für den im Hauptformular ausgewählten Kunden anzeigen. Die Hauptaufgabe besteht nun darin, eine geeignete Datenherkunft für das Formular zu ermitteln.<\/p>\n Diese soll alle Datensätze der Tabelle tblPositionen <\/b>liefern, die noch nicht durch entsprechende Datensätze in der Tabelle tblLieferpositionen <\/b>als vollständig ausgeliefert gekennzeichnet sind.<\/p>\n Dazu eine kurze Erläuterung des Datenmodells: Dort gibt es neben der üblichen Tabelle zur Erfassung der Bestellpositionen, tblPositionen<\/b>, eine ähnliche Tabelle zur Eingabe der Lieferpositionen einer Lieferung (tblLieferpositionen<\/b>).<\/p>\n Diese referenziert direkt Bestellpositionen in der Tabelle tblPositionen<\/b> und gibt an, wie viele der dort aufgeführten Mengen die Lieferung enthält. Es kann also mehrere Lieferpositionen zu einer Bestellposition geben. Erst wenn die Summe der in jeder Lieferposition angegebenen Menge von Artikeln gleich der Menge der bestellten Artikel ist, soll die Bestellposition nicht mehr im oberen Unterformular angezeigt werden.<\/p>\n Die benötigte Abfrage muss also die Summe der Menge der Artikel aller Lieferpositionen zusammenfassen, die sich auf eine Bestellposition beziehen, und prüfen, ob deren Menge noch kleiner als die bestellte Menge ist.<\/p>\n Dazu verwenden wir eine Abfrage mit einer Gruppierung. Diese sieht im Entwurf wie in Bild 2 aus und enthält die drei Tabellen tblBestellungen<\/b>, tblPositionen <\/b>und tblLieferpositionen<\/b>. Aus der Tabelle tblBestellungen <\/b>bezieht die Abfrage das Bestelldatum sowie das Feld KundeID<\/b>. Über dieses wollen wir später alle Datensätze zu einem bestimmten Kunden ermitteln. Die Tabelle tblPositionen <\/b>liefert die Felder PositionID<\/b>, ArtikelID <\/b>und Menge<\/b>. Aus tblLieferpositionen <\/b>stammt schließlich das Feld Menge<\/b>.<\/p>\n Bild 2: Formular zur Ermittlung der Summen der gelieferten Artikel zu einer Bestellposition<\/span><\/b><\/p>\n Nun kann es sein, dass die Tabelle tblLieferpositionen <\/b>keinen, einen oder mehrere Datensätze zu den in der Tabelle tblPositionen <\/b>enthaltenen Bestellpositionen enthält.<\/p>\n Wenn keine Lieferposition vorliegt, geschieht ohne weitere Vorkehrungen Folgendes: Die Abfrage liefert keinen Datensatz zurück, da sie nur solche Daten anzeigt, für die in allen als Datenherkunft dienenden Tabellen Daten enthalten sind. Damit fielen aber gerade solche Bestellpositionen weg, die noch nicht geliefert wurden – was nicht gerade das Ziel dieser Abfrage ist.<\/p>\n Damit es keine Rolle spielt, ob es bereits Lieferungen zu einer Bestellposition gibt oder nicht, passen wir also wie in der Abbildung die Verknüpfungseigenschaften für die Beziehung zwischen den Tabellen tblPositionen <\/b>und tblBestellpositionen <\/b>an. Auf diese Weise bleibt das Feld GelieferteMenge <\/b>der Abfrage schlicht leer, wenn kein passender Datensatz in der Tabelle tblLieferpositionen <\/b>vorliegt.<\/p>\n Der zweite Fall ist, dass es genau eine Lieferung für eine Bestellposition gibt. Das ist der Optimalfall: Bei der Lieferung wurde die gewünschte Menge Artikel berücksichtigt, das Feld Menge <\/b>enthält in beiden Tabellen den gleichen Wert.<\/p>\n Dummerweise erfolgen Lieferungen auch einzelner Bestellpositionen in mehreren Rutschen, sodass wir die Menge aller zu einer Bestellposition gehörenden Lieferpositionen summieren müssen. Und damit kommen wir zum Sinn einer Gruppierung in der Abfrage. Richten Sie diese ein, beispielsweise mit dem Eintrag Summen <\/b>des Kontextmenüs des Abfrage-Entwurfsrasters, und legen Sie für das Feld GelieferteMenge <\/b>in der Zeile Funktion <\/b>den Wert Summe <\/b>und in allen anderen Feldern den Wert Gruppierung <\/b>fest.<\/p>\n Angenommen, die Tabelle tblLieferpositionen <\/b>enthält einige manuell hinzugefügte Datensätze wie in Bild 3 (analog haben wir zuvor einen passenden Datensatz in der Tabelle tblLieferungen <\/b>angelegt). Dort wird mit dem Feld BestellpositionID <\/b>die Bestellposition referenziert, auf die sich die unter Menge <\/b>angegebene Anzahl gelieferter Artikel bezieht.<\/p>\n Bild 3: Beispieldaten für die Tabelle tblLieferpositionen<\/span><\/b><\/p>\n <\/p>\n In der Abfrage qrySfmBestellpositionenOffenBase<\/b> sollten dann die Anzahlen der bestellten und der gelieferten Artikel gegenübergestellt werden. Und genau so funktioniert es, wie Bild 4 zeigt. Dort erscheint genau für die drei Artikel, deren Lieferung wir manuell in die Tabelle tblLieferpositionen <\/b>eingetragen haben, je ein Datensatz.<\/p>\n Bild 4: Anzeige der bestellten und der gelieferten Menge Artikel in der Datenherkunft eines Unterformulars<\/span><\/b><\/p>\n Abfrage der Abfrage<\/b><\/p>\n Das entspricht allerdings noch nicht vollständig dem gewünschten Ergebnis: Wir wollten ja nur diejenigen Bestellpositionen erhalten, deren Lieferung noch nicht vollständig ausgeführt wurde.<\/p>\n Also fügen wir zum Feld BestellteMenge<\/b> noch ein Kriterium hinzu, das in der bereits mit GROUP BY <\/b>versehenen Abfrage als HAVING<\/b>-Bedingung integriert wird:<\/p>\n Damit erhalten wir das gewünschte Ergebnis – die oberen beiden Datensätze der Abbildung verschwinden.<\/p>\n Unterformular zur Anzeige der aktuellen Lieferpositionen<\/b><\/p>\n Das Unterformular sfmLieferpositionen <\/b>soll alle bereits zur im Hauptformular angezeigten Lieferung gelieferten Artikel auflisten. Die Datenherkunft des Formulars soll die LieferpositionID<\/b>, das Bestelldatum, den Artikel und die gelieferte Menge als anzuzeigende Werte zurückgeben. Außerdem benötigen wir im Unterformular noch das Feld LieferungID<\/b>, um nur die Lieferpositionen zur aktuellen Lieferung des Hauptformulars herauszufiltern. Die Abfrage enthält die drei verknüpften Tabellen tblBestellungen <\/b>(für das Bestelldatum), tblBestellpositionen <\/b>und tblLieferpositionen<\/b> (s. Bild 5).<\/p>\n Bild 5: Datenherkunft des Unterformulars zur Anzeige der erledigten Lieferpositionen einer Lieferung<\/span><\/b><\/p>\n In den Detailbereich des Unterformulars nehmen Sie die Felder wie in Bild 6 auf und schließen das Unterformular.<\/p>\n Bild 6: Unterformular zur Anzeige der erledigten Lieferpositionen<\/span><\/b><\/p>\n Haupt- und Unterformulare zusammenführen<\/b><\/p>\n Folgt der interessanteste Schritt: Das Einfügen der Unterformulare in das Hauptformular. Öffnen Sie das Hauptformular frmLieferungen <\/b>in der Entwurfsansicht und ziehen Sie die beiden Unterformulare sfmLieferpositionenOffen <\/b>und sfmLieferpositionen <\/b>untereinander in den Detailbereich des Formulars.<\/p>\n Ein Wechsel in die Formularansicht zeigt, dass das Unterformular sfmLieferpositionenOffen<\/b> noch nicht mit dem Hauptformular synchronisiert wird – normalerweise füllt Access die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach<\/b> des Unterformular-Steuerelements automatisch, wenn es eine Beziehung zwischen den Daten aus Haupt- und Unterformular erkennt.<\/p>\n Dies ist in diesem Fall nicht möglich – es gibt keine gemeinsamen Felder.<\/p>\n Das Unterformular soll alle anstehenden Lieferpositionen für den Kunden der Lieferung im Hauptformular anzeigen. Also stellen Sie die entsprechenden Eigenschaften wie in Bild 7 jeweils auf das Feld KundeID <\/b>ein.<\/p>\n Bild 7: Herstellen der Synchronisierung zwischen Haupt- und Unterformular<\/span><\/b><\/p>\n Beim Hinzufügen des Unterformulars sfmLieferpositionen <\/b>hat es Access einfacher: Die Daten des Unterformulars sind über das Feld LieferungID <\/b>mit dem gleichnamigen Feld des Hauptformulars verknüpft, also wird dieses automatisch für die Verknüpfungseigenschaften festgelegt.<\/p>\n Ein Wechseln in die Formularansicht zeigt anhand der wenigen Beispieldatensätze in den Tabellen tblLieferungen <\/b>und tblLieferpositionen<\/b>, dass beide Formulare die gewünschten Daten anzeigen (s. Bild 8). Im oberen Formular erscheinen alle bestellten, aber noch nicht vollständig gelieferten Positionen – und das gefiltert nach den Bestellungen des aktuellen Kunden. Das untere Formular zeigt alle bereits vollständig gelieferten Positionen an. Teilweise gelieferte Positionen erscheinen in beiden Listen, wobei oben die gesamte Bestellmenge und die bereits gelieferte Menge angezeigt werden.<\/p>\n Bild 8: Haupt- und Unterformular arbeiten wie gewünscht.<\/span><\/b><\/p>\n Neue Lieferung anlegen<\/b><\/p>\n Wenn Sie einen neuen Datensatz der Tabelle tblLieferungen <\/b>im Hauptformular anzeigen, bleiben beide Unterformulare leer. Dies ändert sich erst, wenn Sie einen Wert für das Feld KundeID <\/b>im Hauptformular auswählen. Das Unterformular sfmLieferpositionenOffen <\/b>zeigt dann alle Lieferpositionen zur neuen Bestellung an.<\/p>\n Nun benötigen wir nur noch eine einfache Methode, um die Positionen dieser Lieferung festzulegen. Eine Idee wäre, einfach die Anzahl der zu liefernden Artikel in das Feld Geliefert <\/b>des oberen Unterformulars einzutragen. Dummerweise basiert dieses Unterformular jedoch auf einer gruppierten Abfrage, die keine Aktualisierung zulässt.<\/p>\n Lieferung bearbeiten<\/p>\n Nun fehlt nur noch eine entscheidende Funktion – nämlich die zum Hinzufügen der bestellten Positionen zu den gelieferten Positionen. Dabei ist zu berücksichtigen, dass entweder alle oder eine bestimmte Anzahl der Artikel einer Bestellposition in eine Lieferung aufgenommen werden können. Da diese Funktion für jeden Artikel einzeln angeboten werden soll, gibt es folgende Möglichkeiten:<\/p>\n Der erste Vorschlag bedeutet je nach Anzahl der Bestellpositionen eine Menge Mausbewegungen. Der zweite ist gut, allerdings wenig intuitiv. Der dritte ist optimal, aber schwer umzusetzen. Wie soll man Schaltflächen in der Datenblattansicht unterbringen<\/p>\n Per Schaltfläche liefern<\/b><\/p>\n Wir probieren es dennoch – auch wenn absehbar ist, dass das Ergebnis eher zweckorientiert als hübsch aussehen wird. Statt Schaltflächen soll jeder Eintrag des oberen Formulars am Ende einmal ein Feld mit dem Wert + <\/b>und einmal mit dem Wert ++ <\/b>enthalten.<\/p>\n Damit dies für jeden Datensatz gelingt, müssen wir diese Zeichenketten in die als Datenherkunft verwendete Abfrage integrieren. Dies erledigen Sie, indem Sie die Abfrage qrySfmBestellpositionenOffnen <\/b>wie in Bild 9 anpassen. Fügen Sie einfach zwei Felder hinzu, welche die folgenden Ausdrücke enthalten:<\/p>\n Bild 9: Datenherkunft zur Anzeige von + und ++ anpassen<\/span><\/b><\/p>\n Diese beiden Felder müssen Sie natürlich auch zum Detailbereich des Unterformulars sfmBestellpositionenOffen <\/b>hinzufügen. Damit als Spaltenüberschrift ebenfalls die Zeichenketten + <\/b>und ++ <\/b>erscheinen, stellen Sie die Bezeichnungsfelder im Entwurf des Unterformulars wie in Bild 10 ein.<\/p>\n Bild 10: Hinzufügen der „Schaltflächen€ zum Unterformular<\/span><\/b><\/p>\n Diese als Schaltflächenersatz angelegten Textfelder erscheinen, wenn Sie die Ausrichtung zentrieren, wie in Bild 11.<\/p>\n Bild 11: Unterformular mit Schaltflächen zum Hinzufügen von Bestellpositionen zur Lieferung<\/span><\/b><\/p>\n Nun soll die erste „Schaltfläche€ (+) eines jeden Datensatzes dafür sorgen, dass ein Artikel der aktuellen Bestellposition zu einer bestehenden oder noch anzulegenden Lieferposition hinzugefügt wird. Die zweite (++) soll alle verbleibenden Artikel der aktuellen Bestellposition zur Lieferung hinzufügen. Dazu legen Sie für die Ereignisprozedur Beim Klicken <\/b>der beiden Textfelder jeweils eine neue Ereignisprozedur an. Die Prozedur zum Hinzufügen eines einzigen Artikels zu einer Lieferposition sieht so aus:<\/p>\n Sie ruft eine weitere Prozedur namens ArtikelAnLieferposition <\/b>auf, welche die Anzahl der zu übertragenden Artikel als Parameter erwartet – in diesem Fall genau einer. Die zweite Prozedur besitzt ein paar Zeilen mehr. Das liegt daran, dass sie erst noch ermitteln muss, wie viele Artikel die aktuelle Bestellposition enthält und welche Menge schon geliefert ist. Daraus bildet sie die Differenz und übergibt das Ergebnis ebenfalls an die Prozedur ArtikelAnLieferposition<\/b>:<\/p>\n Fehlt noch die von beiden Ereignisprozeduren referenzierte Prozedur. Diese sieht wie in Listing 1<\/a><\/span> aus und erwartet die Menge der zur Lieferung hinzuzufügenden Artikel als Parameter. Die Prozedur prüft, ob der mit lngMenge <\/b>übergebene Wert überhaupt größer 0 <\/b>ist. Falls nicht, ist nichts zu tun und die Prozedur endet, da die Bedingung nicht erfüllt wurde.<\/p>\n Listing 1: Eintragen neuer Daten in die Tabelle tblLieferpositionen<\/p>\n Ist lngMenge <\/b>größer als 0<\/b>, stellt die Prozedur zunächst einen SQL-Ausdruck für den Fall zusammen, dass bereits eine Lieferungsposition für diese Bestellposition angelegt wurde. Diese UPDATE<\/b>-Abfrage fügt dem Feld Menge <\/b>die in lngMenge <\/b>enthaltene Anzahl Artikel hinzu, und zwar für Datensätze, deren Feld LieferungID <\/b>zum aktuell im Hauptformular bearbeiten Datensatz aus der Tabelle tblLieferungen <\/b>stammt und deren BestellpositionID <\/b>mit dem gleichnamigen Feld der aktuellen Bestellposition übereinstimmt.<\/p>\n Nach der Ausführung dieser Abfrage prüft die Prozedur, wie viele Datensätze davon betroffen waren. Lautet der Wert 0<\/b>, liegt wohl noch kein Lieferdatensatz für diesen Bestelldatensatz vor. In diesem Fall legt die Prozedur mit einer INSERT INTO<\/b>-Abfrage einen entsprechenden neuen Datensatz an und trägt für diesen auch gleich die mit lngMenge <\/b>übergebene Menge Artikel ein. Schließlich aktualisiert die Abfrage mit der Requery<\/b>-Methode noch das aktuelle Formular und schließlich auch das Unterformular zur Anzeige der Lieferpositionen.<\/p>\n Fertig – Lieferungen lassen sich nun ganz einfach mit wenigen Mausklicks zusammenstellen.<\/p>\n Rechnungen verwalten<\/b><\/p>\n Der letzte Punkt zum Thema Formular sind die Formulare zur Rechnungsverwaltung. Auch hier finden Sie wieder ein Hauptformular und zwei Unterformulare. Das Hauptformular heißt frmRechnungen<\/b> und zeigt die Hauptdaten der Rechnung an. Die Daten stammen aus den Feldern RechnungID<\/b>, KundeID <\/b>und Rechnungsdatum <\/b>der Tabelle tblRechnungen<\/b>. Die drei Felder bringen wir im oberen Bereich des Formulars frmRechnungen <\/b>unter.<\/p>\n Darunter folgt ein Unterformular namens sfmLieferpositionenOffen<\/b>. Dieses soll alle Einträge der Tabelle tblLieferungen <\/b>anzeigen, die zu dem für die neue Rechnung ausgewählten Kunden gehören und noch nicht bezahlt wurden.<\/p>\n Schließlich soll das untere Unterformular namens sfmRechnungspositionen <\/b>alle Rechnungspositionen für die im Hauptformular angezeigte Rechnung anzeigen. Bevor wir auf die Details eingehen, finden Sie in in Bild 12 den Entwurf von Haupt- und Unterformularen im Überblick.<\/p>\n Bild 12: Formulare zum Verwalten der Rechnungen im Entwurf<\/span><\/b><\/p>\n Unterformular mit offenen Positionen<\/b><\/p>\n Das Unterformular sfmLieferpositionenOffen <\/b>soll alle Datensätze der Tabelle tblLieferpositionen <\/b>anzeigen, die noch nicht in einer Rechnung erfasst wurden.<\/p>\n In diesem Fall sollten nicht wie bei den Lieferpositionen eine Bestellposition auf mehrere Lieferpositionen aufgeteilt werden. Stattdessen entspricht jede Rechnungsposition genau einer Lieferposition.<\/p>\n Die als Datenherkunft für das Unterformular verwendete Abfrage heißt qryFrmLieferpositionenOffen<\/b> und sieht wie in Bild 13 aus.<\/p>\n Bild 13: Datenherkunft der für die Abrechnung bereitstehenden Bestellpositionen<\/span><\/b><\/p>\n Damit alle wichtigen Informationen zur Lieferposition vorliegen, liefert die Abfrage Daten aus den Tabellen tblLieferungen<\/b>, tblBestellpositionen <\/b>und tblLieferpositionen<\/b>. Die Tabelle tblRechnungspositionen <\/b>hat nur eine Aufgabe: Die Abfrage soll keine Datensätze liefern, für die bereits eine Rechnungsposition existiert. Dies ist genau dann der Fall, wenn die Tabelle tblRechnungspositionen <\/b>den entsprechenden Eintrag der Tabelle tblLieferpositionen <\/b>über das Fremdschlüsselfeld LieferpositionID <\/b>referenziert.<\/p>\n Damit die Abfrage alle Datensätze liefert – auch solche, für die es keinen passenden Eintrag in der Tabelle tblRechnungspositionen <\/b>gibt -, stellen Sie die Verknüpfungseigenschaften für die Beziehung zwischen den Tabellen tblRechnungspositionen <\/b>und tblLieferpositionen <\/b>entsprechend ein.<\/p>\n Die Abfrage liefert nun alle Datensätze der Tabelle tblLieferpositionen<\/b>, auch solche, für die kein Eintrag in der Tabelle tblRechnungspositionen <\/b>vorliegt (s. Bild 14).<\/p>\n Bild 14: Lieferpositionen, von denen bereits eine als Rechnungsposition markiert ist<\/span><\/b><\/p>\n Somit müssen wir nun nur noch diejenigen Datensätze aus dem Ergebnis herausfiltern, die bereits in einer Rechnung enthalten sind. Kein Problem: Dazu fügen Sie dem Feld RechnungspositionID <\/b>als Kriterium den Ausdruck Ist Null <\/b>hinzu.<\/p>\n ähnlich wie beim Formular zur Verwaltung von Lieferungen soll das obere Unterformular auch wieder nur solche Lieferpositionen anzeigen, die zu dem aktuell im Hauptformular angezeigten Kunden gehören. Dazu stellen Sie wiederum die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>auf den Wert KundeID <\/b>ein.<\/p>\n Unterformular zur Anzeige der Rechnungspositionen<\/b><\/p>\n Das Unterformular sfmRechnungspositionen <\/b>soll alle bereits der Rechnung zugewiesenen Rechnungen ausgeben. Dazu verwendet es als Datenherkunft die Abfrage qrySfmRechnungen<\/b> (s. Bild 15). Die Abfrage liefert die Felder RechnungspositionID <\/b>und RechnungID <\/b>aus der Tabelle tblRechnungspositionen <\/b>und die Felder ArtikelID<\/b>, KostenstelleID<\/b>, Einzelpreis<\/b>, Rabatt <\/b>und Mehrwertsteuer <\/b>aus der Tabelle tblBestellpositionen<\/b>. Fehlt noch die Menge<\/b>. Die entnehmen wir natürlich nicht der Tabelle tblBestellpositionen<\/b>, denn sie kann ja auf mehrere Einträge der Tabelle tblLieferpositionen <\/b>aufgeteilt worden sein. Genau diese Tabelle liefert auch den fehlenden Wert für die Rechnungsdatensätze.<\/p>\n Bild 15: Die Datenherkunft des Unterformulars sfmRechnungspositionen<\/span><\/b><\/p>\n Von der Lieferung zur Rechnung<\/b><\/p>\n Es fehlt wiederum eine Möglichkeit, Lieferdatensätze schnell zur aktuellen Rechnung hinzuzufügen. Im Gegensatz zur vorherigen Aufgabenstellung sollen diesmal nur komplette Lieferdatensätze in Rechnungsdatensätze überführt werden. Also fügen wir der Abfrage qrySfmLieferpositionenOffen <\/b>ein Feld mit folgendem Inhalt hinzu:<\/p>\n Im Formularentwurf des Unterformulars sfmLieferpositionenOffen <\/b>legen Sie ein entsprechendes Textfeld für dieses Feld an. Versehen Sie es wieder mit einer Prozedur für die Ereigniseigenschaft Beim Klicken<\/b> (s. Bild 16).<\/p>\n Bild 16: Verwalten von Rechnungen<\/span><\/b><\/p>\n Diese benötigt nur eine INSERT INTO<\/b>-Anweisung, um der Tabelle tblRechnungspositionen <\/b>einen neuen Datensatz hinzuzufügen. Dieser enthält als RechnungID <\/b>den Wert des gleichnamigen Feldes des übergeordneten Formulars und als LieferpositionID <\/b>den Wert des aktuellen Datensatzes.<\/p>\n\n
\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic008.png\")
<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic001.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic002.png\")
<\/p>\n>Nz(Summe([tblLieferpositionen].[Menge]);0)<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic004.png\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic009.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic005.png\")
<\/p>\n\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic006.png\")
<\/p>\nPlusEins: "+"\r\nPlusAlle: "++"<\/pre>\n
![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic011.png\")
<\/p>\nPrivate Sub PlusEins_Click()\r\n ArtikelAnLieferposition 1\r\nEnd Sub<\/pre>\n
Private Sub PlusAlle_Click()\r\n Dim lngMenge As Long\r\n lngMenge = Me!BestellteMenge - Nz(Me!GelieferteMenge)\r\n ArtikelAnLieferposition lngMenge\r\nEnd Sub<\/pre>\n
Private Sub ArtikelAnLieferposition(lngMenge As Long)\r\n Dim db As DAO.Database\r\n Dim strSQL As String\r\n If lngMenge > 0 Then\r\n Set db = CurrentDb\r\n strSQL = "UPDATE tblLieferpositionen SET Menge = Menge + " & lngMenge _\r\n & " WHERE LieferungID = " & Me.Parent!lieferungID & " AND BestellpositionID = " _\r\n & Me!BestellpositionID\r\n db.Execute strSQL, dbFailOnError\r\n If db.RecordsAffected = 0 Then\r\n strSQL = "INSERT INTO tblLieferpositionen(LieferungID, BestellpositionID, Menge) " _\r\n & "VALUES(" & Me.Parent.lieferungID & ", " & Me!BestellpositionID & ", " & lngMenge & ")"\r\n db.Execute strSQL, dbFailOnError\r\n End If\r\n Set db = Nothing\r\n Me.Requery\r\n Me.Parent!sfmLieferpositionen.Form.Requery\r\n End If\r\nEnd Sub<\/pre>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic012.png\")
<\/p>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic013.png\")
<\/p>\n![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic014.png\")
<\/p>\n![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic015.png\")
<\/p>\nZurRechnung: "Zur Rechnung"<\/pre>\n
![\"pic016.png\"](\"..\/fileadmin\/_temp_\/2013_03\/FlexibleBestellungenFormulare-web-images\/pic016.png\")
<\/p>\n