<\/p>\n
Im ersten Teil dieser Beitragsreihe haben Sie das Datenmodell der Abonnementverwaltung und einige Formulare zur Eingabe von Kunden, Produkten und Abonnements erstellt. Im zweiten Teil kümmern wir uns um weitere Funktionen – zum Beispiel das Ermitteln abgelaufener Abonnements und die Verlängerung, Kündigung und Stornierung von Abonnements.<\/b><\/p>\n
Abonnements kündigen und stornieren<\/b><\/p>\n
Kunden können Abonnements kündigen und stornieren. Dies sind zwei unterschiedliche Vorgänge. Bei einer Kündigung wird das laufende Abonnement noch durchgeführt, die automatische Verlängerung bleibt jedoch aus.<\/p>\n
Bei einer Stornierung wird das aktuelle Abonnement storniert. Dies ist in der Regel nur innerhalb der ersten zwei bis vier Wochen nach der Bestellung möglich – je nach Kulanz des Anbieters.<\/p>\n
Für beide Fälle enthält die Tabelle tblAbonnements <\/b>je ein Datumsfeld. Das erste heißt GekuendigtAm<\/b>, das zweite StorniertAm<\/b>. Für den Bearbeiter des Abonnements ist es wohl am einfachsten, wenn er das Datum der Kündigung beziehungsweise der Stornierung manuell eingibt. Dies soll – neben dem Speichern des jeweiligen Datums – gleichzeitig noch eine weitere Aktion auslösen, nämlich den Versand einer E-Mail mit der Bestätigung der Kündigung oder Stornierung.<\/p>\n
Wenn Sie nicht komplett digital arbeiten, können Sie natürlich auch einen Bericht mit den Kundendaten und den Daten der Kündigung oder Stornierung erzeugen, diesen ausdrucken und per Briefpost versenden.<\/p>\n
Kündigung eintragen<\/b><\/p>\n
Die Kündigung tragen Sie beispielsweise in das Textfeld txtGekuendigtAm <\/b>des Unterformulars sfmAbonnements <\/b>des Formulars frmKunden <\/b>ein (s. Bild 1). Dies sorgt nach dem Bestätigen des eingetragenen Wertes für die Anzeige eines Meldungsfensters, mit dem der Benutzer festlegt, ob der Kunde eine E-Mail mit einer Kündigungsbestätigung erhalten soll.<\/p>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic003.png\")
<\/p>\n
Bild 1: Eintragen des Kündigungsdatums<\/span><\/b><\/p>\n Klickt der Benutzer anschließend auf Ja<\/b>, erstellt die Anwendung eine E-Mail auf Basis der Benutzerdaten und öffnet diese (s. Bild 2).<\/p>\n Bild 3: Kündigungsbestätigung per Ereignisprozedur auslösen<\/span><\/b><\/p>\n Das Erstellen dieser E-Mail erfolgt mit Outlook. Der dazu benötigte Code ist überschaubar, da wir eine Klasse namens clsMail <\/b>verwenden, die das Erstellen von E-Mails mit Outlook erheblich vereinfacht.<\/p>\n Diese Klasse und ihre Beschreibung finden Sie im Beitrag Outlook-Mails mit Klasse <\/b>(www.access-im-unternehmen.de\/859<\/b>).<\/p>\n Um die Klasse clsMail <\/b>in der Beispieldatenbank Abonnementverwaltung.mdb <\/b>verfügbar zu machen, importieren Sie diese aus der Beispieldatenbank des Artikels Outlook-Mails mit Klasse<\/b>. Dies gelingt am einfachsten, indem Sie die VBA-Projekte beider Datenbankanwendungen öffnen und die Klasse clsMails <\/b>per Drag and Drop von einem Projekt-Explorer in den anderen ziehen.<\/p>\n Damit die Klasse funktioniert, fügen Sie außerdem noch einen Verweis auf die Bibliothek Microsoft Outlook x.0 Object Library <\/b>zum VBA-Projekt hinzu (Menüeintrag Extras|Verweise <\/b>im VBA-Editor).<\/p>\n Danach legen Sie die entsprechende Ereignisprozedur an. Öffnen Sie das Formular sfmAbonnements <\/b>in der Entwurfsansicht und markieren Sie das Textfeld txtGekuendigtAm <\/b>(die gebundenen Steuerelemente wurden mit entsprechenden Präfixen wie txt<\/b>, cbo <\/b>et cetera versehen).<\/p>\n Wählen Sie für die Eigenschaft Nach Aktualisierung <\/b>den Eintrag [Ereignisprozedur]<\/b> aus und klicken Sie auf die Schaltfläche mit den drei Punkten (s. Bild 3<\/a><\/span>). Danach ergänzen Sie die im VBA-Editor erscheinende Ereignisprozedur wie in Listing 1.<\/p>\n Listing 1: Erstellen einer Kündigungsbestätigung per E-Mail<\/p>\n Bild 2: Kündigungsbestätigung per E-Mail<\/span><\/b><\/p>\n Die Prozedur deklariert ein Objekt des Typs clsMail <\/b>mit dem Namen objMail<\/b>. Danach fragt sie mit einer entsprechenden MsgBox<\/b>-Anweisung, ob die Kündigung per E-Mail versendet werden soll. Falls ja, wird objMail <\/b>mit einem neuen Objekt der Klasse clsMail <\/b>instanziert. Mit der Funktion AnHinzufuegen <\/b>wird der Empfänger hinzugefügt, der aus dem Feld EMail <\/b>des übergeordneten Formulars (also frmKunden<\/b>) gewonnen wird.<\/p>\n Den Betreff stellt die Prozedur aus dem Ausdruck Kündigung <\/b>und dem in Hochkommata eingefassten Namen des Produkts zusammen, der aus der zweiten Spalte des Kombinationfeldes cboProduktID <\/b>des aktuellen Datensatzes im Unterformular sfmAbonnements <\/b>gewonnen wird.<\/p>\n Den Inhalt der E-Mail stellt die Prozedur ebenfalls aus einer Mischung aus Literalen und dynamischen Elementen zusammen. Dazu gehören die Anrede und der Nachname aus dem übergeordneten Formular und nochmals die Produktbezeichnung.<\/p>\n Weitere Kunden- und Abonnementdaten verwenden<\/b><\/p>\n Sie erkennen bereits, dass es relativ müßig ist, sich die Daten für die Kündigungsbestätigung aus dem Haupt- und dem Unterformular zusammenzuklauben. Noch aufwendiger und wartungsunfreundlicher wird es, wenn Sie noch andere Möglichkeiten zum Eintragen von Kündigungs- und Stornierungsdaten vorsehen möchten.<\/p>\n Sie werden gleich beispielsweise noch ein Formular kennenlernen, das einen Überblick über alle Abonnements gewährleistet und verschiedene Aktionen erlauben soll – auch hier soll das Eintragen von Kündigungs- und Stornierungsdaten möglich sein.<\/p>\n Normalerweise würde man dort zum Versenden der Kündigungs- und Stornierungsbestätigung gern den gleichen Code verwenden, den Sie soeben kennengelernt haben – entweder per Copy and Paste des Codes und kleinere Anpassungen oder durch Refaktorieren. Das bedeutet, dass Sie die Hauptelemente des Codes in eine eigene Funktion füllen und diese von den verschiedenen Stellen aus aufrufen.<\/p>\n Das Problem ist das Zusammenstellen der in der Bestätigung verwendeten Daten: Diese stammen teils aus dem Unterformular, in das Sie das Kündigungs- oder Stornierungsdatum eintragen, teils aus dem übergeordneten Hauptformular. Dieses ist aber vielleicht an anderer Stelle gar nicht vorhanden. Also müssen wir einen flexibleren Weg für den Zugriff auf die Daten des zu bearbeitenden Abonnements und des entsprechenden Kunden finden.<\/p>\n Dies wäre beispielsweise über eine Klasse möglich, die alle relevanten Daten des Kunden und des Abonnements enthält.<\/p>\n Diese wird vor einer Operation, welche auf die Daten des Abonnements zugreifen muss, erzeugt und mit den entsprechenden Stammdaten gefüllt und stellt diese dann über eine einfache Schnittstelle bereit.<\/p>\n Klasse für den einfachen Zugriff auf Abonnementdaten<\/b><\/p>\n Die Klasse soll einige der Daten der Tabellen des Datenmodells enthalten. Diese finden Sie in Bild 4 in einer Abfrage namens qryAbonnementsKlasse<\/b>, die wir speziell für diesen Fall erstellt haben. Um diese Klasse zu erstellen – und zusätzlich eine kleine Prozedur, welche ein Objekt auf Basis dieser Klasse erstellt und diese mit den Daten eines angegebenen Datensatzes füllt -, verwenden wir das Add-In aiuKlassengenerator<\/b>, das im Beitrag Klassengenerator <\/b>(www.access-im-unternehmen.de\/871<\/b>) vorgestellt wird.<\/p>\n Bild 4: Felder, die in der Abonnement-Klasse abgebildet werden sollen<\/span><\/b><\/p>\n Starten Sie das Add-In mit dem Eintrag aiuKlassengenerator <\/b>des Add-In-Menüs (s. Bild 5). Wählen Sie im Kombinationsfeld Tabelle oder Abfrage <\/b>den Eintrag qryAbonnementsKlasse <\/b>aus. Stellen Sie die Eigenschaften Klassenname <\/b>auf clsAbonnement <\/b>und Primärschlüsselfeld <\/b>auf AbonnementID <\/b>ein. Aktivieren Sie die Option Ladeprozedur hinzufügen <\/b>und klicken Sie auf Erzeugen<\/b>, um den Code zu erstellen.<\/p>\n Bild 5: Erstellen der Klasse für den einfachen Zugriff auf die Daten eines Abonnements<\/span><\/b><\/p>\n Kopieren Sie den oberen Teil des erstellten Codes (bis zur Prozedur ErzeugeAbonnement<\/b>) in ein neues Klassenmodul namens clsAbonnement<\/b>. Die Prozedur ErzeugeAbonnement<\/b> kopieren Sie in das vorhandene Modul mdlAbonnements<\/b>.<\/p>\n Das Klassenmodul enthält für jedes Feld der zugrunde liegenden Abfrage drei Elemente – eine Membervariable, eine Set\/Let<\/b>-Prozedur und eine Get<\/b>-Prozedur:<\/p>\n Die Prozedur zum Erzeugen der Klasse auf Basis eines Datensatzes der Abfrage qryAbonnementsKlasse <\/b>sieht wie in Listing 2<\/a><\/span> aus. Vereinzelt sind dort noch Anpassungen nötig – so kann es beispielsweise vorkommen, dass die Felder GekuendigtAm<\/b> oder StorniertAm <\/b>leer sind. Für diesen Fall fügen Sie dort noch die Nz<\/b>-Funktion ein, die Nullwerte in diesem Fall durch 0 <\/b>ersetzt:<\/p>\n Listing 2: Erstellen eines Objekts auf Basis der Klasse clsAbonnements und Füllen der Eigenschaften der Klasse<\/p>\n Alternativ können Sie auch den Datentyp für eine Eigenschaft in der Klasse clsAbonnement <\/b>auf Variant <\/b>einstellen – dieser nimmt auch Nullwerte entgegen. In diesem Fall ist dies die bessere Variante – hier umgesetzt für das Feld GekuendigtAm<\/b>:<\/p>\n Mit dieser Klasse können Sie etwa das Zusammenstellen der Kündigungsbestätigung viel einfacher gestalten – siehe Listing 3<\/a><\/span>. Diese Prozedur können Sie flexibel aufrufen – also beispielsweise von der Ereignisprozedur txtGekuendigtAm_AfterUpdate <\/b>aus, in der sich die Funktionalität zuvor befunden hat. Sie müssen nur die Nummer des Abonnements übergeben:<\/p>\n Listing 3: Erstellen der Kündigungsbestätigung, verbesserte Variante<\/p>\n Auf die gleiche Weise könnten Sie diese Prozedur nun von anderen Formularen aus aufrufen – dazu später mehr.<\/p>\n Die Prozedur KuendigungSenden <\/b>zeigt auch, wie einfach Sie mit den Eigenschaften der Klasse etwa das Kündigungsdatum ermitteln können. Dazu greifen Sie direkt auf die Laufzeit und das Startdatum zu:<\/p>\n Natürlich könnten Sie dies auch erledigen, wenn Sie statt des Objekts objAbonnement <\/b>einfach ein Recordset auf Basis des betroffenen Datensatzes verwenden. Allerdings lässt es sich mit der Klasse viel einfacher programmieren, weil diese alle Felder beziehungsweise Eigenschaften per IntelliSense zur Verfügung stellt.<\/p>\n <\/p>\n Abgelaufene Abonnements ermitteln und verlängern<\/b><\/p>\n Wenn alle Ausgaben eines Abonnements versendet wurden, soll das Abonnement – so der Kunde dieses nicht gekündigt hat – in der Regel verlängert werden.<\/p>\n Mit steigender Kunden- und Abonnement-Zahl wird der Aufwand, alle zu verlängernden Abonnements von Hand zu ermitteln und zu verlängern, immer größer.<\/p>\n Also benötigen wir eine Prozedur, die alle Abonnements ermittelt, für die bereits alle Ausgaben versendet wurden. Diese muss natürlich die stornierten und gekündigten Abonnements ausklammern und – ganz wichtig – auch die bereits zuvor verlängerten Abonnements.<\/p>\n Solch eine Funktion sollte man nicht blind aufrufen, sondern sich zuvor optisch einen Überblick über die zu verlängernden Abonnements verschaffen. Dazu erstellen Sie ein Übersichtsformular, das die Abonnements diesmal nicht aus Kundensicht, sondern allgemein erfasst. Das heißt, dass einfach alle Abonnements untereinander angezeigt werden. Das Formular sieht wie in Bild 6 aus und bietet hier bereits einige Filtermöglichkeiten an:<\/p>\n Bild 6: Formular zum Verwalten der einzelnen Abonnements<\/span><\/b><\/p>\n Für alle Filtermöglichkeiten stehen die Einstellungen Alle anzeigen<\/b>, Ja <\/b>und Nein <\/b>bereit.<\/p>\n Ein Doppelklick auf die ID des Abonnements soll dieses in Zusammenhang mit dem jeweiligen Kunden im Formular frmKunden<\/b> anzeigen. Die beiden Schaltflächen rechts oben sollen alle Abonnements verlängern oder das aktuelle Abonnement verlängern, soweit möglich.<\/p>\n Wozu gibt es eine Filtermöglichkeit nach Abonnements, deren Ausgaben komplett versendet wurden, und eine für Abonnements, deren Laufzeit erfüllt ist<\/p>\n Dies ist für den Fall vorgesehen, dass ein neuer Abonnent etwa am 15. Januar 2012 in das Abonnement einsteigt und gleich die aktuelle Ausgabe erhält, die möglicherweise bereits am 1. Januar 2012 erschienen ist.<\/p>\n Das heißt, dass der Kunde – sofern alle Ausgaben am ersten Tag eines Monats erscheinen – am 1. Dezember 2012 alle zwölf Ausgaben erhalten hat. Eine Verlängerung sollte jedoch erst erfolgen, wenn auch der Zeitraum des Abonnements (hier ein Jahr) abgelaufen ist.<\/p>\n Der Grund ist, dass sich Kündigungsfristen in der Regel auf das Bestelldatum beziehen und nicht auf den Zeitpunkt, zu dem das Abonnement erfüllt ist.<\/p>\n Erhält der Kunde also bei Beginn des Abonnements gleich die aktuelle Ausgabe, sollte vor der Verlängerung dennoch der Abozeitraum abgelaufen sein.<\/p>\n Datenherkunft des Formulars<\/b><\/p>\n Als Datenherkunft des Unterformulars der Abonnementübersicht, sfmAbonnementsVerwalten<\/b>, dient die Abfrage aus Bild 7. Die Abfrage führt die Daten aus den Tabellen tblAbonnements<\/b>, tblVersendungen <\/b>und tblProdukte <\/b>zusammen.<\/p>\n Bild 7: Datenherkunft des Unterformulars sfmAbonnementsVerwalten<\/span><\/b><\/p>\n Die Verknüpfung zur Tabelle tblProdukte <\/b>erlaubt das Berücksichtigen der Produktdaten zum jeweiligen Abonnement. Die Tabelle tblAbonnements <\/b>taucht gleich zweimal auf. Dies hat den Grund, dass die Abfrage auch die Möglichkeit bieten soll, verlängerte Abonnements zu identifizieren.<\/p>\n Zu diesem Zweck ist die Tabelle tblAbonnements_1 <\/b>über das Feld FolgeAboVon <\/b>mit der Tabelle tblAbonnements <\/b>verknüpft. Die Beziehung ist so ausgelegt, dass alle Datensätze der Tabelle tblAbonnements <\/b>angezeigt werden, aber nur solche der Tabelle tblAbonnements_1<\/b>, die mit tbl-Abonnements <\/b>verknüpft sind.<\/p>\n Sprich: Wenn das Feld AbonnementID <\/b>der Tabelle tblAbonnements_1 <\/b>der Abfrage den Wert Null <\/b>hat, gibt es für das Abonnement des entsprechenden Datensatzes der Tabelle tblAbonnemtens <\/b>kein Folgeabonnement – das Abonnement wurde also noch nicht verlängert.<\/p>\n Auch zur Tabelle tblVersendungen <\/b>gibt es eine solche Verknüpfung. Dies stellt sicher, dass auch solche Abonnements angezeigt werden, für die noch keine Versendungen in der Tabelle tblVersendungen <\/b>hinterlegt wurden.<\/p>\n Da die Tabelle tblVersendungen <\/b>in der Regel mehrere Datensätze enthält, die mit einem Datensatz der Tabelle tblAbonnements <\/b>verknüpft sind, zeigt die Abfrage standardmäßig jeden Datensatz der Tabelle tblAbonnements <\/b>entsprechend der Anzahl der verknüpften Datensätze in der Tabelle tblVersendungen <\/b>an. Es soll jedoch jedes Abonnement nur einmal erscheinen.<\/p>\n Deshalb aktivieren Sie die Gruppierungsebene für Abfragen. Für die meisten Felder behalten Sie die Einstellung Gruppierung <\/b>in der Zeile Funktion <\/b>bei – jedoch nicht für die beiden Felder VersendungID <\/b>und Versanddatum<\/b> der Tabelle tblVersendungen<\/b>.<\/p>\n Für diese beiden Felder soll die Abfrage die Anzahl der Werte für jede Gruppierung (also für jedes Abonnement) liefern. Praktischerweise ermittelt die Anzahl<\/b>-Funktion in Gruppierungen nur die Anzahl für Datensätze, die im betroffenen Feld einen Wert ungleich Null <\/b>enthalten.<\/p>\n Das bedeutet, dass die Anzahl<\/b>-Funktion für das Feld VersendungID <\/b>die Gesamtzahl der zu versendenden Ausgaben für ein Abonnement liefert (das Primärschlüsselfeld ist immer gefüllt).<\/p>\n Das Feld Versanddatum <\/b>hingegen enthält nur einen Wert, wenn die Versendung bereits erfolgt ist.<\/p>\n Sind also etwa zwölf Datensätze in der Tabelle tblVersendungen <\/b>für ein Abonnement enthalten, von denen drei bereits versendet wurden, liefern die beiden mit der Anzahl<\/b>-Funktion versehenen Felder genau diese Werte zurück.<\/p>\n Wozu das Ganze Nun: Das ist ein einfacher Weg, um zu ermitteln, ob bereits alle Versendungen zu einem Abonnement durchgeführt wurden – in diesem Fall muss die Anzahl der Werte im Feld VersendetAm <\/b>gleich der Anzahl der Werte im Feld VersendungID <\/b>sein.<\/p>\n Wurde das Abonnement bereits verlängert<\/b><\/p>\n Ob ein Abonnement bereits verlängert wurde, ermittelt die Abfrage mit dem folgenden Ausdruck:<\/p>\n Ist die Laufzeit abgelaufen<\/b><\/p>\n Die Abfrage enthält auch ein Feld namens LaufzeitErfuellt <\/b>mit einem Ausdruck zur Prüfung der Laufzeit. Dazu prüft der Ausdruck, ob das aktuelle Datum größer ist als das Startdatum plus der Anzahl der im Feld Laufzeit <\/b>angegebenen Anzahl der Monate:<\/p>\n Filtern der Datensätze im Unterformular<\/b><\/p>\n Die fünf Optionsgruppen ogrGekuendigt<\/b>, ogrLaufzeit<\/b>, ogrStorniert<\/b>, ogrVerlaengert <\/b>und ogrVersendet <\/b>im Hauptformular lösen jeweils das Ereignis Nach Aktualisierung <\/b>aus.<\/p>\n Alle Ereignisprozeduren rufen die Routine AbonnementsAktualisieren <\/b>auf – hier etwa für die Optionsgruppe ogrGekuendigt<\/b>:<\/p>\n Die Prozedur AbonnementsAktualisieren <\/b>finden Sie in Listing 4<\/a><\/span>. Diese Prozedur prüft nacheinander den Wert der Optionsgruppen. Dazu sehen wir uns zunächst an, welche Werte überhaupt für die einzelnen Optionen festgelegt sind:<\/p>\n Listing 4: Aktualisieren der Anzeige der Abonnements im Unterformular sfmAbonnementsVerwalten<\/p>\n Die Prozedur prüft diese Werte nacheinander mithilfe entsprechender Select Case<\/b>-Bedingungen und stellt eine von den Einstellungen abhängige SQL-Where-Bedingung zusammen. Im Falle der Optionsgruppe ogrGekuendigt <\/b>lautet der SQL-Teilausdruck beispielsweise wie folgt, wenn nicht gekündigte Abonnements angezeigt werden sollen:<\/p>\n Sollen nur gekündigte Abonnements erscheinen, verwendet die Prozedur diesen Ausdruck:<\/p>\n Für die Option Alle anzeigen <\/b>ist keine Bedingung nötig. Genauso verfährt die Prozedur beim Filtern stornierter oder nicht stornierter Bestellungen.<\/p>\n Wenn der Benutzer alle Abonnements sehen will, die komplett versendet wurden, hängt die Prozedur diesen Ausdruck an die SQL-Bedingung an:<\/p>\n Diese Bedingung ist also erfüllt, wenn die Anzahl der Werte im Feld VersendungID <\/b>gleich der Anzahl der Werte im Feld Versanddatum <\/b>ist.<\/p>\n Die beiden zur Laufzeit ermittelten Felder Verlaengert <\/b>und LaufzeitErfuellt <\/b>werden auf ähnliche Weise zusammengesetzt.<\/p>\n Sollen noch nicht verlängerte Abonnements erscheinen, ist etwa dieser Ausdruck in die Bedingung zu integrieren:<\/p>\n Nach dem Zusammenstellen prüft die Prozedur, ob strSQL <\/b>überhaupt eine Bedingung enthält, und schneidet in diesem Fall das erste AND <\/b>des Ausdrucks ab und fügt vorn ein WHERE <\/b>an. Das Ergebnis wird schließlich an die folgende Abfrage angehängt und als Datenherkunft des Unterformulars angegeben:<\/p>\n Dies filtert das Unterformular entsprechend den Einstellungen der einzelnen Optionsgruppen.<\/p>\n Aufruf der Verlängerung eines Abonnements<\/b><\/p>\n Ein Mausklick auf die Schaltfläche mit der Beschriftung Aktuelles Abonnement verlängern <\/b>löst die Prozedur aus Listing 5<\/a><\/span> aus.<\/p>\n Listing 5: Verlängern des aktuell markierten Abonnements<\/p>\n Diese Prozedur prüft zunächst, ob überhaupt ein Datensatz im Unterformular sfmAbonnementsVerwalten <\/b>markiert ist – und zwar, indem sie den Wert des Feldes AbonnementID <\/b>auf den Wert Null <\/b>prüft.<\/p>\n Ist diese Bedingung nicht wahr, versucht die Prozedur, ein neues Abonnement als Verlängerung des markierten Abonnements anzulegen. Dazu ruft sie die Funktion AbonnementVerlaengern <\/b>auf und übergibt die AbonnementID <\/b>des zu verlängernden Abonnements. Das Ergebnis – die AbonnementID <\/b>des neuen Abonnements – speichert die Prozedur in der Variablen lngNeuesAbonnementID<\/b>.<\/p>\n Hat diese Variable nach dem Aufruf der Prozedur einen Wert größer als 0<\/b>, war der Vorgang erfolgreich.<\/p>\n Die Prozedur aktualisiert dann den Inhalt des Unterformulars und markiert automatisch den neu hinzugefügten Abonnement-Datensatz. War die Verlängerung nicht erfolgreich, erscheint eine entsprechende Meldung.<\/p>\n Ein Abonnement verlängern<\/b><\/p>\n Die Funktion AbonnementVerlaengern<\/b> finden Sie in Listing 6<\/a><\/span>. Sie erwartet die AbonnementID <\/b>des zu verlängernden Abonnements. Die Verlängerung erfolgt in zwei voneinander abhängigen Schritten:<\/p>\n Listing 6: Verlängern eines Abonnements mit einer bestimmten AbonnementID<\/p>\n Den zweiten Schritt führt eine eigene Funktion namens VersendungenAnlegenFolgeabo <\/b>durch. Diese liefert im Erfolgsfall den Wert True <\/b>zurück.<\/p>\n Wenn das Anlegen der Versendungs-Datensätze nicht erfolgreich war, soll auch der Datensatz in der Tabelle tblAbonnements <\/b>wieder gelöscht werden.<\/p>\n Dies erledigt die Prozedur, indem sie eine Transaktion startet, die als erste Aktion den neuen Datensatz in der Tabelle tblAbonnements <\/b>anlegt. Wenn das Anlegen der Versendungen für das neue Abonnement erfolgreich ist, wird die Transaktion abgeschlossen. Konnten die Versendungen nicht vollständig angelegt werden, findet ein Rollback der Transaktion statt.<\/p>\n Warum aber gehen wir diesen vermeintlich aufwendigen Weg der Transaktion und legen nicht einfach zuerst die Versendungen an und dann im Erfolgsfall den Abonnement-Datensatz Weil wir zum Anlegen der Versendungen bereits die AbonnementID <\/b>des neuen Abonnements benötigen.<\/p>\n Im Detail ermittelt die Prozedur zunächst die ProduktID <\/b>des zu verlängernden Abonnements. Eine INSERT INTO<\/b>-Aktionsabfrage fügt dann einen Datensatz in die Tabelle tblAbonnements <\/b>ein, der die Werte der Felder ProduktID <\/b>und KundeID <\/b>aus dem Datensatz für das zu verlängernde Abonnement ausliest.<\/p>\n Als Startdatum verwendet die Abfrage das aktuelle Datum, ermittelt mit der VBA-Funktion Now<\/b> und mit der Hilfsfunktion ISODatum <\/b>(siehe Modul mdlTools<\/b> der Beispieldatenbank) in das entsprechende Format gebracht.<\/p>\n Das Feld FolgeaboVon <\/b>wird schließlich mit dem Wert des Funktionsparameters lngAbonnementID <\/b>gefüllt – dieser Wert gilt gleichzeitig als Kriterium für den Datensatz der Tabelle tblAbonnements<\/b>, der die zu übernehmenden Werte liefert.<\/p>\n Die Variable lngFolgeAboID <\/b>nimmt den mit der Abfrage SELECT @@IDENTITY <\/b>ermittelten Primärschlüsselwert des neuen Datensatzes der Tabelle tblAbonnements <\/b>und somit die neue AbonnementID <\/b>auf. intAnzahlAusgaben <\/b>wird mit der Anzahl der Ausgaben für ein Abonnement mit der angegebenen ProduktID <\/b>gefüllt.<\/p>\n Schließlich folgt der Aufruf der Funktion VersendungenAnlegen <\/b>mit einigen Parametern – einem Verweis auf die aktuelle Datenbank, der neuen und der zu verlängernden AbonnementID<\/b>, der ProduktID <\/b>und der Anzahl der benötigten Ausgaben.<\/p>\n Liefert die Funktion den Wert True <\/b>zurück, führt CommitTrans <\/b>die Transaktion durch und der Funktionswert AbonnementVerlaengern <\/b>wird auf True <\/b>eingestellt, sonst setzt die Rollback<\/b>-Methode die Ónderungen zurück.<\/p>\n Versendungen für ein verlängertes Abonnement anlegen<\/b><\/p>\n Die Funktion VersendungenAnlegen <\/b>legt die für ein neues Abonnement benötigten Datensätze in der Tabelle tblVersendungen <\/b>an (s. Listing 7<\/a><\/span>).<\/p>\n Listing 7: Anlegen der Versendungen für ein verlängertes Abonnement<\/p>\n Die Funktion bekommt die neue AbonnementID<\/b>, die AbonnementID <\/b>des zu verlängernden Abonnements, die ProduktID <\/b>und die Anzahl der Ausgaben als Parameter übergeben.<\/p>\n Die Funktion ermittelt zunächst mithilfe einer weiteren Funktion namens LetzteAusgabe <\/b>die AusgabeID <\/b>der zuletzt für das zu verlängernde Abonnement verschickten Versendung (siehe unten) und speichert diese in der Variablen lngLetzteAusgabeID<\/b>.<\/p>\n Die grundlegenden Daten zum Erstellen der Versendungen stammen aus der Abfrage qryProdukteAusgabenNachProduktID<\/b> (s. Bild 8).<\/p>\n Listing 8: Ermittlung der letzten Ausgabe eines zu verlängernden Abonnements<\/p>\n Bild 8: Diese Abfrage liefert die zu versendenden Ausgaben.<\/span><\/b><\/p>\n Diese wird zunächst als QueryDef<\/b>-Objekt referenziert, da die Prozedur noch den Wert des Parameters GesuchteProduktID <\/b>zuweisen muss.<\/p>\n Dieser erhält den Wert der von der aufrufenden Funktion übergebenen Variablen lngProduktID<\/b>.<\/p>\n Erst nach der Zuweisung des Parameterwertes erzeugt die Prozedur ein Recordset<\/b>-Objekt auf Basis des QueryDef<\/b>-Objekts. Im Recordset springt die Prozedur zunächst mit der FindFirst<\/b>-Methode zu dem Datensatz, dessen Wert im Feld AusgabeID <\/b>dem der letzten Ausgabe des zu verlängernden Abonnements entspricht.<\/p>\n Ein Aufruf der MoveNext<\/b>-Methode platziert den Datensatzzeiger schließlich auf dem Datensatz mit der ersten Ausgabe des neuen Abonnements.<\/p>\n Von hier aus durchläuft die Prozedur die folgenden Datensätze des Recordsets – und zwar so lange, wie die folgenden beiden Bedingungen erfüllt sind:<\/p>\n Innerhalb der Schleife legt die Prozedur jeweils einen Datensatz in der Tabelle tblVersendungen <\/b>an, wobei die Werte für die Felder AbonnementID <\/b>und AusgabeID <\/b>der Variablen lngFolgeaboID <\/b>und dem Wert des Feldes AusgabeID <\/b>des Recordsets entnommen werden.<\/p>\n Nach dem Durchlaufen der Schleife kommen wir zur Prüfung, ob das Anlegen der Versendungsdatensätze erfolgreich war. Dies ist nämlich nur der Fall, wenn ausreichend Versendungen angelegt wurden – anderenfalls behält der Funktionswert seinen Standardwert False<\/b>.<\/p>\n Letzte Ausgabe eines zu verlängernden Abonnements ermitteln<\/b><\/p>\n Die Prozedur LetzteAusgabe <\/b>aus Listing 8<\/a><\/span> ermittelt die AusgabeID <\/b>der letzten Ausgabe eines Abonnements.<\/p>\n Sie erwartet einen Verweis auf die aktuelle Datenbank sowie die AbonnementID <\/b>des zu untersuchenden Datensatzes der Tabelle tblAbonnements<\/b>.<\/p>\n Die Prozedur verwendet die Abfrage qryLetzteVersendeteAusgabe <\/b>als Basis für die Ermittlung der gesuchten AusgabeID<\/b>. Die Abfrage verwendet die beiden Tabellen tblAusgaben <\/b>und tblVersendungen <\/b>als Datenherkunft (s. Bild 9).<\/p>\n Bild 9: Abfrage zum Ermitteln der letzten Augabe eines Abonnements<\/span><\/b><\/p>\n Sie enthält einen Parameter namens ZuVerlaengerndesAbonnementID<\/b>, der von der Funktion LetzteAusgabe <\/b>gefüllt werden muss.<\/p>\n Da die Abfrage das Ergebnis nach den Feldern AusgabeJahr <\/b>und AusgabeNummer <\/b>absteigend sortiert und die Eigenschaft Spitzenwerte <\/b>den Wert 1 <\/b>enthält, liefert diese direkt den gewünschten Datensatz.<\/p>\n Der Wert des Feldes AusgabeID <\/b>dieses Datensatzes ist gleichzeitig der Rückgabewert der Funktion.<\/p>\n Alle aktuell ausgewählten Abonnements verlängern<\/b><\/p>\n Mit einem Klick auf die Schaltfläche Aktuelle Auswahl verlängern <\/b>kann der Benutzer alle aktuell in der Liste angezeigten Abonnements verlängern. Diese sollte zuvor über die fünf Optionsgruppen entsprechend eingeschränkt werden.<\/p>\n Auch wenn dies nicht geschieht, verlängert die Prozedur, die durch die Schaltfläche cmdAktuelleAuswahlVerlaengern <\/b>ausgelöst wird, nur solche Abonnnements, die sich dazu eignen.<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic002.png\")
<\/p>\nPrivate Sub txtGekuendigtAm_AfterUpdate()\r\n Dim objMail As clsMail\r\n If MsgBox("Bestätigung per E-Mail versenden", vbYesNo) = vbYes Then\r\n Set objMail = New clsMail\r\n With objMail\r\n .AnHinzufuegen Me.Parent!EMail\r\n .Betreff = "Kündigung ''" & Me!cboProduktID.Column(1) & "''"\r\n .Inhalt = "Hallo " & Me.Parent!cboAnredeID.Column(1) & " " & Me.Parent!txtNachname _\r\n & ", " & vbCrLf & vbCrLf _\r\n & "hiermit bestätigen wir Ihnen die Kündigung Ihres Abonnements von ''" _\r\n & Me!cboProduktID.Column(1) & "''" & vbCrLf & vbCrLf _\r\n & "Mit freundlichen Grüßen" & vbCrLf & vbCrLf _\r\n & "Ihr Abo-Service"\r\n .Anzeigen\r\n End With\r\n End If\r\nEnd Sub<\/pre>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic006.png\")
<\/p>\nDim m_AbonnementID As Long\r\nPublic Property Get AbonnementID() As Long\r\n AbonnementID = m_AbonnementID\r\nEnd Property\r\nPublic Property Let AbonnementID(lngAbonnementID As Long)\r\n m_AbonnementID = lngAbonnementID\r\nEnd Property<\/pre>\n
objAbonnementsKlasse.StorniertAm = Nz(rst!StorniertAm, 0)<\/pre>\n
Public Function ErzeugeAbonnementsKlasse(lngID As Long) As clsAbonnement\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim objAbonnementsKlasse As clsAbonnement\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("SELECT * FROM qryAbonnementsKlasse WHERE AbonnementID = " _\r\n & lngID, dbOpenDynaset)\r\n Set objAbonnementsKlasse = New clsAbonnementsKlasse\r\n objAbonnementsKlasse.AbonnementID = rst!AbonnementID\r\n objAbonnementsKlasse.ProduktID = rst!ProduktID\r\n objAbonnementsKlasse.Produkt = rst!Produkt\r\n ''... weitere Zuweisungen\r\n Set ErzeugeAbonnementsKlasse = objAbonnementsKlasse\r\n Set db = Nothing\r\nEnd Function<\/pre>\nDim m_GekuendigtAm As Variant<\/span>\r\nPublic Property Get GekuendigtAm() As Variant\r\n GekuendigtAm = m_GekuendigtAm\r\nEnd Property\r\nPublic Property Let GekuendigtAm(datGekuendigtAm As Variant)\r\n m_GekuendigtAm = datGekuendigtAm\r\nEnd Property<\/pre>\nPrivate Sub txtGekuendigtAm_AfterUpdate()\r\n KuendigungSenden Me!AbonnementID\r\n End Sub<\/pre>\n
Public Sub KuendigungSenden(lngAbonnementID As Long)\r\n Dim objMail As clsMail\r\n Dim objAbonnement As clsAbonnement\r\n If MsgBox("Bestätigung der Kündigung per E-Mail versenden", vbYesNo + vbExclamation, _\r\n "Kündigungsbestätigung") = vbYes Then\r\n Set objMail = New clsMail\r\n Set objAbonnement = ErzeugeAbonnementsKlasse(lngAbonnementID)\r\n With objMail\r\n .AnHinzufuegen objAbonnement.EMail\r\n .Betreff = "Kündigung ''" & objAbonnement.Produkt & "''"\r\n .Inhalt = "Hallo " & objAbonnement.Anrede & " " & objAbonnement.Nachname & ", " _\r\n & vbCrLf & vbCrLf _\r\n & "hiermit bestätigen wir Ihnen die Kündigung Ihres Abonnements von ''" _\r\n & objAbonnement.Produkt & "''." & vbCrLf & vbCrLf _\r\n & "Das Abonnement endet am " & Format(DateAdd("m", objAbonnement.Laufzeit, _\r\n objAbonnement.Startdatum), "dd.mm.yyyy") & "." & vbCrLf & vbCrLf _\r\n & "Mit freundlichen Grüßen" & vbCrLf & vbCrLf _\r\n & "Ihr Abo-Service"\r\n .Anzeigen\r\n End With\r\n End If\r\nEnd Sub<\/pre>\nFormat(DateAdd("m", objAbonnement.Laufzeit, _\r\nobjAbonnement.Startdatum), "dd.mm.yyyy")<\/pre>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic001.png\")
<\/p>\n\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic007.png\")
<\/p>\nVerlaengert:\r\nNicht [tblAbonnements_1].[AbonnementID] Ist Null<\/pre>\n
LaufzeitErfuellt: Datum()>DatAdd("m";[Laufzeit];\r\n[tblAbonnements].[Startdatum])<\/pre>\nPrivate Sub ogrGekuendigt_AfterUpdate()\r\n AbonnementsAktualisieren\r\n End Sub<\/pre>\n
\n
Private Sub AbonnementsAktualisieren()\r\n Dim strSQL As String\r\n Select Case Me!ogrGekuendigt\r\n Case -1\r\n strSQL = strSQL & " AND NOT GekuendigtAm IS NULL"\r\n Case 0\r\n strSQL = strSQL & " AND GekuendigtAm IS NULL"\r\n End Select\r\n Select Case Me!ogrStorniert\r\n Case -1\r\n strSQL = strSQL & " AND NOT StorniertAm IS NULL"\r\n Case 0\r\n strSQL = strSQL & " AND StorniertAm IS NULL"\r\n End Select\r\n Select Case Me!ogrVersendet\r\n Case -1\r\n strSQL = strSQL & " AND AnzahlVonVersendungID = AnzahlVonVersanddatum"\r\n Case 0\r\n strSQL = strSQL & " AND NOT AnzahlVonVersendungID = AnzahlVonVersanddatum"\r\n End Select\r\n Select Case Me!ogrVerlaengert\r\n Case -1\r\n strSQL = strSQL & " AND Verlaengert = TRUE"\r\n Case 0\r\n strSQL = strSQL & " AND Verlaengert = FALSE"\r\n End Select\r\n Select Case Me!ogrLaufzeit\r\n Case -1\r\n strSQL = strSQL & " AND LaufzeitErfuellt = TRUE"\r\n Case 0\r\n strSQL = strSQL & " AND LaufzeitErfuellt = FALSE"\r\n End Select\r\n If Len(strSQL) > 0 Then\r\n strSQL = Mid(strSQL, 5)\r\n strSQL = " WHERE " & strSQL\r\n End If\r\n Me!sfmAbonnementsVerwalten.Form.RecordSource = "SELECT * FROM qrySfmAbonnementsVerwalten" & strSQL\r\nEnd Sub<\/pre>\n
AND NOT GekuendigtAm IS NULL<\/pre>\n
AND GekuendigtAm IS NULL<\/pre>\n
AND AnzahlVonVersendungID = AnzahlVonVersanddatum<\/pre>\n
AND Verlaengert = FALSE<\/pre>\n
SELECT * FROM qrySfmAbonnementsVerwalten<\/pre>\n
Private Sub cmdAktuellesAbonnementVerlaengern_Click()\r\n Dim lngNeuesAbonnementID As Long\r\n If Not IsNull(Me!sfmAbonnementsVerwalten.Form.AbonnementID) Then\r\n lngNeuesAbonnementID = AbonnementVerlaengern(Me!sfmAbonnementsVerwalten.Form!AbonnementID)\r\n If lngNeuesAbonnementID > 0 Then\r\n Me!sfmAbonnementsVerwalten.Form.Requery\r\n Me!sfmAbonnementsVerwalten.Form.Recordset.FindFirst "AbonnementID = " & lngNeuesAbonnementID\r\n Else\r\n MsgBox "Das Abonnement kann nicht verlängert werden."\r\n End If\r\n End If\r\nEnd Sub<\/pre>\n
Public Function AbonnementVerlaengern(lngAbonnementID As Long) As Long\r\n Dim wrk As DAO.Workspace\r\n Set wrk = DBEngine(0)\r\n Dim db As DAO.Database\r\n Dim lngProduktID As Long\r\n Dim lngFolgeaboID As Long\r\n Dim intAnzahlAusgaben As Integer\r\n Set db = wrk(0)\r\n lngProduktID = DLookup("ProduktID", "tblAbonnements", "AbonnementID = " & lngAbonnementID)\r\n wrk.BeginTrans\r\n db.Execute "INSERT INTO tblAbonnements(ProduktID, KundeID, Startdatum, FolgeaboVon) " _\r\n & "SELECT ProduktID, KundeID, " & ISODatum(Now) & " AS Startdatum, " & lngAbonnementID _\r\n & " AS FolgeaboVon FROM tblAbonnements WHERE AbonnementID = " & lngAbonnementID, dbFailOnError\r\n lngFolgeaboID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0)\r\n intAnzahlAusgaben = DLookup("AnzahlAusgaben", "tblProdukte", "ProduktID = " & lngProduktID)\r\n If VersendungenAnlegenFolgeabo(db, lngAbonnementID, lngFolgeaboID, lngProduktID, _\r\n intAnzahlAusgaben) = True Then\r\n wrk.CommitTrans\r\n AbonnementVerlaengern = lngFolgeaboID\r\n Else\r\n wrk.Rollback\r\n End If\r\n Set db = Nothing\r\n Set wrk = Nothing\r\nEnd Function<\/pre>\n\n
Public Function VersendungenAnlegenFolgeabo(db As DAO.Database, lngAbonnementID As Long, _\r\n lngFolgeaboID As Long, lngProduktID As Long, intAnzahlAusgaben As Integer) As Boolean\r\n Dim qdf As DAO.QueryDef\r\n Dim prm As DAO.Parameter\r\n Dim rst As DAO.Recordset\r\n Dim strSQL As String\r\n Dim i As Integer\r\n Dim lngLetzteAusgabeID As Long\r\n lngLetzteAusgabeID = LetzteAusgabe(db, lngAbonnementID)\r\n Set qdf = db.QueryDefs("qryProdukteAusgabenNachProduktID")\r\n Set prm = qdf.Parameters("GesuchteProduktID")\r\n prm.Value = lngProduktID\r\n Set rst = qdf.OpenRecordset\r\n rst.FindFirst "AusgabeID = " & lngLetzteAusgabeID\r\n rst.MoveNext\r\n Do While Not rst.EOF And i < intAnzahlAusgaben\r\n strSQL = "INSERT INTO tblVersendungen(AbonnementID, AusgabeID) VALUES(" _\r\n & lngFolgeaboID & ", " & rst!AusgabeID & ")"\r\n db.Execute strSQL, dbFailOnError\r\n i = i + 1\r\n rst.MoveNext\r\n Loop\r\n If i = intAnzahlAusgaben Then\r\n VersendungenAnlegenFolgeabo = True\r\n End If\r\nEnd Function<\/pre>\nPublic Function LetzteAusgabe(db As DAO.Database, lngAbonnementID As Long) As Long\r\n Dim rstLetzteAusgabe As DAO.Recordset\r\n Dim prm As DAO.Parameter\r\n Dim qdf As DAO.QueryDef\r\n Set qdf = db.QueryDefs("qryLetzteVersendeteAusgabe")\r\n Set prm = qdf.Parameters("ZuVerlaengerndesAbonnementID")\r\n prm.Value = lngAbonnementID\r\n Set rstLetzteAusgabe = qdf.OpenRecordset\r\n LetzteAusgabe = rstLetzteAusgabe!AusgabeID\r\nEnd Function<\/pre>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic008.png\")
<\/p>\n\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2013_01\/AbonnementsVerwalten_2-web-images\/pic009.png\")
<\/p>\n