<\/p>\n
Wenn man an Abonnements denkt, fallen einem zunächst Zeitungen oder Magazine ein. Es gibt aber natürlich auch Abonnements für alle anderen Bereiche des Lebens – vom Sockenabo, das einem regelmäßig neue Socken garantiert, bis hin zum Abonnement über die regelmäßige Lieferung von Adressetiketten. Allen Abonnements ist gemeinsam, dass diese verwaltet werden müssen, damit jeder Kunde das richtige Produkt zum passenden Zeitpunkt erhält. Dieser Beitrag zeigt Möglichkeiten zum Verwalten von Abonnements auf.<\/b><\/p>\n
Wenn Sie sich ein einfaches Zeitschriften-Abonnement vorstellen, bei dem der Leser monatlich eine Ausgabe der Zeitschrift erhält, gibt es grundsätzlich mindestens zwei Möglichkeiten, um dies abzuhandeln:<\/p>\n
Die Variante mit dem Zeitraum hat einen Nachteil: Es kann ja einmal vorkommen, dass die erste Ausgabe des Jahres schon im Vormonat erscheint, also beispielsweise am 31.12.2011, oder dass die letzte Ausgabe des Zeitraums etwas später veröffentlicht wird – etwa am 2.1.2013. In diesem Fall müssen Sie zu jeder Ausgabe noch weitere Angaben festlegen, zum Beispiel einen generischen Erscheinungstermin wie etwa immer den ersten Tag des Monats.<\/p>\n
Bei dieser vom Datenmodell her einfacheren Lösung müssten Sie aber dennoch eine Möglichkeit schaffen, die pro Kunde versendeten Ausgaben zu speichern – und dann können Sie auch gleich zu der Variante mit der Verwaltung der einzelnen Ausgaben übergehen.<\/p>\n
Produkt oder Abonnement<\/b><\/p>\n
Ein interessantes Thema ist die Vermengung von Begriffen wie Abonnement, Bestellung, Produkt et cetera. Wenn ein Kunde ein Abonnement bestellt, wie wird dies dann in der Datenbankanwendung behandelt Eines steht fest: Der Kunde wird als Datensatz in einer Kundentabelle gespeichert (egal, ob dieser bereits vorhanden ist oder neu angelegt werden muss). Eine Bestellung hat mit dem Abonnement eigentlich nicht viel gemein, denn eine Bestellung entspricht ja der Zuordnung eines Produktes zu einem Kunden (mit entsprechendem Zeitpunkt, Konditionen et cetera). Das Abonnement lässt sich eher mit einem einzelnen Produkt gleichsetzen beziehungsweise mit einer Bestellposition. Dabei unterschlagen wir zunächst, dass ein Abonnement ja aus mehreren Lieferungen besteht. Während das Abonnement beziehungsweise das Produkt als Bestellposition Teil einer kompletten Bestellung sein kann, soll es doch während der Verwaltung des Abonnements als dem jeweiligen Kunden zugeordnetes Element und somit losgelöst von der Bestellung oder einer Bestellposition betrachtet werden.<\/p>\n
Also enthält das Abonnement zumindest ein Fremdschlüsselfeld zum Herstellen einer Beziehung zum betroffenen Kunden.<\/p>\n
Der Einfachheit halber lassen wir aus dieser Anwendung die Bestellungen komplett aus und schauen nur auf die reine Abonnementverwaltung.<\/p>\n
Datenmodell<\/b><\/p>\n
Ohne Kunden gibt es kein Abonnement, deshalb beginnen wir hier mit der Tabelle tblKunden<\/b>. Diese sieht im Entwurf wie in Bild 1 aus. Zu dieser Tabelle gehört noch eine Lookup-Tabelle, welche die Anreden beisteuert. Die Tabelle heißt tblAnreden<\/b>, enthält die Felder AnredeID <\/b>und Anrede <\/b>und wird über das Fremdschlüsselfeld AnredeID <\/b>der Tabelle tblKunden <\/b>referenziert. Dieses Fremdschlüsselfeld wurde als Nachschlagefeld ausgelegt.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic001.png\")
<\/p>\n
Bild 1: Die Tabelle tblKunden in der Entwurfsansicht<\/span><\/b><\/p>\n Die Produkte, also beispielsweise Access im Unternehmen<\/b>, Access [basics] <\/b>oder Access-Newsletter <\/b>speichern wir in einer Tabelle namens tblProdukte<\/b>. Diese Tabelle enthält neben dem Primärschlüsselfeld ProduktID <\/b>noch ein Feld mit der Produktbezeichnung sowie ein Feld namens AnzahlAusgaben<\/b>, das die Anzahl der Ausgaben pro Jahr kennzeichnet (s. Bild 2). Außerdem finden Sie im Datenmodell dieser Tabelle noch ein Feld namens Laufzeit<\/b>, das die Laufzeit eines Abonnements zu diesem Produkt in Monaten aufnimmt.<\/p>\n Bild 2: Die Tabelle tblProdukte mit einigen Daten<\/span><\/b><\/p>\n Jedes Abonnement wird selbstverständlich genau einem Kunden zugewiesen. Deshalb steht schon fest: Die Tabelle tblAbonnements <\/b>muss neben dem Primärschlüsselfeld AbonnementID <\/b>noch ein Fremdschlüsselfeld zur Tabelle tblKunden <\/b>enthalten (s. Bild 3). Welche Informationen sollen noch zu einem Abonnement gespeichert werden Ein Abonnement führt auf jeden Fall einen Kunden und ein Produkt zusammen. Daher erhält die Tabelle zwei Fremdschlüsselfelder namens ProduktID <\/b>und KundeID<\/b>, die beide als Nachschlagefeld ausgeführt werden. Das Nachschlagefeld ProduktID <\/b>soll dabei das Feld Produkt <\/b>der Tabelle tblProdukte <\/b>zur Auswahl anbieten, das Nachschlagefeld KundeID <\/b>das Feld Kundenbezeichnung <\/b>der Tabelle tblKunden <\/b>– beides in alphabetischer Reihenfolge. Dies erreichen Sie am schnellsten durch den Einsatz des Nachschlage-Assistenten.<\/p>\n Bild 3: Entwurfsansicht der Tabelle tblAbonnements<\/span><\/b><\/p>\n Normalerweise sollte man annehmen, dass Sie hier einen zusammengesetzten, eindeutigen Index über die beiden Felder ProduktID <\/b>und KundeID <\/b>anlegen sollten. Allerdings kann es ja vorkommen, dass ein Kunde ein Abonnement zum gleichen Produkt verlängert oder dieses später nochmals ordert – Eindeutigkeit bezüglich der Kombination aus Produkten und Kunden ist also nicht gefragt. <\/p>\n Welche Informationen soll das Abonnement noch enthalten Interessant ist sicher das Startdatum, das wir im gleichnamigen Feld mit dem Datentyp Datum\/Uhrzeit <\/b>speichern. Außerdem soll noch vermerkt werden, ob ein Abonnement gekündigt oder storniert wurde. Eine Kündigung führt dazu, dass das Abonnement – so dies vorgesehen ist – nicht automatisch verlängert wird.<\/p>\n Eine Stornierung kann beispielsweise innerhalb eines festgelegten Zeitraums (der Rücktrittsfrist) erfolgen und führt dazu, dass das Abonnement nicht weiter ausgeführt wird. Die Felder GekuendigtAm <\/b>und StorniertAm <\/b>nehmen die entsprechenden Datumsangaben auf.<\/p>\n Und da wir bereits die Verlängerung eines Abonnements angesprochen haben: Die geschieht in der Regel, wenn der Abonnent das Abonnement nicht bis zu einem bestimmten Termin kündigt. Es gibt sicher auch Abonnements, die automatisch auslaufen, gängig ist aber das Modell der automatischen Verlängerung. Was geschieht bei einer Verlängerung eines Abonnements<\/p>\n Es gibt grundsätzlich zwei Möglichkeiten:<\/p>\n Wir wählen die zweite Variante, da sie besser nachvollziehbar scheint. Damit Sie erkennen können, ob es sich bei dem Abonnement um ein Folge-Abonnement handelt, legen wir in der Tabelle tblAbonnements <\/b>auch noch ein Feld namens FolgeaboVon <\/b>an. Dieses wird, wie in Bild 4 zu erkennen, mit dem Primärschlüsselfeld der Tabelle selbst verknüpft. Dies erreichen Sie, indem Sie die Tabelle zwei Mal in das Beziehungsfenster ziehen und dann das Feld FolgeaboVon <\/b>einer der beiden Repräsentationen der Tabelle auf das Feld AbonnementID <\/b>der anderen ziehen. Legen Sie für diese Beziehung referentielle Integrität fest.<\/p>\n Bild 4: Zuordnung von Folge-Abonnements<\/span><\/b><\/p>\n Ausgaben und Versendungen<\/b><\/p>\n Es fehlen noch die Ausgaben, die mit jedem Abonnement an die Kunden versendet werden sollen. Das ist komplizierter, als es zunächst den Anschein hat. Immerhin gibt es ja für jedes Produkt verschiedene Ausgaben: Für Access im Unternehmen <\/b>die Ausgaben 1 bis 6 für jedes Jahr, für Access [basics] <\/b>etwa 1 bis 12. Diese sollen nun je nach Startzeitpunkt einem Abonnements zugeordnet werden. Wenn der Kunde beispielsweise am 1.7. eines Jahres einsteigt, soll er bei einem Magazin mit zwölf Ausgaben mit der Ausgabe 7 <\/b>beginnen. Das spezielle Abonnement des Kunden soll also etwa die Ausgaben 7\/2012 bis 6\/2013 enthalten. Ein anderer Kunde steigt vielleicht einen Monat später ein, sein Abonnement sieht also bezüglich der Versendungen gleich ganz anders aus. Um diese Ausgaben zum jeweiligen Abonnement zuweisen zu können, wollen wir zunächst einmal die Ausgaben je Abonnement definieren. Dies erledigen wir in einer Tabelle namens tblAusgaben<\/b>, welche die vier Felder AusgabeID<\/b>, AusgabeBezeichnung<\/b>, AusgabeNummer <\/b>und AusgabeJahr <\/b>enthält. Diese Tabelle könnte beispielsweise Daten wie in Bild 5 enthalten. Wo aber befindet sich hier der Verweis auf das Produkt – und zwar in Form eines Fremdschlüsselfeldes namens ProduktID <\/b>mit einer Referenz auf das Primärschlüsselfeld der Tabelle tblProdukte<\/b> Dieses gehört eigentlich in diese Tabelle. Wir möchten aber noch einen Spezialfall abfangen, der durch verschiedene Abonnement-Formen mit den gleichen Ausgaben resultiert: Es ist ja möglich, dass Sie zusätzlich zu einem zwölfmonatigen Abonnement noch ein dreimonatiges Testabo anbieten. Der Kunde mit dem Testabo soll aber etwa die gleiche Ausgabe 5\/2012 erhalten wie der Kunde mit dem regulären Abonnement. Deshalb kann ein Eintrag der Tabelle tblAusgaben <\/b>mehreren Datensätzen der Tabelle tblProdukte <\/b>zugeteilt werden.<\/p>\n Bild 6: Das komplette Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n Damit hätten wir festgelegt, welche Ausgaben es zu einem Produkt gibt. Nun müssen wir nur noch die im Rahmen eines Abonnements zu verschickenden Ausgaben festlegen. Dies wiederum geschieht in der Tabelle tblVersendungen<\/b>. Diese verknüpft die Tabelle tblAbonnements <\/b>mit der Tabelle tblAusgaben<\/b>. Das Feld VersendungID <\/b>dient als Primärschlüsselfeld, das Feld AusgabeID <\/b>ist ein Fremdschlüsselfeld zum Herstellen der Beziehung zur Tabelle tblAusgaben <\/b>und das Feld AbonnementID <\/b>weist die Ausgabe schließlich einem der Datensätze der Tabelle tblAbonnements <\/b>zu. Schließlich müssen wir noch irgendwo vermerken, wann die Ausgabe an den über die Tabelle tblAbonnements <\/b>referenzierten Kunden verschickt wurde. Dies erledigen wir mit einem Datumsfeld namens Versanddatum<\/b>.<\/p>\n Bild 6 zeigt die Zusammenhänge zwischen den einzelnen Tabellen im Überblick. Auch der noch zu programmierende Ablauf beim Anlegen eines Abonnements lässt sich hier ablesen: Wenn ein neuer Datensatz zur Tabelle tblAbonnements<\/b> hinzugefügt wird, legt man dort auch das Produkt fest, auf dem das Abonnement basiert. Im nächsten Schritt prüft man, welche Ausgaben angelegt werden sollen. Dazu wird im Feld AktuelleAusgabeID<\/b> der Tabelle tblProdukte<\/b>, das ebenfalls mit der Tabelle tblAusgaben <\/b>verknüpft ist, die aktuelle Ausgabe referenziert. Im Folgenden sollen in der Tabelle tblVersendungen <\/b>die entsprechenden Einträge vorgenommen werden: Wenn das Feld AnzahlAusgaben <\/b>der Tabelle tblProdukte <\/b>also etwa den Wert 12 <\/b>enthält, sollen in der Tabelle tblVersendungen <\/b>zwölf Datensätze erstellt werden. Diese enthalten jeweils einen Verweis auf den neu angelegten Datensatz der Tabelle tblAbonnements <\/b>und auf die zwölf Einträge der Tabelle tblAusgaben<\/b>, die zur aktuellen Ausgabe und zum gewählten Produkt passen. Wie dies technisch abläuft, schauen wir uns weiter unten an.<\/p>\n Bild 5: Tabelle der Ausgaben<\/span><\/b><\/p>\n Damit die Tabelle tblVersendungen <\/b>jede Ausgabe nur einmal je Abonnement aufnimmt, legen wir einen zusammengesetzten eindeutigen Schlüssel für die beiden Felder AbonnementID <\/b>und AusgabeID<\/b> fest.<\/p>\n Formulare zur Datenverwaltung<\/b><\/p>\n Nachdem die Tabellenstruktur steht, benötigen wir eine Reihe Formulare zum Verwalten der Abonnements und der dazu benötigten Daten.<\/p>\n Die Kunden sollen in einem Formular frmKunden <\/b>verwaltet werden. Über dieses Formular werden schließlich auch die Abonnements eines jeden Kunden angezeigt und die zu versendenden Ausgaben. Das Formular frmKunden<\/b> verwendet die Tabelle tblKunden <\/b>als Datenherkunft und zeigt die Details zu einem Kunden in der Formularansicht an. An dieser Stelle gibt es noch keine Besonderheiten – ziehen Sie einfach alle benötigten Felder aus der Datenherkunft in den Detailbereich der Entwurfsansicht und ordnen Sie diese etwa wie in Bild 7 an.<\/p>\n Bild 7: Das Formular zur Verwaltung der Kunden in der Entwurfsansicht<\/span><\/b><\/p>\n Produkte verwalten<\/b><\/p>\n Bevor wir die Unterformulare zur Darstellung der Abonnements eines Kunden sowie der Versendungen zu dem jeweils aktivierten Abonnement einfügen, sollen zunächst die Möglichkeiten der dazu benötigten Daten geschaffen werden.<\/p>\n Da wären zunächst die Produkte, ohne die nichts geht: Sie können kein Abonnement anlegen ohne ein Produkt und auch keine Ausgaben.<\/p>\n Das Formular frmProdukte <\/b>verwendet die Tabelle tblProdukte <\/b>als Datenherkunft und zeigt auch alle Felder dieser Tabelle an (s. Bild 8). Sie können damit zwar nun Daten für die Felder Produkt <\/b>und AnzahlAusgaben <\/b>hinzufügen, aber noch nicht für das Fremdschlüsselfeld AktuelleAusgabeID <\/b>– dafür liegen ebenfalls noch keine Daten vor.<\/p>\n Bild 8: Das Formular zum Anlegen der Produkte<\/span><\/b><\/p>\n Um eine oder mehrere Ausgaben anzulegen, fügen Sie dem Formular gleich neben dem Feld AnzahlAusgaben <\/b>eine Schaltfläche namens cmdNeueAusgaben <\/b>hinzu. Dieses ruft ein Formular auf, mit dem Sie neue Ausgaben zum aktuellen Produkt hinzufügen können – dazu später mehr.<\/p>\n Das Unterformular sfmAusgaben <\/b>soll alle Ausgaben zum aktuell im Hauptformular frmProdukte <\/b>angezeigten Produkt anzeigen. Dazu verwendet das Formular eine Abfrage <\/b>als Datenherkunft, die auf den beiden Tabellen tblProdukteAusgaben<\/b> und tblAusgaben <\/b>basiert und die unter dem Namen qryFrmProdukteSfmAusgaben<\/b> gespeichert wird (s. Bild 10).<\/p>\n Bild 9: Datenherkunft des Unterformulars sfmAusgaben<\/span><\/b><\/p>\n Bild 10: Produkte und Ausgaben im Entwurf<\/span><\/b><\/p>\n <\/p>\n Das Unterformular zeigt somit automatisch nur noch Ausgaben an, die zum aktuellen Produkt im Hauptformular gehören.<\/p>\n Eine Besonderheit ergibt sich noch bezüglich des Kombinationsfeldes zur Auswahl der aktuellen Ausgabe, das wir in cboAktuelleAusgabeID <\/b>umbenennen. Es soll genau wie das Unterformular sfmAusgaben<\/b> nur die zum aktuellen Produkt gehörenden Ausgaben zur Auswahl anbieten.Dazu weisen Sie diesem Kombinationsfeld als Datensatzherkunft eine Abfrage zu, die genauso aussieht wie die Datenherkunft des Unterformulars sfmAusgaben<\/b>, aber unter dem Namen qryFrmProdukteCboAktuelleAusgabeID <\/b>als eigene Abfrage gespeichert wird. Man weiß nie, ob nicht eine der Abfragen einmal angepasst werden muss, daher werden diese gleich als eigene Objekte gespeichert.<\/p>\n Wenn nun bereits einige Datensätze in den Tabellen tblAusgaben <\/b>und tblProdukteAusgaben<\/b> vorhanden wären, würde das Formular frmProdukte <\/b>diese wie in Bild 11 anzeigen.<\/p>\n Bild 11: Formularansicht der Produkte und Ausgaben<\/span><\/b><\/p>\n Also kümmern wir uns doch darum, dass einige Ausgaben angelegt werden. Dies erledigen Sie, in dem Sie die weiter oben angelegte Schaltfläche cmdNeueAusgaben <\/b>mit Leben füllen.<\/p>\n Legen Sie dazu die folgende Ereignisprozedur an, die durch das Ereignis Beim Klicken <\/b>der Schaltfläche ausgelöst wird:<\/p>\n Die Prozedur öffnet ein weiteres Formular namens frmNeueAusgaben <\/b>und übergibt den Wert des Feldes ProduktID <\/b>des aktuellen Datensatzes per Öffnungsargument an das Formular.<\/p>\n Dieses wird außerdem als modaler Dialog geöffnet und sieht wie in Bild 12 aus. Das Formular zeigt alle kommenden und noch nicht erfassten Ausgaben in einem Listenfeld an.<\/p>\n Bild 13: frmNeueAusgaben in der Entwurfsansicht<\/span><\/b><\/p>\n Der Benutzer kann die gewünschten Einträge unter Verwendung der Strg<\/b>– und der Umschalt<\/b>-Taste markieren und die Ausgaben mit der Schaltfläche OK <\/b>hinzufügen oder das Formular ohne Ónderung der Ausgaben mit der Schaltfläche Abbrechen <\/b>schließen. Die Prozedur cmdNeueAusgaben_Click <\/b>aktualisiert jeweils mit der Requery<\/b>-Methode noch die Datenherkunft des Unterformulars sfmAusgaben <\/b>sowie die Datensatzherkunft des Kombinationsfeldes cboAktuelleAusgabe<\/b>.<\/p>\n Erstellen des Formulars frmNeueAusgaben<\/b><\/p>\n Unabhängig von Abonnements, also der Zuordnung von zu versendenden Ausgaben zu einem Kunden, müssen die Ausgaben für das betroffene Produkt zunächst einmal angelegt werden.<\/p>\n Bei Access im Unternehmen <\/b>heißen solche Ausgaben 1\/2012<\/b>, 2\/2012 <\/b>und so weiter. Die können Sie entweder von Hand anlegen oder Sie ziehen ein Formular hinzu, das Ihnen diese Arbeit abnimmt.<\/p>\n Dieses sieht im Entwurf wie in Bild 13 aus und enthält ein Listenfeld namens lstAusgaben<\/b>, das erst beim Öffnen des Formulars mit Daten gefüllt wird. Da die Daten als Zeichenkette übergeben werden, stellen Sie die Eigenschaft Herkunftsart <\/b>auf Wertliste <\/b>ein. Damit der Benutzer wie im Windows Explorer mehrere Einträge mit der Strg<\/b>– und der Umschalt<\/b>-Fläche auswählen kann, stellen Sie die Eigenschaft Mehrfachauswahl <\/b>auf Erweitert <\/b>ein.<\/p>\n Bild 12: Formular zum Anlegen neuer Ausgaben<\/span><\/b><\/p>\n Damit die noch nicht angelegten Ausgaben im Listenfeld lstAusgaben <\/b>angezeigt werden, legen Sie die Ereignisprozedur aus Listing 1<\/a><\/span> an, die durch das Ereignis Beim Öffnen <\/b>des Formulars frmNeueAusgaben <\/b>ausgelöst wird.<\/p>\n Listing 1: Neu hinzuzufügende Ausgaben in einer Liste anzeigen<\/p>\n Diese Prozedur füllt und verwendet eine Variable namens lngProduktID<\/b>, deren Wert auch noch in einer weiteren Prozedur verwendet werden soll. Daher deklarieren Sie die entsprechende Variable wie folgt im Kopf des Klassenmoduls Form_frmNeueAusgaben<\/b>:<\/p>\n Die Prozedur Form_Open <\/b>prüft zunächst, ob die Eigenschaft OpenArgs <\/b>des Formulars einen Wert enthält. Dieser wird beim Aufruf vom Formular frmProdukte <\/b>aus als Wert des Feldes ProduktID <\/b>des aktuellen Datensatzes übergeben.<\/p>\n Hat diese den Wert NULL<\/b>, wird lngProduktID <\/b>durch die Funktion Nz <\/b>mit dem Wert 0 <\/b>gefüllt. In diesem Fall wird das Öffnen des Formulars durch Einstellen des Rückgabeparameters Cancel <\/b>auf den Wert False <\/b>abgebrochen.<\/p>\n Anderenfalls ermittelt die Prozedur zunächst die Anzahl der Ausgaben pro Kalenderjahr für dieses Produkt. Dies erledigt ein entsprechender Aufruf der DLookup<\/b>-Funktion, das Ergebnis landet in der Variablen intAnzahlAusgaben<\/b>. Warum benötigen wir diesen Wert Weil wir damit festlegen, welche Ausgaben überhaupt zur Liste der Ausgaben hinzugefügt werden. Wenn ein Magazin nur sechs Ausgaben pro Jahr liefert, sollen dementsprechend nur die Nummern 1\/2012 <\/b>bis 6\/2012 <\/b>erscheinen und nicht etwa die 7\/2012<\/b>.<\/p>\n Die folgende Anweisung ermittelt den größten Wert im Feld AusgabeJahr <\/b>für dieses Produkt. Ist noch keine Ausgabe vorhanden, wird das aktuelle Jahr verwendet. Das Ergebnis landet in der Variablen intJahrAusgabe<\/b>. Óhnliches geschieht in der nächsten Zeile. Dort wird der größte Wert des Feldes AusgabeNummer <\/b>für das entsprechende Produkt und das zuvor ermittelte Jahr ausgelesen und in intNummerAusgabe <\/b>gespeichert.<\/p>\n Auf diese Weise weiß die Prozedur, bis zu welcher Ausgabe Datensätze in der Tabelle tblAusgaben<\/b> vorliegen. Beide DMax<\/b>-Anweisungen verwenden übrigens die Abfrage qryProdukteAusgaben <\/b>als Datenherkunft, welche die Tabellen tblProdukteAusgaben <\/b>und tblAusgaben <\/b>zusammenführt.<\/p>\n Danach werden Einträge für die 100 folgenden Ausgaben angelegt. Innerhalb der dazu angelegten For…Next<\/b>-Schleife prüft die Prozedur zunächst, ob die Nummer der in intNummerAusgabe <\/b>gespeicherten Ausgabe bereits der maximalen Anzahl Ausgaben <\/b>für das Jahr entspricht. Falls nicht, wird intNummerAusgabe<\/b> um eins erhöht, um die nächste Ausgabe anzulegen. Wenn der Wert in intNummerAusgabe <\/b>bereits der maximalen Anzahl Ausgaben entspricht, wird intNummerAusgabe <\/b>auf 1 <\/b>zurückgesetzt und die in intJahrAusgabe <\/b>gespeicherte Zahl um eins erhöht.<\/p>\n Danach wird ein neuer Eintrag zur Variablen strAusgaben <\/b>hinzugefügt, der etwa wie folgt aufgebaut ist:<\/p>\n Das erste Element ist die Nummer der Ausgabe, das zweite das Jahr und das dritte die Bezeichnung der Ausgabe. Schließlich wird der in strAusgaben <\/b>gespeicherte Ausdruck der Eigenschaft RowSource <\/b>des Listenfeldes lstAusgaben <\/b>zugewiesen. Außerdem wird der erste Eintrag des Listenfeldes markiert.<\/p>\n Damit nur die Bezeichnung der Ausgabe angezeigt wird, stellen Sie die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte 3 <\/b>und 0;0 <\/b>ein.<\/p>\n Neue Ausgaben speichern<\/b><\/p>\n Der Benutzer kann nun eine oder mehrere neue Ausgaben auswählen. Nach dem Betätigen der OK<\/b>-Taste sollen diese Ausgaben in die Tabellen tblAusgaben <\/b>eingetragen werden. Außerdem soll die Zuordnung zum gewählten Produkt über die Tabelle tblProdukteAusgaben <\/b>hergestellt werden.<\/p>\n Die durch den Mausklick auf die Schaltfläche cmdOK <\/b>ausgelöste Prozedur cmdOK_Click<\/b> sieht wie in Listing 2<\/a><\/span> aus. Sie enthält im Wesentlichen eine For Each<\/b>-Schleife, die alle markierten Einträge des Listenfeldes lstAusgaben <\/b>durchläuft.<\/p>\n Listing 2: Neue Ausgaben zur Tabelle tblAusgaben hinzufügen<\/p>\n Diese Einträge liefert die Auflistung ItemsSelected<\/b>. Der Wert eines jeden Eintrags dieser Auflistung entspricht dem Index des Eintrags und wird in der Variablen var <\/b>gespeichert.<\/p>\n Die ersten drei Anweisungen innerhalb der Schleife lesen den Wert der ersten, zweiten und dritten Spalte der Zeile mit dem angegebenen Index aus und speichern die Werte in den Variablen intNummer<\/b>, intJahr <\/b>und strBezeichnung<\/b>.<\/p>\n Diese Werte speichert die folgende Execute<\/b>-Methode mit einer INSERT INTO<\/b>-Anweisung in der Tabelle tblAusgaben<\/b>. Die folgende Abfrage SELECT @@IDENTITY <\/b>liest den Primärschlüsselwert des so erzeugten Datensatzes aus, also den Wert des Feldes lngAusgabeID <\/b>des neuen Eintrags.<\/p>\n Dieser Wert ist nötig, um den Datensatz der Tabelle tblAusgaben <\/b>mit dem in der Tabelle tblProdukte <\/b>gespeicherten Produkt in Beziehung zu setzen.<\/p>\n Dies geschieht durch das Anlegen eines neuen Datensatzes in der Tabelle tblProdukteAusgaben<\/b>, der für das Feld ProduktID <\/b>den Wert aus lngProduktID <\/b>und für das Feld AusgabeID <\/b>den soeben ermittelten Wert aus lngAusgabeID <\/b>zugewiesen bekommt. Diese Schritte werden für alle markierten Ausgaben ausgeführt.<\/p>\n Nach dem Schließen des Formulars frmNeueAusgaben <\/b>wird die Prozedur cmdNeueAusgaben <\/b>des Formulars frmProdukte <\/b>fortgesetzt, was zur Aktualisierung des Unterformulars mit den Ausgaben dieses Produkts und des Kombinationsfeldes zur Auswahl der aktuellen Ausgabe führt.<\/p>\n Abonnements anlegen<\/b><\/p>\n Nachdem Sie mit den beiden Formularen frmProdukte <\/b>und frmNeueAusgaben <\/b>einige Produkte und Ausgaben angelegt haben, kümmern wir uns um das Anlegen von Abonnements und Versendungen. Dies geschieht wieder im Formular frmKunden<\/b>. Dort fügen Sie nun zwei Unterformulare hinzu – eines zum Eintragen der Abonnements eines Kunden und eines für die Ausgaben zum aktuell ausgewählten Abonnement.<\/p>\n Das Unterformular zur Anzeige der Abonnements heißt sfmAbonnements <\/b>und verwendet die Tabelle tblAbonnements <\/b>als Datenherkunft. Sie soll alle Felder dieser Tabelle außer KundeID <\/b>anzeigen (s. Bild 14), und zwar in der Datenblattansicht.<\/p>\n Bild 14: Entwurf des Unterformulars sfmAbonnements<\/span><\/b><\/p>\n Fügen Sie das Unterformular einfach per Drag and Drop aus dem Datenbankfenster beziehungsweise dem Navigationsbereich in das Formular frmKunden<\/b>.<\/p>\n Access erkennt standardmäßig automatisch, dass es zwischen den als Datenherkunft verwendeten Tabellen tblKunden <\/b>und tblAbonnements <\/b>von Haupt- und Unterformular eine Beziehung gibt, und trägt das Feld KundeID <\/b>für die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements ein.<\/p>\n Anschließend legen Sie das Unterformular zur Anzeige der Ausgaben des aktuell im Unterformular sfmAbonnements <\/b>markierten Abonnements an. Es verwendet die Tabelle tblVersendungen <\/b>als Datenherkunft und zeigt die Felder AusgabeID <\/b>und Versanddatum <\/b>an (s. Bild 15).<\/p>\n Bild 15: Entwurf des Unterformulars sfmVersendungen<\/span><\/b><\/p>\n Wenn Sie das Unterformular sfmVersendungen<\/b> wie gewohnt zum Hauptformular hinzufügen, wird jedoch keine Beziehung zwischen einem der Felder des Unterformulars und dem Hauptformular hergestellt. Das ist auch gar nicht möglich, denn das Unterformular sfmVersendungen <\/b>soll ja die zum aktuellen Datensatz des Unterformulars sfmAbonnements <\/b>vorhandenen Datensätze anzeigen.<\/p>\n Wie also synchronisieren wir die beiden Unterformulare Dazu legen Sie zunächst ein Textfeld im Hauptformular an. Dieses heißt txtAktuellesAbonnementID <\/b>und soll jeweils den Wert des Feldes AbonnementID <\/b>des im Unterformular markierten Datensatzes anzeigen. Dazu tragen Sie für die Eigenschaft Steuerelementinhalt <\/b>den folgenden Ausdruck ein (s. Bild 16):<\/p>\n Bild 16: Abbilden der im Unterformular ausgewählten AbonnementID im Hauptformular<\/span><\/b><\/p>\n Wenn Sie nun einen Datensatz im Unterformular sfmAbonnements <\/b>für einen Kunden anlegen, zeigt das Textfeld txtAktuellesAbonnement <\/b>den Wert des Feldes AbonnementID <\/b>dieses Datensatzes an. Nun müssen Sie noch das Unterformular sfmVersendungen <\/b>so einstellen, dass es nur die zu diesem Abonnement passenden Datensätze anzeigt. Dies erledigen Sie wiederum über die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements auf die Werte AbonnementID <\/b>und txtAktuellesAbonnementID<\/b> (s. Bild 17).<\/p>\n Bild 17: Synchronisieren der Unterformulare<\/span><\/b><\/p>\n Abonnement und Versendungen eintragen<\/b><\/p>\n Nun liegen aber noch keine Abonnements und Versendungen vor, mit denen Sie die Synchronisierung der Unterformulare ausprobieren könnten. Also kümmern wir uns nun um das Anlegen von Abonnements samt Versendungen. Dies setzt das Vorhandensein eines Kundendatensatzes im Hauptformular voraus, denn sonst kann das Abonnement nicht zugeordnet werden.<\/p>\n Ist ein Kunde vorhanden, soll das Auswählen eines Produktes mit dem in cboProduktID <\/b>umbenannten Kombinationsfeld mit dem Steuerelementinhalt ProduktID <\/b>im Unterformular sfmAbonnements <\/b>alles Weitere anstoßen.<\/p>\n Wir verwenden die durch das Ereignis Vor Aktualisierung <\/b>ausgelöste Ereignisprozedur, die Sie wie in Listing 3<\/a><\/span> im Klassenmodul Form_sfmAbonnements <\/b>anlegen. Die Prozedur speichert zunächst die ProduktID <\/b>in der Variablen lngProduktID<\/b>. Das Feld Startdatum <\/b>wird mit der Funktion Now <\/b>auf das aktuelle Datum und die entsprechende Uhrzeit eingestellt – gegebenenfalls können Sie hier die Uhrzeit weglassen und mit der Funktion Date <\/b>nur das Datum eintragen.<\/p>\n Listing 3: Anlegen eines Abonnements und der Versendungen<\/p>\n Dann prüft die Routine, ob für dieses Abonnement gegebenenfalls nur ein neues Produkt ausgewählt wurde – beispielsweise nach einer Fehleingabe. Wird ein komplett neues Produkt ausgewählt, löscht die Prozedur alle vorhandenen Versendungen zu diesem Abonnement. Dann ruft die Prozedur die Routine VersendungenAnlegen<\/b> mit der ProduktID <\/b>und der AbonnementID <\/b>auf (s. Modul mdlAbonnements<\/b>). Diese ermittelt zunächst einige Werte:<\/p>\n Danach öffnet die Prozedur eine Datensatzgruppe auf Basis der Abfrage qryProdukteAusgaben<\/b>, welche die Tabellen tblProdukteAusgaben <\/b>und tblAusgaben <\/b>zusammenführt. Diese werden nach den Feldern AusgabeJahr <\/b>und AusgabeNummer <\/b>sortiert und nach der in lngProduktID <\/b>gespeicherten ProduktID <\/b>gefiltert.<\/p>\n Diese Abfrage enthält alle Ausgaben für dieses Produkt. Da wir uns lediglich für eine bestimmte Anzahl Ausgaben ab der aktuellen Ausgabe interessieren, springen wir mit der FindFirst<\/b>-Methode zunächst zur aktuellen Ausgabe.<\/p>\n Danach durchläuft eine Do While<\/b>-Schleife alle Ausgaben ab der aktuellen Ausgabe. Die Abbruchbedingung tritt ein, wenn das Ende der Datensatzgruppe erreicht wurde oder wenn die gewünschte Anzahl Versendungen angelegt wurde. Innerhalb dieser Schleife wird zunächst eine SQL-Anweisung zusammengestellt, welche einen neuen Datensatz zur Tabelle tblVersendungen <\/b>hinzufügen soll. Dabei wird das Feld AbonnementID <\/b>mit dem automatisch zum gleichnamigen Feld des Unterformulars sfmAbonnements <\/b>hinzugefügten Wert gefüttert und das Feld AusgabeID <\/b>mit dem entsprechenden Wert der Datensatzgruppe rstAusgaben<\/b>.<\/p>\n Bevor diese SQL-Abfrage tatsächlich ausgeführt wird, deaktiviert die Prozedur die Fehlerbehandlung. Sollte das Abonnement nämlich bereits zuvor einmal angelegt worden sein, sind eventuell bereits Datensätze vorhanden. Wird eine Kombination aus Ausgabe und Abonnement zwei Mal angelegt, löst dies den Fehler 3022 <\/b>aus, der hier entsprechend behandelt wird – und zwar, indem der Zeichenkette strVorhanden <\/b>die Bezeichnung der Ausgabe angehängt wird. Schließlich wird i<\/b> um eins erhöht.<\/p>\n Nach dem Durchlaufen der Schleife prüft die Prozedur noch, ob Versendungen bereits vorhanden waren, und gibt eine entsprechende Meldung aus; dies geschieht auch, wenn weniger Versendungen als erwartet angelegt wurden. Dies kann etwa dann geschehen, wenn nicht mehr genügend Ausgaben in der Tabelle tblAusgaben <\/b>gefunden wurden.<\/p>\n Zu guter Letzt speichert wiederum die aufrufende Prozedur cboProduktID_AfterUpdate <\/b>den Datensatz und aktualisiert das Unterformular sfmVersendungen<\/b> des übergeordneten Formulars, damit die angelegten Versendungen direkt angezeigt werden.<\/p>\n Versendungen manuell anlegen<\/b><\/p>\n Das Formular soll es auch erlauben, manuell Verwendungen anzulegen. Dies kann etwa der Fall sein, wenn Sie einem Kunden eine oder mehrere Ausgaben im Rahmen einer Bonusaktion oder dergleichen spendieren möchten.<\/p>\n Das Kombinationsfeld cboAusgabeID<\/b> sollte dann natürlich nur solche Werte enthalten, die auch in dem im Abonnement angegebenen Produkt enthalten sind.<\/p>\n Außerdem soll verhindert werden, dass der Benutzer eine Ausgabe zu einem Abonnement hinzufügt, das bereits für eine Versendung vorgesehen ist. Im Datenmodell ist dies bereits durch einen eindeutigen Index über die Felder AbonnementID <\/b>und AusgabeID <\/b>in der Tabelle tblVersendungen <\/b>abgesichert, aber der Benutzer soll natürlich nicht mit der beim Verletzen von derartigen Restriktionen üblichen Fehlermeldung konfrontiert werden.<\/p>\n Dummerweise ist es nicht möglich, nur die noch nicht verwendeten Datensätze der zugrunde liegenden Tabelle tblVersendungen <\/b>anzuzeigen – wenn Sie die Datensatzherkunft um solche Ausgaben-Datensätze beschneiden, die in bereits zugeordneten Versendungen vorkommen, werden diese in den bereits vorhandenen Einträgen nicht mehr angezeigt.<\/p>\n Allerdings können wir die Daten wenigstens so sortieren, dass die noch nicht verwendeten Einträge zuerst angezeigt werden. Dazu legen Sie zunächst eine Basisabfrage an, die wie in Bild 18 die Tabellen tblAusgaben<\/b>, tblProdukteAusgaben<\/b>, tblProdukte <\/b>und tblAbonnements <\/b>zusammenführt.<\/p>\n Bild 18: Basisabfrage zum Sortieren der Ausgaben zur Auswahl für die Versendung<\/span><\/b><\/p>\n Die Abfrage soll die Felder AusgabeID<\/b>, AusgabeBezeichnung<\/b>, AbonnementID<\/b>, AusgabeJahr<\/b>, und AusgabeNummer<\/b> enthalten. Speichern Sie diese Abfrage unter dem Namen qryAusgabenNachAbonnements<\/b>. Legen Sie dann eine neue Abfrage an, welche die zuvor angelegte Abfrage qryAusgabenNachAbonnements <\/b>sowie die Tabelle tblVersendungen <\/b>als Datenherkunft enthält.<\/p>\n Fügen Sie alle Felder der Abfrage qryAusgabenNachAbonnements <\/b>zum Entwurfsraster hinzu und zusätzlich das Feld VersendungID <\/b>der Tabelle tblVersendungen<\/b>.<\/p>\n Zu diesem Zeitpunkt liegen noch keine Beziehungen zwischen der Abfrage qryAusgabenNachAbonnements <\/b>und tblVersendungen <\/b>im Abfrageentwurf vor. Diese fügen Sie nun hinzu: Die Abfrage soll nur diejenigen Datensätze aus qryAusgabenNachAbonnements <\/b>liefern, die über die Felder AusgabeID <\/b>und AbonnementID <\/b>mit der Tabelle tblVersendungen <\/b>verknüpft sind. Dazu setzen Sie die entsprechenden Beziehungspfeile. Aber wollten wir denn nicht gerade die übrigen Datensätze anzeigen – also diejenigen, die noch nicht in der Tabelle tblVersendungen <\/b>erfasst sind Doch: Also ändern Sie die Beziehungstypen der beiden Beziehungen wie in Bild 19 ab – also auf die Weise, dass die Abfrage alle Datensätze der Abfrage qryAusgabenNachAbonnements<\/b> anzeigt, unabhängig davon, ob es verknüpfte Datensätze in der Tabelle tblVersendungen <\/b>gibt.<\/p>\n Bild 20: Abfrage zum Sortieren nach zu versendenden Ausgaben<\/span><\/b><\/p>\n Speichern Sie die Abfrage unter dem Namen qryAusgabenNachAbonnementsMitVersendung<\/b>.<\/p>\n Die Abfrage sieht danach wie in Bild 20 aus. Hier fügen Sie noch Sortierungen nach den Feldern VersendungID<\/b>, AusgabeJahr <\/b>und AusgabeNummer <\/b>ein. Dadurch, dass zuerst nach den Versendungen sortiert wird, erscheinen die Datensätze mit einem Nullwert für dieses Feld ganz oben.<\/p>\n Bild 21: Nach zu versendenden und nicht zu versendenden Ausgaben sortierte Datensätze<\/span><\/b><\/p>\n Das Ergebnis sieht dann etwa wie in Bild 21 aus. Die Einträge, deren Feld VersendungID <\/b>den Wert Null <\/b>hat, werden ganz oben angezeigt und nach Jahr und Nummer der Ausgabe sortiert. Für das Kombinationsfeld müssen wir den Inhalt natürlich noch nach dem Abonnement filtern, denn es sollen ja nur die für das aktuell im Unterformular sfmAbonnements <\/b>markierte Abonnement angelegten Ausgaben angezeigt werden. <\/p>\n Bild 19: Einstellung der Verknüpfungseigenschaften<\/span><\/b><\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic004.png\")
<\/p>\n\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic005.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic002.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic006.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic008.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic011.png\")
<\/p>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic012.png\")
<\/p>\nPrivate Sub cmdNeueAusgaben_Click()\r\n DoCmd.OpenForm "frmNeueAusgaben", WindowMode:=acDialog, OpenArgs:=Me!ProduktID\r\n Me!cboAktuelleAusgabeID.Requery\r\n Me!sfmAusgaben.Form.Requery\r\nEnd Sub<\/pre>\n
![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic013.png\")
<\/p>\n![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic014.png\")
<\/p>\nPrivate Sub Form_Open(Cancel As Integer)\r\n Dim i As Integer\r\n Dim strAusgaben As String\r\n Dim intAnzahlAusgaben As Integer\r\n Dim intJahrAusgabe As Integer\r\n Dim intNummerAusgabe As Integer\r\n lngProduktID = Nz(Me.OpenArgs)\r\n If lngProduktID = 0 Then\r\n Cancel = True\r\n Else\r\n intAnzahlAusgaben = DLookup("AnzahlAusgaben", "tblProdukte", "ProduktID = " & lngProduktID)\r\n intJahrAusgabe = Nz(DMax("AusgabeJahr", "qryProdukteAusgaben", _\r\n "ProduktID = " & lngProduktID), Year(Date))\r\n intNummerAusgabe = Nz(DMax("AusgabeNummer", "qryProdukteAusgaben", _\r\n "ProduktID = " & lngProduktID & " AND AusgabeJahr = " & intJahrAusgabe), 1)\r\n For i = 1 To 100\r\n If Not intNummerAusgabe = intAnzahlAusgaben Then\r\n intNummerAusgabe = intNummerAusgabe + 1\r\n Else\r\n intNummerAusgabe = 1\r\n intJahrAusgabe = intJahrAusgabe + 1\r\n End If\r\n strAusgaben = strAusgaben & intNummerAusgabe & ";" & intJahrAusgabe & ";" _\r\n & intNummerAusgabe & "\/" & intJahrAusgabe & ";"\r\n Next i\r\n Me!lstAusgaben.RowSource = strAusgaben\r\n Me!lstAusgaben = Me!lstAusgaben.ItemData(0)\r\n End If\r\nEnd Sub<\/pre>\nDim lngProduktID As Long<\/pre>\n
1;2012;1\/2012<\/pre>\n
Private Sub cmdOK_Click()\r\n Dim var As Variant\r\n Dim db As DAO.Database\r\n Dim strBezeichnung As String\r\n Dim intNummer As String\r\n Dim intJahr As String\r\n Dim lngAusgabeID As Long\r\n Set db = CurrentDb\r\n For Each var In Me!lstAusgaben.ItemsSelected\r\n intNummer = Me!lstAusgaben.Column(0, var)\r\n intJahr = Me!lstAusgaben.Column(1, var)\r\n strBezeichnung = Me!lstAusgaben.Column(2, var)\r\n db.Execute "INSERT INTO tblAusgaben(AusgabeBezeichnung, AusgabeNummer, AusgabeJahr) " _\r\n & "VALUES(''" & strBezeichnung & "'', " & intNummer & ", " & intJahr & ")", dbFailOnError\r\n lngAusgabeID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0)\r\n db.Execute "INSERT INTO tblProdukteAusgaben(ProduktID, AusgabeID) VALUES(" & lngProduktID _\r\n & ", " & lngAusgabeID & ")", dbFailOnError\r\n Next var\r\n Set db = Nothing\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic015.png\")
<\/p>\n![\"pic016.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic016.png\")
<\/p>\n![\"pic017.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic017.png\")
<\/p>\n=[sfmAbonnements]![AbonnementID]<\/pre>\n
![\"pic018.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic018.png\")
<\/p>\nPrivate Sub cboProduktID_AfterUpdate()\r\n Dim lngProduktID As Long\r\n Dim db As DAO.Database\r\n lngProduktID = Me!cboProduktID\r\n Me!Startdatum = Now\r\n Set db = CurrentDb\r\n If Not Me!cboProduktID.OldValue = lngProduktID Then\r\n db.Execute "DELETE FROM tblVersendungen WHERE AbonnementID = " _\r\n & Me!AbonnementID, dbFailOnError\r\n End If\r\n Call VersendungenAnlegen(lngProduktID, Me!AbonnementID)\r\n RunCommand acCmdSaveRecord\r\n Me.Parent!sfmVersendungen.Form.Requery\r\n Set db = Nothing\r\nEnd Sub
\n
![\"pic020.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic020.png\")
<\/p>\n![\"pic021.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic021.png\")
<\/p>\n![\"pic023.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic023.png\")
<\/p>\n![\"pic022.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic022.png\")
<\/p>\n
![\"pic024.png\"](\"..\/fileadmin\/_temp_\/2012_06\/AbonnementsVerwalten-web-images\/pic024.png\")
<\/p>\n