<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Das Entleihen und Verleihen spielt im Berufs- wie auch im Privatleben eine große Rolle. Wer kauft sich schon alles selbst, wenn ein Freund, Bekannter oder Arbeitskollege den gewünschten Gegenstand besitzt und man diesen nur für kurze Zeit benötigt Und hier fangen die Sorgen an: Je mehr man entleiht und verleiht, desto eher verliert man den überblick, wem was gehört und wem man was geliehen hat. Um Ordnung in die Welt des Leihens zu bringen, verwenden Sie – wie soll es schon anders sein – natürlich eine Datenbankanwendung.<\/b><\/p>\n
Falls Sie beispielsweise eine umfangreiche CD- oder Videosammlung mit offenem Zugang für Freunde und Arbeitskollegen besitzen oder selbst gerne mal Bücher aus der Bibliothek leihen, es ist immer gut zu wissen, welche Ihrer Besitztümer kurz- oder langfristig ihren Standort gewechselt haben, wo sie sich befinden und vor allem bis wann. Das gilt natürlich auch für Dinge, die Sie selbst entliehen haben.<\/p>\n
Interessant ist dabei vor allem die Möglichkeit, hin und wieder an die Fälligkeit der Bücher aus der Stadtbibliothek erinnert zu werden, und es ist auch schön, wenn man nicht erst nach einem halben Jahr den Videofilm in seiner Sammlung findet, den man nur für ein Wochenende leihen wollte.<\/p>\n
Eine komplette Anleitung zum Erstellen der hier vorgestellten Datenbank würde den Rahmen des Beitrags bei weitem sprengen. Daher verweist der Beitrag hin und wieder darauf, den Quellcode in der Beispieldatenbank einzusehen. <\/p>\n
Um diesen alltäglichen und nervenden Problemen aus dem Weg zu gehen, verwenden Sie eine Datenbankanwendung. Mit Hilfe geeigneter Formulare können Sie eingeben, wann Sie was von wem entliehen haben und wann Sie es zurückgeben möchten bzw. müssen. Das Gleiche gilt für die andere Richtung: Auch die verliehenen Gegenstände soll die Datenbank aufnehmen.<\/p>\n
Und damit das Ganze richtig praktisch wird, ziehen Sie Microsoft Outlook hinzu: Auf Knopfdruck soll die Access-Datenbank einen Eintrag in Ihrem Terminkalender erstellen, der Sie rechtzeitig an die Rückgabe erinnert.<\/p>\n
Das Datenmodell besteht im Groben aus drei Tabellen. Dabei handelt es sich um die Tabellen tblPersonen, tblGegenstaende und tblVerleih.<\/p>\n
Die Tabellen<\/b><\/p>\n
In den folgenden Abschnitten erhalten Sie einen überblick über die Tabellen der Datenbank und deren Beziehungen.<\/p>\n
Die Tabelle tblKontakte soll nicht nur Personen, sondern auch Institutionen wie die Bibliothek, den Videoverleih und andere aufnehmen – also einfach alles und jeden, mit dem Sie irgendwie in ein Leihgeschäft verwickelt werden können.<\/p>\n
Um die Struktur der Tabelle möglichst einfach zu halten, soll sie neben dem Namen der Institution oder der Person lediglich die Adressdaten sowie Telefonnummer, Faxnummer und E-Mailadresse enthalten (siehe Bild 1).<\/p>\n
Die Tabelle tblGegenstaende beinhaltet alle Gegenstände, die Sie verleihen oder entleihen. Auch hier sollen zunächst zur die unbedingt benötigten Informationen gespeichert werden (siehe Bild 2).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Felder der Tabelle tblKontakte<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Die Tabelle tblGegenstaende<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Die Tabelle tblVerleih<\/span><\/b><\/p>\n Die Tabelle tblVerleih (siehe Bild 3) verbindet die beiden Tabellen tblKontakte und tblGegenstaende miteinander. Sie ist der eigentliche Kern des Datenmodells. Jeder Datensatz der Tabelle enthält einen Verweis auf einen Kontakt, der in den Leihvorgang verwickelt ist, einen Verweis auf den entsprechenden Gegenstand sowie einige weitere Informationen.<\/p>\n Dazu gehören das Verleihdatum, das Datum, an dem die Rückgabe spätestens erfolgen soll, sowie das Datum der tatsächlichen Rückgabe. Da die Datenbank auch die Möglichkeit einer Fristverlängerung berücksichtigen soll, enthält diese Tabelle ein Feld für die Angabe der Anzahl der Verlängerungen. Schließlich enthält sie noch das Feld AnOutlook, in dem gespeichert wird, ob der Rückgabetermin in den Outlook-Kalender eingetragen werden soll.<\/p>\n Es gibt noch zwei weitere Tabellen, die allerdings nur als Hilfstabellen zu betrachten sind: Die Tabelle tblGeliehenOderVerliehen enthält lediglich die beiden Einträge Geliehen und Verliehen. Sie dient als Datensatzherkunft für das Nachschlagefeld GeliehenOderVerliehenID der Tabelle tblVerleih.<\/p>\n Die Tabelle tblGegenstandArten enthält die unterschiedlichen Kategorien zur genaueren Einteilung der Gegenstände.<\/p>\n Die Beziehungen zwischen denTabellen<\/b><\/p>\n Wenn Sie die Tabellen erstellt haben, können Sie die Beziehungen zwischen den Tabellen einstellen. Als Vorlage dient das Beziehungsfenster aus Bild 4.<\/p>\n Legen Sie in den Eigenschaften der Beziehungen jeweils referentielle Integrität fest.<\/p>\n Die vier Beziehungen werden in den Tabellen jeweils als Nachschlagefelder ausgeführt. Zur Erstellung der Nachschlagefelder können Sie entweder den Assistenten verwenden oder die Eigenschaften von Hand einstellen.<\/p>\n <\/b><\/p>\n Bild 4: Beziehungsfenster der Datenbank<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Nachschlage-Eigenschaften der Tabelle tblGegenstaende<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Datensatzherkunft des Nachschlagefeldes GegenstandArtID<\/span><\/b><\/p>\n Für die zweite Möglichkeit führen Sie die folgenden Schritte aus (hier am Beispiel der Tabelle tblGegenstaende, deren Feld GegenstandArtID als Nachschlagefeld für die Datensätze der Tabelle tblGegenstandArten dient):<\/p>\n Die verwendete Abfrage enthält in der Regel das Primärindexfeld der Tabelle sowie das oder die Felder, die das Nachschlagefeld anzeigen soll – in diesem Fall das Feld GegenstandArtID und das anzuzeigende Feld GegenstandArt.<\/p>\n Legen Sie auf die gleiche Weise die Eigenschaften der anderen Nachschlagefelder fest. Es gibt lediglich eine Besonderheit bei dem Nachschlagefeld KontaktID der Tabelle tblVerleih, das zur Auswahl eines Datensatzes der Tabelle tblKontakte dient. Normalerweise soll ein Nachschlagefeld immer den Inhalt eines festen Feldes der verknüpften Tabelle anzeigen.<\/p>\n Die Tabelle tblKontakte kann aber unter Umständen nur einen Eintrag im Feld Institution oder einen Eintrag in den Feldern Nachname und Vorname enthalten.<\/p>\n Das Nachschlagefeld soll – falls vorhanden – die Institution und ansonsten Nachname und Vorname des Kontaktes anzeigen. Dazu verwenden Sie die folgende Abfrage:<\/p>\n Die Abfrage enthält das übliche Primärindexfeld – aber statt des üblicherweise konkret ausgewählten anzuzeigenden Feldes einen IIf-Ausdruck, der das Vorhandensein eines Eintrags in das Feld Institution überprüft. Falls vorhanden, gibt der IIf-Ausdruck die Institution zurück, ansonsten einen Ausdruck der Form Nachname, Vorname. <\/p>\n Sparen Sie sich die Mühe, nun direkt einige Datensätze einzugeben. Sie werden im nächsten Kapitel für die Eingabe aller notwendigen Daten entsprechende Formulare erstellen. Sie sollten lediglich für die Tabelle tblGeliehenOderVerliehen zwei Datensätze entsprechend Bild 7 eingeben. <\/p>\n Die Verleihverwaltung enthält insgesamt sechs Formulare, die in den folgenden Abschnitten beschrieben werden.<\/p>\n <\/b><\/p>\n Bild 7: Die Daten der Tabelle tblGeliehenOderVerliehen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 8: Das Hauptmenü der Verleihverwaltung<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 9: Entwurfsansicht des Formulars frmNeuerKontakt<\/span><\/b><\/p>\n Das Hauptmenü<\/b><\/p>\n Als Startformular dient das Formular frmHauptmenue (siehe Bild 8). Es steuert den Aufruf der unterschiedlichen Funktionen der Datenbank. Das sind im Wesentlichen die Eingabe von Leihvorgängen und die Anzeige von Verleih- und Entleihvorgängen.<\/p>\n Die beiden Schaltflächen btnListeVerliehen und btnListeGeliehen rufen das gleiche Formular namens frmListe auf. Um dennoch unterschiedliche Inhalte mit dem Formular anzuzeigen, verwendet der Formularaufruf erstens eine entsprechende Where-Bedingung und zweitens ein öffnungsargument:<\/p>\n Die Where-Bedingung schränkt die Datenherkunft des aufgerufenen Formulars ein, während das öffnungsargument lediglich die Zahl übergibt, die einem der beiden Datensätze der Tabelle tblGeliehenOderVerliehen entspricht. Die Funktion des öffnungsargumentes wird in Abschnitt 3.5 genauer beschrieben.<\/p>\n Das Formular zur Eingabe vonKontakten<\/b><\/p>\n Das Formular frmNeuerKontakt dient der Eingabe neuer Kontakte, an die Sie etwas verleihen oder von denen Sie etwas entleihen möchten.<\/p>\n Das Formular hat die Tabelle tblKontakte als Datenherkunft. Sie können die Felder der Tabelle aus der Feldliste wie in Bild 9 in den Detailbereich des Formulars ziehen.<\/p>\n Anschließend erstellen Sie die beiden Schaltflächen. Geben Sie ihnen die Namen btnSpeichern und btnAbbrechen.<\/p>\n Der Quellcode hinter der Schaltfläche Abbrechen schließt das Formular nach dem Verwerfen des aktuellen Datensatzes. Legen Sie die Prozedur aus Quellcode 1 für die Ereigniseigenschaft Beim Klicken der Schaltfläche btnAbbrechen an.<\/p>\n Quellcode 2<\/b><\/p>\n <\/b><\/p>\n Bild 10: Entwurfsansicht des Formulars frmNeuerGegenstand<\/span><\/b><\/p>\n Weitere Informationen zum Anlegen von Ereignisprozeduren finden Sie im Beitrag Anlegen von Ereignisprozeduren im vorliegenden Heft. <\/p>\n Das Betätigen der Schaltfläche Speichern (s. Quellcode 2) bewirkt zunächst eine überprüfung, ob mindestens das Feld Institution oder Nachname ausgefüllt ist. Die Prozedur läuft nur weiter, wenn mindestens einer der beiden Werte vorhanden ist. Anderenfalls erscheint eine entsprechende Meldung.<\/p>\n <\/p>\n Wenn die benötigten Daten vorhanden sind, speichert die Prozedur den Datensatz und setzt die Eigenschaft Visible des Formulars auf den Wert False.<\/p>\n Quellcode 1<\/b><\/p>\n Der Hintergrund ist, dass dieses Formular in der Regel von einem anderen Formular aufgerufen wird, welches nach dem Speichern des Datensatzes noch auf die eingegebenen Werte des Formulars zugreifen soll.<\/p>\n Das Formular zur Eingabe vonGegenständen<\/b><\/p>\n ähnlich aufgebaut ist das Formular frmNeuerGegenstand (siehe Bild 10). Es besitzt als Datenherkunft die Tabelle tblGegenstaende. Die Schaltflächen Speichern und Abbrechen besitzen eine Funktionalität, die fast mit der Funktionalität der entsprechenden Schaltflächen des Formulars frmNeuerKontakt identisch ist. Daher soll deren Funktion hier nicht erneut beschrieben werden.<\/p>\n Ein Unterschied ist das Vorhandensein eines Kombinationsfeldes zur Auswahl der Art des neuen Gegenstandes aus der Tabelle tblGegenstandArten. Eigentlich dienen Kombinationsfelder der Auswahl von bestimmten Werten – in manchen Fällen ist aber auch das Eingeben neuer Werte erforderlich. Damit dazu kein neues Formular geöffnet werden muss, erledigen Sie das direkt im Kombinationsfeld.<\/p>\n Dazu verwenden Sie eine Prozedur, die Sie für die Ereigniseigenschaft Bei Nicht In Liste anlegen. Sie finden die Prozedur im Klassenmodul des Formulars frmGegenstaende in der Beispieldatenbank. Es dient dazu, im Falle der Eingabe eines noch nicht vorhandenen Eintrages einen neuen Datensatz anzulegen und ihn mit dem eingegebenen Wert zu füllen.<\/p>\n Das Formular zur Eingabe derLeihvorgänge<\/b><\/p>\n Das Formular frmLeihvorgang ist das Kernstück der Eingabe von neuen Leihvorgängen. Hier geben Sie neue Leihvorgänge ein, und von hier aus können Sie die Formulare zur Eingabe von neuen Kontakten und Gegenständen öffnen. Als Datenherkunft des Formulars dient die Tabelle tblVerleih.<\/p>\n Im Detailbereich des Formulars benötigen Sie sechs Felder dieser Tabelle: GeliehenOderVerliehenID, KontaktID, GegenstandID, VerleihVon, VerleihBis und AnOutlook. Ordnen Sie die entsprechenden Steuerelemente im Detailbereich des Formulars wie in Bild 11 an, indem Sie die Feldliste aktivieren und die Felder per Drag & Drop an die entsprechenden Stellen ziehen.<\/p>\n <\/b><\/p>\n Bild 11: Das Formular frmLeihvorgang in der Entwurfsansicht<\/span><\/b><\/p>\n Erstellen Sie zusätzlich schon einmal die fünf Schaltflächen, denen Sie die Bezeichnungen und Namen aus Tab. 1 zuweisen.<\/p>\n Bezeichnung<\/b><\/p>\n<\/td>\n Name<\/b><\/p>\n<\/td>\n<\/tr>\n … (KontaktID)<\/p>\n<\/td>\n btnNeuerKontakt<\/p>\n<\/td>\n<\/tr>\n … (GegenstandID)<\/p>\n<\/td>\n btnNeuerGegenstand<\/p>\n<\/td>\n<\/tr>\n Aktuelles Datum<\/p>\n<\/td>\n btnAktuellesDatum<\/p>\n<\/td>\n<\/tr>\n Speichern<\/p>\n<\/td>\n btnSpeichern<\/p>\n<\/td>\n<\/tr>\n Abbrechen<\/p>\n<\/td>\n btnAbbrechen<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Bezeichnungen und Namen der Schaltflächen des Formulars frmLeihvorgang<\/b><\/p>\n Da Sie das gleiche Formular zur Eingabe von verliehenen und entliehenen Gegenständen verwenden, müssen einige Beschriftungen wie z. B. Entliehen von: entsprechend angepasst werden. Dazu versehen Sie die Beschriftungsfelder zunächst einmal mit aussagekräftigen Namen, nämlich lblVonAn für das Beschriftungsfeld mit der Beschriftung Ausgeliehen von, lblVon für Ausgeliehen am und lblBis für Zurückgeben am.<\/p>\n Ob Sie einen neuen Gegenstand ver- oder entleihen, legen Sie durch die Auswahl des entsprechenden Wertes für das Kombinationsfeld GeliehenOderVerliehenID fest. Die Ereignisprozedur, die durch das Ereignis Nach Aktualisierung des Kombinationsfeldes ausgelöst werden soll, passt die Beschriftung der Beschriftungsfelder an die jeweilige Anforderung an.<\/p>\n Die Ereignisprozedur setzt beispielsweise den Wert der Eigenschaft Caption des Beschriftungsfeldes lblVonAn auf den Wert Ausgeliehen von:, falls im Kombinationsfeld der Wert 1 (Geliehen) ausgewählt ist. Anderenfalls erhält das Beschriftungsfeld die Beschriftung Verliehen An:.<\/p>\n Sie finden die Prozedur im Klassenmodul des Formulars frmLeihvorgang. Es ist dort ausführlich dokumentiert. <\/p>\n Die erste Schaltfläche dient dem öffnen des Formulars frmNeuerKontakt zur Eingabe eines neuen Kontaktes. Legen Sie die Prozedur aus Quellcode 3 für die Ereigniseigenschaft Beim Klicken der Schaltfläche btnNeuerKontakt an.<\/p>\n Die Prozedur öffnet das Formular mit dem Wert acDialog für den Parameter WindowMode. Das bedeutet, dass die Ausführung der Prozedur unterbrochen wird, solange das Formular geöffnet ist.<\/p>\n Wie Sie bereits weiter oben erfahren haben, kann das Formular frmNeuerKontakt sich entweder durch die Schaltfläche btnSpeichern unsichtbar machen oder es schließt sich mit der Schaltfläche btnAbbrechen.<\/p>\n Die Funktion FormularGeoeffnet (Quellcode 4) überprüft, ob ein Formular geöffnet ist oder nicht. Falls das Formular frmNeuerKontakt nur unsichtbar gemacht und danach der Focus an die Prozedur btnNeuerKontakt_Click zurückgegeben wird, findet die Funktion FormularGeoeffnet das Formular frmNeuerKontakt als geöffnet vor. In dem Fall fragt die Prozedur den Inhalt des Feldes KontaktID des Formulars frmNeuerKontakt ab und trägt ihn in das Feld KontaktID des Formulars frmVerleih ein.<\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n Anschließend schließt die Prozedur das (noch) offene Formular endgültig.<\/p>\n Die Prozedur aus Quellcode 4 legen Sie in einem eigenen Modul an. Wechseln Sie im Datenbankfenster in das Register Module, erstellen Sie ein neues Modul und geben Sie dort die Funktion FormularGeoeffnet ein. Speichern Sie das Modul anschließend unter dem Namen modTools. <\/p>\n Die Schaltfläche neben dem Kombinationsfeld GegenstandID löst eine Prozedur aus, die fast genau die gleiche Funktion wie die eben beschriebene Prozedur hat. Sie bezieht sich lediglich auf das Kombinationsfeld GegenstandID und auf das entsprechende Formular frmNeuerGegenstand.<\/p>\n Die Schaltfläche btnAktuellesDatum bewirkt die Aktualisierung des Textfeldes VerleihVon auf das aktuelle Datum. Dazu verwendet es die Prozedur aus Quellcode 5, die durch das Ereignis Beim Klicken ausgelöst wird.<\/p>\n Die Schaltfläche btnAbbrechen soll lediglich die gemachten Eingaben verwerfen und das Formular schließen. Die entsprechende Ereignisprozedur ist mit der Prozedur der gleichnamigen Schaltfläche des Formulars frmNeuerKontakt identisch.<\/p>\n Interessanter ist die Funktion der Schaltfläche btnSpeichern. Legen Sie für die Ereigniseigenschaft Beim Klicken dieser Schaltfläche die Prozedur aus Quellcode 6 an. Die Prozedur überprüft zunächst, ob der Benutzer alle relevanten Informationen in die entsprechenden Textfelder eingegeben hat. Ist das der Fall, speichert die Prozedur zunächst den aktuellen Datensatz.<\/p>\n Und dann wird es interessant: Das Formular enthält – wie bereits weiter oben beschrieben – je ein Kontrollkästchen, mit dem der Benutzer angeben kann, ob der Rückgabetermin in den Outlook-Kalender eingetragen werden soll.<\/p>\n Dieses Feld wird am Ende der Prozedur überprüft. Ist der Wert des Feldes Wahr, ruft die Prozedur die Funktion TerminAnOutlook auf, die den gewünschten Termin in den Outlook-Kalender einträgt, und schließt nach erfolgreicher übergabe das Formular frmVerleih.<\/p>\n Die Beschreibung der Funktionen für die übergabe an Outlook finden Sie in Kapitel 5.<\/p>\n Quellcode 5<\/b><\/p>\n Das Formular zur Anzeige verliehener und ausgeliehener Gegenstände<\/b><\/p>\n Wenn Sie nun schon Ihre ver- und entliehenen Gegenstände in einer Datenbank speichern, sollen diese auch per Liste dargestellt werden. Dazu verwenden Sie das Formular frmListe. Es dient zur Anzeige der verliehenen als auch der entliehen Gegenstände – je nachdem, wie es geöffnet wird.<\/p>\n Quellcode 6<\/b><\/p>\n <\/b><\/p>\n Bild 12: Entwurfsansicht des Formulars frmListe<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 13: Das Formular frmListe in der Formularansicht<\/span><\/b><\/p>\n Wie im Formular frmVerleih gibt es auch hier einige Textelemente, deren Inhalt davon abhängt, ob die verliehenen oder die entliehenen Gegenstände angezeigt werden sollen.<\/p>\n Um das zu realisieren, übergeben die beiden Schaltflächen des Formulars frmHauptmenue beim Aufrufen jeweils ein öffnungsargument an das Formular frmListe (s. Abschnitt 3.1). Anhand des übergebenen Wertes (entweder 1 für verliehene oder 2 für entliehene Gegenstände) passt das Formular in der Prozedur, die durch die Ereigniseigenschaft Beim Laden des Formulars ausgelöst wird, den Inhalt unterschiedlicher Bezeichnungsfelder an (Quellcode siehe Beispieldatenbank).<\/p>\n Weitere Informationen zu öffnungsargumenten bzw. der Eigenschaft OpenArgs finden Sie in der Online-Hilfe von Access. <\/p>\n Datenherkunft des Formulars ist eine Abfrage, die auf der Tabelle tblVerleih basiert. Die Abfrage zeigt alle Datensätze an, die noch ver- oder entliehene Gegenstände enthalten. Das bedeutet, dass für das Feld RueckgabeAm noch kein Wert eingetragen sein darf. Der entsprechende SQL-Ausdruck lautet folgendermaßen:<\/p>\n Bild 12 zeigt die Entwurfsansicht des Formulars. Damit das Formular nicht nur einen, sondern alle Datensätze der Datenherkunft anzeigt, stellen Sie die Eigenschaft Standardansicht auf den Wert Endlosformular ein.<\/p>\n Quellcode 7<\/b><\/p>\n Die Schaltfläche Zurück dient dem Schließen des Formulars. Die Schaltfläche mit der Beschriftung Liste drucken öffnet den Bericht repListe, dessen Beschreibung Sie weiter unten in Kapitel 4 finden.<\/p>\n Wichtig sind die beiden Schaltflächen, die sich im Detailbereich des Formulars befinden und dementsprechend für jeden Datensatz angezeigt werden (siehe Bild 13).<\/p>\n Die Schaltfläche mit der Beschriftung Verlängern und dem Namen btnVerlaengern öffnet das Formular frmVerlaengern. Die Schaltfläche Rückgabe löst die Prozedur aus Quellcode 7 aus.<\/p>\n Die Prozedur bucht nach einer Sicherheitsabfrage den Datensatz als zurückgegeben, indem sie in das Feld RueckgabeAm das aktuelle Datum einträgt. Zwischendurch überprüft die Prozedur noch, ob für den Leihvorgang ein Eintrag im Outlook-Kalender vorgenommen wurde und löscht diesen gegebenenfalls. All dies erfolgt durch die Funktion OutlookTerminLoeschen, die weiter unten in Kapitel 5 beschrieben wird.<\/p>\n Das Formular zum Verlängern von Leihfristen<\/b><\/p>\n Das Formular frmVerlaengern wird im Formular frmListe durch die Schaltfläche btnVerlaengern geöffnet. Durch die übergabe einer entsprechenden Bedingung wird genau der gewünschte Datensatz angezeigt.<\/p>\n Datenherkunft des Formulars ist die Tabelle tblVerleih. Es zeigt die vorhandenen Informationen zu dem ver- oder entliehenen Gegenstand an und bietet die Möglichkeit, die Rückgabe entweder auf ein bestimmtes Datum oder um eine bestimmte Anzahl von Tagen zu verschieben (siehe Bild 14).<\/p>\n <\/b><\/p>\n Bild 14: Das Formular frmVerlaengerung in der Formularansicht<\/span><\/b><\/p>\n Die unter Leihdaten angezeigten Felder sollen gesperrt sein, da der Anwender die Daten nach dem Anlegen des Datensatzes nicht mehr verändern soll. Dazu ändern Sie den Wert der Eigenschaft Aktiviert auf Nein und Gesperrt auf Ja.<\/p>\n Im Bereich Verlängerung können Sie in der Optionsgruppe optgrpVerlaengern die Art der Verlängerung auswählen und die entsprechende Zeit bzw. den Zeitpunkt eingeben.<\/p>\n Die Verlängerung selbst erfolgt durch Betätigen der Schaltfläche btnVerlaengern. Dies löst eine Prozedur aus, die zunächst überprüft, welches Verlängerungsverfahren angewendet wird – die Verlängerung auf ein bestimmtes Datum oder um eine bestimmte Anzahl von Tagen.<\/p>\n <\/b><\/p>\n Bild 15: Der Bericht repListe in der Vorschau<\/span><\/b><\/p>\n Sie finden die Prozedur btnVerlaengern_Click im Klassenmodul des Formulars frmVerlaengern der Beispieldatenbank. <\/p>\n Abhängig von der gewählten Methode berechnet die Prozedur das neue Rückgabedatum.<\/p>\n Anschließend überprüft die Prozedur, ob der Leihvorgang bereits in Outlook eingetragen ist. Falls ja, ändert sie den entsprechenden Eintrag über die Funktion OutlookTerminAendern (s. Kapitel 5) oder fragt den Anwender, ob der Termin nun eingetragen werden soll. Dies erfolgt dann über die Funktion TerminAnOutlook (s. ebenfalls Kapitel 5).<\/p>\n Schließlich erhöht die Prozedur noch den Inhalt des Feldes AnzahlVerlaengerungen um den Wert 1.<\/p>\n Der Bericht stellt die Daten wie das Formular frmListe dar und ist ähnlich aufgebaut (siehe Bild 15). Zu erwähnen ist, dass auch der Bericht sowohl zur Anzeige der verliehenen als auch der entliehenen Gegenstände dient. Daher muss der Bericht irgendwoher die Information bekommen, in welche Richtung die Leihgeschäfte gehen. Im Formular frmListe haben Sie hierzu die Eigenschaft OpenArgs verwendet. Leider besitzen Berichte diese Eigenschaft nicht. Allerdings können Sie auch von einem Bericht aus auf die Eigenschaften von derzeit geöffneten Formularen zugreifen.<\/p>\n Daher verwenden Sie auch in dem Bericht die Eigenschaft OpenArgs des Formulars frmListe.<\/p>\n Im Bericht werden die entsprechenden Texte (z. B. in der überschrift) nicht per VBA zugewiesen. Hier verwenden Sie Textfelder, die beim öffnen des Berichts das öffnungsargument des Formulars frmListe auslesen und per IIf-Anweisung den anzuzeigenden Text ermitteln. Die Anweisung für die überschrift sieht beispielsweise folgendermaßen aus:<\/p>\n Wenn das öffnungsargument den Wert 1 hat, erscheint im Textfeld der Text Verliehene Gegenstände, falls nicht, erscheint der Text Entliehene Gegenstände.<\/p>\n Damit Access mit Outlook zusammenarbeitet, müssen Sie zunächst einen Verweis auf die Objektbibliothek von Outlook einrichten. Dazu gehen Sie folgendermaßen vor:<\/p>\n Quellcode 8<\/b><\/p>\n <\/b><\/p>\n Bild 16: Ein Outlook-Termin<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 17: Der neue Termin im Outlook-Kalender<\/span><\/b><\/p>\n Sie finden alle Funktionen, die sich auf Outlook beziehen, im Modul modOutlook der Beispieldatenbank. Der Quellcode ist an dieser Stelle ausführlich dokumentiert. <\/p>\n Enthaltene Beispieldateien:<\/p>\n Verleihdatenbank97.mdb<\/p>\n Verleihdatenbank2000.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic003.png\")
<\/p>\nDie Tabelle tblVerleih<\/h3>\n
Weitere Tabellen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic006.png\")
<\/p>\nSELECT KontaktID, IIf(Not IsNull\r\n ([Institution]),[Institution],\r\n [Nachname] & IIf(Not IsNull\r\n ([Vorname]),\", \" & [Vorname],\"\")) \r\n AS Kontakt\r\nFROM tblKontakte;<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic009.png\")
<\/p>\nPrivate Sub btnListeVerliehen_Click()\r\n DoCmd.OpenForm \"frmListe\", WhereCondition:= \"[GeliehenOderVerliehenID]=1\", OpenArgs:=1\r\nEnd Sub<\/pre>\n
Private Sub btnSpeichern_Click()\r\n If IsNull(Me.Institution) And IsNull(Me.Nachname) _ Then\r\n MsgBox \"Bitte füllen Sie mindestens eines \" _ & \"der beiden Felder Institution oder \" _ & \"Nachname aus.\"\r\n Exit Sub\r\n End If\r\n RunCommand acCmdSaveRecord\r\n Me.Visible = False\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic010.png\")
<\/p>\nHinweis<\/h3>\n
Private Sub btnAbbrechen_Click()\r\n Me.Undo\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Steuerelemente des Formulars<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic011.png\")
<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Hinweis<\/h3>\n
Funktionen der Schaltflächen<\/h3>\n
Private Sub btnNeuerKontakt_Click()\r\n DoCmd.OpenForm \"frmNeuerKontakt\", DataMode:=acFormAdd, WindowMode:=acDialog\r\n If FormularGeoeffnet(\"frmNeuerKontakt\") Then\r\n Me.KontaktID.Requery\r\n Me.KontaktID = Forms!frmNeuerKontakt.KontaktID\r\n DoCmd.Close acForm, \"frmNeuerKontakt\"\r\n End If\r\nEnd Sub<\/pre>\n
Public Function FormularGeoeffnet(Formularname As _ String) As Boolean\r\n FormularGeoeffnet = SysCmd(acSysCmdGetObjectState, _ acForm, Formularname)\r\nEnd Function<\/pre>\n
Hinweis<\/h3>\n
Private Sub btnAktuellesDatum_Click()\r\n Me.VerleihVon = Date\r\nEnd Sub<\/pre>\n
Private Sub btnSpeichern_Click()\r\n If IsNull(Me.VerleihBis) Or IsNull(Me.VerleihVon) Or IsNull(Me.GegenstandID) Or _ IsNull(Me.GeliehenOderVerliehenID) Or IsNull(Me.KontaktID) Then\r\n MsgBox \"Bitte füllen Sie alle Felder aus.\"\r\n Exit Sub\r\n End If\r\n RunCommand acCmdSaveRecord\r\n If Me.ctlTerminAnOutlook = True Then\r\n If TerminAnOutlook(VerleihBis, VerleihID) = True Then\r\n Me.AnOutlook = True\r\n End If\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic013.png\")
<\/p>\nHinweis<\/h3>\n
SELECT VerleihID, _KontaktID, GegenstandID, _GeliehenOderVerliehenID, _VerleihVon, VerleihBis, _RueckgabeAm\r\nFROM tblVerleih\r\nWHERE RueckgabeAm Is Null ORDER BY VerleihBis;<\/pre>\n
Private Sub btnRueckgabe_Click()\r\n If MsgBox(\"Klicken Sie auf die Schaltfläche OK, um den Gegenstand als zurück\" _ & \"gegeben zu buchen.\", vbExclamation + vbOKCancel, \"Rückgabe\") = vbOK Then\r\n Me.RueckgabeAm = Date\r\n If (OutlookTerminLoeschen(VerleihID)) = False Then\r\n MsgBox \"Der Termin konnte in OL nicht gefunden werden. Bitte löschen \" _ & \"Sie ihn von Hand.\", vbOKOnly + vbInformation, \"Termin löschen\"\r\n End If\r\n Me.Requery\r\n End If\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic014.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic015.png\")
<\/p>\nHinweis<\/h3>\n
=Wenn([Formulare]![frmListe].[öffnungsargumente]=1;\"Verliehene Gegenstände\";\"Entliehene Gegenstände\")<\/pre>\n
Function TerminAnOutlook(Datum As Date, _ Nummer As Integer) As Boolean\r\n DoCmd.Hourglass True\r\n Dim appOL As Outlook.Application\r\n Dim nsOL As Outlook.NameSpace\r\n Dim Kalender As Outlook.MAPIFolder\r\n Dim Termin As Outlook.AppointmentItem\r\n TerminAnOutlook = False\r\n Set appOL = CreateObject(\"Outlook.Application\")\r\n Set nsOL = appOL.GetNamespace(\"MAPI\")\r\n Set Kalender = _ nsOL.GetDefaultFolder(olFolderCalendar)\r\n Set Termin = appOL.CreateItem(1)\r\n With Termin\r\n .Start = Datum & \" 8:00:00\"\r\n .Subject = Titel(Nummer)\r\n .Body = \"Vorgang\" & Format(Nummer, \"0000\")\r\n .Save\r\n End With\r\n TerminAnOutlook = True\r\n Set Termin = Nothing\r\n Set Kalender = Nothing\r\n Set nsOL = Nothing\r\n Set appOL = Nothing\r\n DoCmd.Hourglass False\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic016.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C0577171-652B-4D76-8F71-6FBEC8E1E053}\/pic017.png\")
<\/p>\nDebug.Print TerminAnOutlook (\"20.12.2001\",32)<\/pre>\n
Hinweis<\/h3>\n
Downloads zu diesem Beitrag<\/h3>\n