<\/p>\n
In diesem Beitrag kümmern wir uns um die Verwaltung von Weiterbildungen für Mitarbeiter. Dabei soll man für jede Weiterbildung mehrere Einheiten beziehungsweise Termine festlegen können, die dann beliebig oft angeboten werden können. Den Mitarbeitern teilt man mit der Beispielanwendung die Weiterbildungen zu und kann die Teilnahme eines jeden Mitarbeiters an den einzelnen Terminen protokollieren.<\/b><\/p>\n
Die Datenbank zur Verwaltung von Weiterbildungen soll zunächst die Mitarbeiter verwalten, die an den Weiterbildungen teilnehmen. Dazu erstellen wir zunächst zwei Tabellen namens tblMitarbeiter <\/b>und tblAnreden<\/b>. Die Tabelle tblMitarbeiter <\/b>soll dabei die üblichen Daten enthalten wie Anrede, Vorname, Nachname, Straße, PLZ, Ort, Telefon, Telefax, E-Mail und noch ein Bemerkungen-Feld – für alle Fälle. Die Tabelle tblAnreden <\/b>speichert die Anreden und ist über das Fremdschlüsselfeld AnredeID <\/b>der Tabelle tblMitarbeiter <\/b>mit dieser verknüpft. Da solche Tabellen quasi in jedem Beispiel vorkommen, an dieser Stelle nur der überblick über die beiden Tabellen samt Beziehung im Datenmodell (s. Bild 1).<\/p>\n
![\"Die](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_001.png\")
<\/p>\n
Bild 1: Die Tabellen tblMitarbeiter und tblAnreden im Beziehungen-Fenster<\/span><\/b><\/p>\n Weiterbildungen verwalten<\/b><\/p>\n Wesentlich spannender wird das Verwalten der Weiterbildungen. Jede Weiterbildung soll einen Anbieter haben, der in der Tabelle tblAnbieter <\/b>gespeichert wird. Außerdem legen wir zwei Felder namens Standardintervall und Standardtag an. Das Feld Standardintervall <\/b>gibt ein Intervall in Wochen vor, in dem die Veranstaltungen stattfinden. Standardtag <\/b>legt den Wochentag fest, an dem die Weiterbildung üblicherweise stattfindet. Beide können später individuell angepasst werden.<\/p>\n Das war der einfache Teil. Nun kommen nämlich noch einige weitere Informationen, die in Tabellen gegossen werden wollen. Dabei verstehen wir unter Weiterbildung zunächst die Bezeichnung einer Weiterbildungsmaßnahme. Legen wir diese Tabelle, die im Entwurf wie in Bild 2 aussieht, schon einmal an. Sie enthält ein Feld zum Eintragen der Bezeichnung der Weiterbildung sowie ein Fremdschlüsselfeld zur Tabelle tblAnbieter<\/b>. Das Feld Weiterbildung <\/b>erhält außerdem einen eindeutigen Index, damit jede Bezeichnung nur einmal vergeben werden kann.<\/p>\n Bild 2: Entwurf der Tabelle tblWeiterbildungen<\/span><\/b><\/p>\n Wei-ter-bil-dungs-veranstaltungen<\/b><\/p>\n Jede Weiterbildung hat eine gewisse Anzahl von Veranstaltungen – manche haben vielleicht nur eine, andere laufen über mehrere Monate mit wöchentlichen Terminen.<\/p>\n Jede Weiterbildung mit ihren Veranstaltungen wird aber in der Regel nicht nur einmalig ausgeführt, sondern startet beispielsweise einmal im Jahr oder alle paar Monate. Vielleicht läuft eine Weiterbildung auch gleich in mehreren Auflagen parallel oder zeitlich versetzt.<\/p>\n Also haben wir nun schon Weiterbildungen mit jeweils mehreren Veranstaltungen, die gegebenenfalls immer wieder neu starten. Also müssen wir auch noch irgendwie die konkreten Termine verwalten, an denen die einzelnen Weiterbildungsveranstaltungen ausgeführt werden.<\/p>\n Um ehrlich zu sein: Das eigentliche Problem war hier nicht, die Tabellen und ihre Inhalte zu erstellen und in Beziehung zu setzen, sondern diese mit sinnvollen Bezeichnungen zu versehen. Im Prinzip gibt es ja jede Weiterbildung einmal als eine Art Vorlage mit ihren einzelnen Veranstaltungen und einmal als Instanz mit den tatsächlichen Terminen. Also legen wir die folgende Aufteilung fest: Wir erstellen eine Tabelle namens tblWeiterbildungen<\/b>, welche die Bezeichnung der Weiterbildung und weitere Informationen wie den Anbieter aufnimmt. Als Bezeichnungen dienen dann etwa „VBA mit Access für Einsteiger“ oder „VBA mit Access für Fortgeschrittene“. Außerdem nimmt die Tabelle zwei Felder namens Standardintervall und Standardtag auf – dazu später mehr.<\/p>\n Als nächstes legen wir in einer Tabelle namens tblWeiterbildungsveranstaltungen <\/b>die einzelnen Veranstaltungen fest, die im einfachsten Fall einfach mit der Weiterbildungsveranstaltung und einer laufenden Nummer versehen werden, also etwa VBA mit Access für Einsteiger I<\/b>, VBA mit Access für Einsteiger II <\/b>und so weiter. Diese Einträge müssen natürlich mit der Tabelle tblWeiterbildungen <\/b>verknüpft werden. Den Entwurf für diese Tabelle finden Sie in Bild 3. Die Tabelle enthält ein Feld zur Bezeichnung der Weiterbildungsveranstaltung und das Fremdschlüsselfeld zur Tabelle tblWeiterbildungen<\/b>.<\/p>\n Bild 3: Entwurf der Tabelle tblWeiterbildungsveranstaltungen<\/span><\/b><\/p>\n Weiterbildungstermine<\/b><\/p>\n Nun fehlen noch die Termine, an denen die einzelnen Veranstaltungen tatsächlich stattfinden. Diese speichern wir in einer Tabelle namens tblWeiterbildungstermine<\/b>. Hier stellt sich nun die Frage: Mit welcher Tabelle verknüpfen wir die Datensätze dieser Tabelle Man gerät schnell in Versuchung, diese Datensätze mit der Tabelle tblWeiterbildungen <\/b>zu verknüpfen. Prinzipiell keine schlechte Idee, aber jeder Weiterbildungstermin ist ja eigentlich eine Instanz einer Weiterbildungsveranstaltung aus der Tabelle tblWeiterbildungsveranstaltungen<\/b>. So wird dann auch ein Schuh daraus: Wenn wir einen in der Tabelle tblWeiterbildungstermine<\/b> gespeicherten Termin mit dem entsprechenden Datensatz der Tabelle tblWeiterbildungsveranstaltungen <\/b>verknüpfen, können wir darüber erstens direkt die Bezeichnung der jeweiligen Veranstaltung ermitteln (also etwa VBA mit Access für Fortgeschrittene VIII<\/b>). Zweitens erhalten wir über die Beziehung zwischen den Tabellen tblWeiterbildungsveranstaltungen <\/b>und tblWeiterbildungen <\/b>dann auch den gewünschten Bezug zur Tabelle tblWeiterbildungen<\/b>. Die Tabelle sieht nun im ersten Entwurf wie in Bild 4 aus.<\/p>\n Bild 4: Entwurf der Tabelle tblWeiterbildungstermine<\/span><\/b><\/p>\n Weiterbildungstabellen im überblick<\/b><\/p>\n Schauen wir uns Bild 5 an, um einen überblick über die Tabellen zur Verwaltung der Weiterbildungen, Veranstaltungen und Termine zu erhalten. Etwas ist dort noch nicht richtig rund. Es handelt sich um die Tatsache, dass wir zwar nun zu jeder Weiterbildung die Veranstaltung und zu jeder Veranstaltung die konkreten Termine festlegen können, aber dass die einzelnen Termine noch nicht zu einer Veranstaltungsreihe zusammengefasst sind. Warum ist das wichtig Mit dem aktuellen Stand des Datenmodells erhalten wir, wenn die Veranstaltung VBA mit Access für Einsteiger etwa drei Teile enthält (VBA mit Access für Einsteiger I<\/b>, II <\/b>und III<\/b>), für die erste Instanz dieser Veranstaltungsreihe drei Termine. Wenn die Weiterbildung danach erneut angeboten wird, werden die gleichen Termine erneut angelegt. Es gibt dann also jeweils zwei Termine für VBA mit Access für Einsteiger I<\/b>, II <\/b>und III<\/b>. Abgesehen von dem Datum, an dem sich die Zusammengehörigkeit der Termine zu einer Veranstaltungsreihe möglicherweise ablesen lässt (wenn nicht zwei Kurse parallel stattfinden), gibt es keine Möglichkeit, die Zusammengehörigkeit zu erkennen. Aber ist das überhaupt notwendig beziehungsweise gibt es noch weitere Daten, die zusammenfassend für die Termine einer Veranstaltungsreihe aufgezeichnet werden müssen Solche gibt es durchaus: Zum Beispiel kann es ja sein, dass zwei Kurse gleichzeitig durchgeführt werden, aber jeweils ein anderer Dozent die Ausführung übernimmt. Oder dass Kurse an verschiedenen Orten stattfinden. Wie auch immer: Es scheint, dass wir noch eine weitere Tabelle hinzunehmen müssen, welche die Termine einer Weiterbildung zusammenfasst. Die Frage ist nur: Wie nennen wir diese tblWeiterbildungsreihen <\/b>sollte eigentlich ein passender Name für die Tabelle sein (s. Bild 6).<\/p>\n Bild 5: Tabelle zur Zusammenfassung mehrerer Weiterbildungstermine zu einer Reihe<\/span><\/b><\/p>\n Bild 6: Datenmodell der Tabellen rund um die Weiterbildung<\/span><\/b><\/p>\n Diese Tabelle soll neben dem Primärschlüsselfeld zunächst ein Fremdschlüsselfeld zur Tabelle tblWeiterbildungen <\/b>erhalten. Desweitern gibt es zwei weitere Fremdschlüsselfelder zu den Tabellen tblDozenten <\/b>und tblWeiterbildungsorte<\/b>, die jedoch der Einfachheit halber neben dem Primärschlüsselfeld nur jeweils ein einziges Feld zur Angabe einer Bezeichnung enthalten (beim Dozenten etwa Dr. Jürgen Müller<\/b>, beim Weiterbildungsort zum Beispiel VHS Duisburg, Raum 123<\/b>).<\/p>\n Neben der neuen Tabelle benötigen wir noch ein weiteres Feld in der Tabelle tblWeiterbildungstermine<\/b>, denn irgendwie müssen wir ja festlegen, welche Termine zu einer Weiterbildungsreihe zusammengefasst werden. Also fügen wir auch dieser Tabelle ein Fremschlüsselfeld namens WeiterbildungsreiheID <\/b>hinzu, welches die Tabelle mit der Tabelle tblWeiterbildungsreihen <\/b>verknüpft.<\/p>\n Zusammengefasst hat sich also nun einiges geändert im Datenmodell, das nun wie in Bild 8 aussieht. Bevor wir uns die Gestaltung der Formulare zur Verwaltung der Weiterbildungen anschauen, kommen wir auf die Mitarbeiter zurück.<\/p>\n Bild 7: Datenmodell mit der Tabelle zur Zusammenfassung der Weiterbildungstermine<\/span><\/b><\/p>\n Formulare zur Mitarbeiterverwaltung<\/b><\/p>\n Zur Verwaltung der Mitarbeiter verwenden wir zunächst ein übersichtsformular, das aus dem Hauptformular frmMitarbeiterUebersicht <\/b>und dem Unterformular sfmMitarbeiterUebersicht <\/b>besteht.<\/p>\n Das Hauptformular enthält lediglich das Unterformularsteuerelement mit dem Unterformular sowie zwei Schaltflächen namens cmdNeuerMitarbeiter <\/b>und cmdMitarbeiterAnzeigen <\/b>(neben einem Icon und einer überschrift im Formularkopf) – s. Bild 7.<\/p>\n Bild 8: Das Formular zur Anzeige der Mitarbeiterübersicht<\/span><\/b><\/p>\n Das Unterformular verwendet als Datenherkunft die Tabelle tblMitarbeiter <\/b>und zeigt alle Felder dieser Tabelle an. Als Standardansicht verwendet das Formular das Datenblatt.<\/p>\n Neuen Mitarbeiter anlegen<\/b><\/p>\n Ein Klick auf die Schaltfläche cmdNeuerMitarbeiter <\/b>soll ein weiteres Formular namens frmMitarbeiterdetails <\/b>öffnen und einen neuen, leeren Datensatz anzeigen. Dazu löst der Mausklick auf diese Schaltfläche die Prozedur aus Listing 1 aus. Diese ruft das Formular frmMitarbeiterdetails <\/b>auf und übergibt für den Parameter DataMode <\/b>den Wert acFormAdd<\/b>, damit das Formular gleich einen neuen, leeren Datensatz anzeigt.<\/p>\n Listing 1: öffnen des Formulars zum Hinzufügen eines neuen MItarbeiters<\/span><\/b><\/p>\n Durch den Wert acDialog <\/b>für den Parameter WindowMode <\/b>wartet der aufrufende Code, bis das aufgerufene Formular den Fokus verliert.<\/p>\n Dann prüft die Prozedur, ob das Formular noch geöffnet ist (was der Fall ist, wenn der Benutzer dort auf die Schaltfläche cmdOK <\/b>klickt – siehe weiter unten) oder ob es bereits geschlossen wurde (durch die Schaltfläche cmdAbbrechen<\/b>).<\/p>\n Ist das Formular noch geöffnet, speichert die Prozedur den Primärschlüsselwert des im Formular frmMitarbeiterdetails <\/b>neu angelegten Datensatzes in der Variablen lngMitarbeiterID<\/b>. Danach schließt sie das aktuell nicht sichtbare Formular endgültig. Damit der neue Mitarbeiterdatensatz im Unterformular sfmMitarbeiterUebersicht <\/b>erscheint, aktualisiert die Prozedur die Datenherkunft dieses Formulars. Schließlich stellt sie den Datensatzzeiger auf den soeben neu hinzugefügten Datensatz ein, dessen Primärschlüsselwert ja in der Variablen lngMitarbeiterID <\/b>zwischengespeichert wurde.<\/p>\n Mitarbeiterdetails anzeigen<\/b><\/p>\n Die Schaltfläche cmdMitarbeiterdetails <\/b>öffnet ebenfalls dieses Formular, soll aber den aktuell im Unterformular markierten Mitarbeiter mit seinen Daten zur direkten Bearbeitung anzeigen.<\/p>\n Die dazu benötigte Prozedur finden Sie in Listing 2. Die Prozedur prüft zunächst, ob der Benutzer überhaupt einen Datensatz im Unterformular sfmMitarbeiter-Uebersicht <\/b>ausgewählt hat. Falls nicht, erscheint eine entsprechende Meldung. Hat er einen Mitarbeiter ausgewählt, wird das Formular frmMitarbeiterdetails <\/b>geöffnet. Dabei übergibt die Prozedur cmdMitarbeiterdetails_Click <\/b>als WhereCondition <\/b>einen Ausdruck, der beispielsweise MitarbeiterID = 123 <\/b>lautet und der dafür sorgt, dass der aktuell ausgewählte Mitarbeiter angezeigt wird.<\/p>\n Listing 2: öffnen des Formulars frmMitarbeiterdetails zum Anzeigen eines vorhandenen Mitarbeiters<\/span><\/b><\/p>\n Das so geöffnete Formular sieht schließlich wie in Bild 9 aus. Dies ist allerdings noch nicht der endgültige Zustand des Formulars, da wir dort später noch Steuerelemente zum Verwalten der Weiterbildungen einfügen, an denen der Mitarbeiter teilgenommen hat.<\/p>\n Bild 9: Die Mitarbeiterdetails im passenden Formular<\/span><\/b><\/p>\n Formulare für die Weiterbildungen<\/b><\/p>\n Die obersten Elemente der Hierarchie rund um die Weiterbildungen stammen aus der Tabelle tblWeiterbildungen<\/b>. Für diese legen wir deshalb zunächst ein übersichtsformular namens frmWeiterbildungen-Uebersicht <\/b>an, das wie in Bild 10 aussieht. Das Unterformular sfmWei-ter-bil-dungenUebersicht <\/b>verwendet die Tabelle tblWeiterbildungen <\/b>als Datenherkunft.<\/p>\n Bild 10: Formular zur Verwaltung der Weiterbildungen<\/span><\/b><\/p>\n Die beiden Schaltflächen cmdNeueWeiterbildung <\/b>und cmdWeiterbildungDetails <\/b>arbeiten analog zu den entsprechenden Schaltflächen im Formular frmMitarbeiterUebersicht<\/b>. Das dadurch geöffnete Formular frmWeiterbildungsdetails<\/b> sieht mit einem neuen, leeren Datensatz zunächst wie in Bild 11 aus.<\/p>\n Bild 11: Das Formular frmWeiterbildungsdetails<\/span><\/b><\/p>\n Dort geben Sie den Namen der Weiterbildung ein und wählen einen Anbieter aus. Dummerweise stehen im aktuellen Zustand noch keine Anbieter zur Verfügung. Dafür wollen wir kein eigenes Formular anbieten, sondern einfach nur die Eingabe neuer Datensätze über das Kombinationsfeld erlauben. Dazu legen Sie für das Ereignis Bei nicht in Liste <\/b>des Kombinationsfeldes cboAnbieterID <\/b>(wir haben den Namen des Steuerelements um ein entsprechendes Präfix erweitert) die Ereignisprozedur aus Listing 3 an. Diese legt, wenn der Benutzer einen noch nicht in der Tabelle tblAnbieter <\/b>enthaltenen Anbieter in das Kombinationsfeld einträgt, einen neuen Datensatz in der Tabelle an.<\/p>\n Listing 3: Hinzufügen noch nicht vorhandener Einträge in die Datensatzherkunft des Kombinationsfeldes<\/span><\/b><\/p>\n Damit das Formular nach dem Abschluss der Eingabe in das Kombinationsfeld cboAnbieterID <\/b>nicht zum nächsten Datensatz wechselt, stellen wir dort außerdem die Eigenschaft Zyklus <\/b>auf Aktueller Datensatz <\/b>ein.<\/p>\n Weiterbildungsdetails verwalten<\/b><\/p>\n Nun sind der Name der Weiterbildung und der Anbieter ja nicht die einzigen Daten zu einer Weiterbildung (man könnte hier sicher noch weitere Details verwalten, aber das sparen wir uns aus Gründen der übersichtlichkeit). Die übrigen Daten befinden sich allerdings in anderen Tabellen – so zum Beispiel die Weiterbildungsveranstaltungen. Diese fügen wir als Erstes zum Formular frmWeiterbildungsdetails<\/b> hinzu, und zwar in Form des Unterformulars sfmWeiterbildungsveranstaltungen<\/b>. Dieses verwendet eine Abfrage als Datenherkunft, die auf der Tabelle tblWeiterbildungsveranstaltungen <\/b>basiert. Die Abfrage sortiert die enthaltenen Datensätze nach dem Wert des Feldes ReihenfolgeID<\/b>. Allerdings sollen nur die zwei Felder Weiterbildungsveranstaltung <\/b>und ReihenfolgeID <\/b>in der Datenblattansicht angezeigt werden. <\/p>\n <\/p>\n Damit das Unterformular nur die Daten zum aktuell im Hauptformular angezeigten Datensatz liefert, sollte Access gleich beim Einfügen die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>auf den Wert WeiterbildungID<\/b> einstellen (s. Bild 12).<\/p>\n Bild 12: Das Formular frmWeiterbildungsdetails mit Unterformular<\/span><\/b><\/p>\n Damit können wir nun Weiterbildungsveranstaltungen zu den Weiterbildungen hinzufügen (s. Bild 13). Damit das Feld ReihenfolgeID <\/b>automatisch mit dem nächstgrößeren Wert gefüllt wird, fügen wir für das Ereignis Beim Anzeigen <\/b>des Unterformulars die Ereignisprozedur aus Listing 4 ein. Die Prozedur ermittelt mit der DMax<\/b>-Funktion den größten Wert für das Feld ReihenfolgeID <\/b>für die Datensätze der Tabelle tblWeiterbildungsveranstaltungen<\/b>, das mit dem aktuellen Datensatz im Hauptformular verknüpft ist. Diesem fügt die Prozedur den Wert 1 <\/b>hinzu und stellt das Ergebnis als Standardwert für den folgenden Datensatz ein.<\/p>\n Bild 13: Bearbeiten von Weiterbildungsveranstaltungen<\/span><\/b><\/p>\n Dummerweise funktioniert dies beim Löschen eines Datensatzes im Unterformular nicht wie gewünscht: Wenn Sie beispielsweise den Datensatz mit der Nummer 4 <\/b>löschen, bleibt der Standardwert für das Feld ReihenfolgeID <\/b>für den neuen Datensatz auf 5 <\/b>stehen.<\/p>\n Fügen Sie dann einen neuen Datensatz hinzu, hat dieser den Wert 5 <\/b>und der nun angezeigte neue Datensatz ebenfalls.<\/p>\n Abhilfe schafft es, wenn Sie die durch das Ereignis Nach Löschbestätigung <\/b>ausgelöste Prozedur mit einem Aufruf der soeben hinzugefügten Prozedur Form_Current <\/b>versehen:<\/p>\n Das Ereignis Beim Löschen <\/b>hilft hier nicht weiter, da der zu löschende Datensatz zu diesem Zeitpunkt noch in der zugrunde liegenden Tabelle gespeichert ist.<\/p>\n Termine anlegen<\/b><\/p>\n Nun haben wir die Möglichkeit, Weiterbildungen und die einzelnen Weiterbildungsveranstaltungen einzugeben. Als Nächstes kümmern wir uns darum, die passenden Termine einzutragen. Wenn wir nun die erste Instanz dieser Weiterbildung anlegen, können wir diese am besten in einem weiteren Unterformular anzeigen. Diese Liste würde dann etwa wie folgt aussehen:<\/p>\n Das wäre okay, aber wenn nun weitere Instanzen dieser Weiterbildung angelegt werden, die möglicherweise noch parallel stattfinden, wird es unübersichtlich. Also nutzen wir auch noch die Tabelle tblWeiterbildungsreihen<\/b> in Verbindung mit der Tabelle tblWeiterbildungstermine<\/b>. Damit bilden wir dann den ersten Termin (aus tblWeiterbildungstermine<\/b>) sowie den Dozenten und den Weiterbildungsort in einem ersten Unterformular ab. Wenn der Benutzer einen der dortigen Einträge auswählt, soll ein weiteres Unterformular dann die passende Daten aus der Tabelle tblWeiterbildungstermine <\/b>liefern. <\/p>\n Im Entwurf sieht dies nun wie in Bild 14 aus. Das Unterformular sfmWeiterbildungreihen <\/b>soll die Datensätze der Tabelle tblWeiterbildungsreihen <\/b>anzeigen, die mit dem aktuellen Datensatz der Tabelle tblWeiterbildungen <\/b>im Hauptformular verknüpft sind. Dazu stellen wir die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>beide auf den Wert WeiterbildungID <\/b>ein.<\/p>\n Bild 14: Das Formular frmWeiterbildungsdetails im Entwurf<\/span><\/b><\/p>\n Das unterste Unterformular namens sfmWeiterbildungstermine <\/b>soll die Datensätze der Tabelle tblWeiterbildungstermine <\/b>anzeigen, die mit dem aktuell im Unterformular sfmWeiterbildungsreihen <\/b>markierten Datensatz verknüpft sind. Dies erfordert ein klein wenig mehr Aufwand. Zunächst stellen wir die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>ein. Verknüpfen von erhält das Fremdschlüsselfeld der Datenherkunft des Unterformulars als Wert, also WeiterbildungsreiheID<\/b>. Die Eigenschaft Verknüpfen nach <\/b>soll nun auf das Feld WeiterbildungsreiheID <\/b>des Unterformulars sfmWeiterbildungsreihen <\/b>zeigen. Diesen Bezug stellen wir über den folgenden Ausdruck her:<\/p>\n Dies reicht allerdings noch nicht aus, damit das Unterformular sfmWeiterbildungstermine <\/b>bei jedem Datensatzwechsel im Unterformular sfmWeiterbildungsreihen <\/b>aktualisiert wird – stattdessen benötigen wir noch eine entsprechende Zeile VBA-Code, die durch das Ereignis Beim Anzeigen <\/b>des Unterformulars sfmWeiterbildungsreihen <\/b>ausgelöst wird.<\/p>\n Weiterbildungsformular programmieren<\/b><\/p>\n Dieses Ereignis wollen wir allerdings nicht zum Klassenmodul des Unterformulars hinzufügen, sondern wir wollen die komplette Steuerung vom Hauptformular aus erledigen. Dazu fügen wir zunächst eine Objektvariable zum Klassenmodul des Hauptformulars hinzu, das uns auch erlaubt, dort die Ereignisse des Unterformulars zu implementieren:<\/p>\n Das Füllen dieser Variable erledigen wir in der Prozedur, die durch das Ereignis Beim Laden <\/b>des Hauptformulars ausgelöst wird. Dort geschehen noch eine Reihe weiterer Dinge, wie Listing 5 zeigt. Die Prozedur stellt zunächst die beiden Kombinationsfelder cboDozentID <\/b>und cboWeiterbildungsortID <\/b>auf den jeweils ersten Eintrag der Datensatzherkunft ein – diesen liefert die Eigenschaft ItemData(0)<\/b>.<\/p>\n Listing 5: Beim Laden des Hauptformulars ausgelöste Prozedur<\/span><\/b><\/p>\n Dann trägt Sie das aktuelle Datum in die Variable datAktuell <\/b>ein. Hier kommt nun das Feld Standardtag <\/b>der Tabelle tblWeiterbildungen <\/b>ins Spiel: Dieses soll ja einen Wochentag vorgeben, an dem die Weiterbildungstermine jeweils stattfinden. Das Formular soll nun für eine neue Instanz der Weiterbildung mit ihren Weiterbildungsterminen das nächste Datum vorschlagen, das diesem Wochentag entspricht – der Einfachheit halber einfach den nächsten erreichbaren. Daher beginnt die Prozedur mit dem aktuellen Datum und erhöht dieses in einer Do While<\/b>-Schleife so lange um jeweils einen Tag, bis der Zielwochentag erreicht ist. Dies entspricht nach dem Verlassen der Schleife dem in der Variablen datAktuell <\/b>enthaltenen Datum, das schließlich im Textfeld txtDatum <\/b>landet.<\/p>\n Anschließend füllen wir die bereits angesprochene Objektvariable obj-Sfm-Weiterbildungsreihen <\/b>mit einem Verweis auf das im entsprechenden Unterformular-Steuerelement enthaltene Formular (Form<\/b>). Für dieses legen wir außerdem noch die Ereigniseigenschaft OnCurrent <\/b>fest, damit das entsprechende Ereignis im Unterformular abgegriffen und die gleich beschriebene Ereignisprozedur ausgeführt wird.<\/p>\n Diese Ereignisprozedur sieht dann schließlich wie in Listing 6 aus. Damit diese ausgelöst wird, müssen Sie die Eigenschaft Enthält Modul <\/b>des Unterformulars übrigens unbedingt auf den Wert Ja <\/b>einstellen.<\/p>\n Listing 6: Ereignisprozedur für das Aktualisieren des Unterformulars sfmWeiterbildungsreihen<\/span><\/b><\/p>\n Weiterbildungsreihen hinzufügen<\/b><\/p>\n Nun helfen uns diese beiden Unterformular aber gar nicht weiter, solange wir keine Daten haben, die wir darin anzeigen können. Also schauen wir uns an, was geschieht, wenn der Benutzer auf die Schaltfläche cmdNeueWeiterbildungsreihe <\/b>klickt. Dies löst die Prozedur aus Listing 7 aus, die zunächst einige Werte aus dem Formular einliest und in den Variablen lngWeiterbildungID, lngDozentID<\/b>, lngWeiterbildungsortID <\/b>und datStartID <\/b>speichert. Dann legt es eine Datensatzgruppe an, die auf den Datensätzen der Tabelle tblWeiterbildungsveranstaltungen <\/b>basiert, deren Feld WeiterbildungID <\/b>mit dem entsprechenden Feld der Datenherkunft des Hauptformulars übereinstimmt.<\/p>\n Listing 7: Anlegen einer neuen Weiterbildungsreihe samt Weiterbildungsterminen<\/span><\/b><\/p>\n Dann beginnt sie mit dem Anlegen der notwendigen Datensätze. Als Erstes fügt die Prozedur einen Datensatz zur Tabelle tblWeiterbildungsreihen <\/b>hinzu, der den Primärschlüsselwert der Weiterbildung, des Dozenten und des Weiterbildungsorts aufnimmt. Mit der Abfrage SELECT @@IDENTITY <\/b>ermittelt sie den Wert des Primärschlüsselfeldes WeiterbildungsreiheID <\/b>des neu hinzugefügten Datensatzes und speichert diesen in der Variablen lngWeiterbildungsreiheID<\/b>.<\/p>\n Nun sollen die Termine für die einzelnen Weiterbildungsveranstaltungen zur Tabelle tblWeiterbildungstermine <\/b>hinzugefügt werden. Dies geschieht in einer Do While<\/b>-Schleife über alle Datensätze des soeben erstellten Recordsets. Für jeden Datensatz der Tabelle tblWeiterbildungsveranstaltungen<\/b>, die zur aktuellen Weiterbildung gehören, wird nun ein Datensatz zur Tabelle tblWeiterbildungstermine <\/b>hinzugefügt. Dabei füllt die Prozedur die Felder WeiterbildungsveranstaltungID<\/b>, Weiterbildungstermin <\/b>und WeiterbildungsreiheID <\/b>mit den Werten aus dem Recordset beziehungsweise aus den oben gefüllten Variablen. Beim ersten Durchlauf der Do While<\/b>-Schleife wird dabei das in datStart <\/b>gespeicherte Datum eingetragen. Nach dem Hinzufügen des Datensatzes wird das im Feld Standardintervall <\/b>angegebene Wochenintervall, multipliziert mit der Zahl 7 (für sieben Tage), zu datStart <\/b>hinzugefügt. Schließlich aktualisiert die Prozedur noch die beiden Unterformulare, welche die neu angelegten Daten anzeigen.<\/p>\n Das war es – so gelangt eine neue Weiterbildungsreihe in die Datenbank.<\/p>\n Nun sieht das Formular in der Formularansicht wie in Bild 15 aus. Allerdings liefert das Unterformular sfmWeiterbildungsreihen <\/b>leider nur die Felder aus der Tabelle tblWeiterbildungsreihen<\/b>, deren Daten für die aktuelle Weiterbildung alle weitgehend gleich aussehen – mit Ausnahme der Primärschlüsselwerte. Die Unterschiede liegen vor allem in den damit verknüpften Datensätzen in der Tabelle tblWeiterbildungstermine<\/b>, die ja im Unterformular weiter unten angezeigt werden. Dies hilft uns allerdings nicht weiter, wenn es bereits eine ganze Reihe Weiterbildungsreihen zu einer Weiterbildung gibt – man müsste dann alle Einträge des Unterformulars sfmWeiterbildungsreihen <\/b>durchsuchen, um die mit den richtigen Terminen zu finden. Also wollen wir einen Weg finden, um noch einen aussagekräftigen Wert zu dem Unterformular mit den Weiterbildungsreihen hinzuzufügen.<\/p>\n Bild 15: Das Formular frmWeiterbildungsdetails in der Formularansicht<\/span><\/b><\/p>\n Optimieren des Unterformulars sfmWeiterbildungsreihen<\/b><\/p>\n Das Unterformular soll seine Daten nun wie in Bild 16 liefern – mit dem Startdatum, also dem ersten Termin der Weiterbildungstermine, dem Dozenten, dem Ort sowie der Anzahl der Weiterbildungstermine. <\/p>\n Bild 16: Das Formular frmWeiterbildungsdetails mit geändertem Unterformular<\/span><\/b><\/p>\n Dazu benötigen wir eine pfiffige Abfrage, deren Entwurf Sie in Bild 17 finden. Die Abfrage basiert auf den beiden Tabellen tblWeiterbildungsreihen <\/b>und tblWeiterbildungstermine<\/b>. Letztere kommt hinzu, weil wir ja erstens den ersten Termin dieser Reihe ermitteln wollen und zweitens die Gesamtzahl der Weiterbildungstermine. Diese Abfrage liefert standardmäßig alle Datensätze der Tabelle tblWeiterbildungstermine<\/b>, wobei jeweils ein oder mehrere Einträge der Tabelle einem Datensatz der Tabelle tblWeiterbildungsreihen <\/b>zugeordnet sind. Wir können nun durch Einfügen einer Gruppierung nach den Feldern, die aus der Tabelle tblWeiterbildungsreihen <\/b>stammen, dafür sorgen, dass die Abfrage für jeden Datensatz der Tabelle tblWeiterbildungsreihen <\/b>nur je einen Datensatz liefert. Das Feld Weiterbildungstermin<\/b> der Tabelle tblWeiterbildungstermine <\/b>wird für zwei auszugebende Felder verwendet. Das Feld mit der Bezeichnung Startdatum <\/b>erhält die Funktion Min<\/b>, was bedeutet, dass nur der kleinste Wert zurückgeliefert wird – also jeweils der kleinste Wert des Feldes Weiterbildungstermin<\/b> aus allen Datensätzen der Tabelle tblWeiterbildungstermine<\/b>, die mit einem Datensatz der Tabelle tblWeiterbildungsreihen <\/b>verknüpft sind. ähnlich läuft es mit dem Feld mit der Bezeichnung Anzahl Termine<\/b>, das mit der Funktion Anzahl <\/b>ausgestattet ist und dementsprechend die Anzahl der mit der Weiterbildungsreihe verknüpften Weiterbildungstermine liefert.<\/p>\n Bild 17: Neue Datenherkunft für das Unterformular sfmWeiterbildungsreihen<\/span><\/b><\/p>\n Als Datenherkunft des Unterformulars sfmWeiterbildungsreihen <\/b>wird diese Abfrage ja durch die Werte der Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements auf diejenige WeiterbildungID <\/b>eingeschränkt, die gerade im Hauptformular angezeigt wird.<\/p>\n Weiterbildungsreihe löschen<\/b><\/p>\n Normalerweise können Sie einen Datensatz in einem Unterformular einfach löschen, indem Sie den Datensatz durch einen Klick auf den Datensatzmarkierer selektieren und dann die Entfernen<\/b>-Taste betätigen. Das klappt im Fall des Unterformulars sfmWeiterbildungsreihen <\/b>leider nicht, da die als Datenherkunft verwendete Abfrage nicht aktualisierbar ist. Also fügen wir dem Formular noch eine weitere Schaltfläche zum Löschen einer Weiterbildungsreihe hinzu. Diese löst die Ereignisprozedur aus Listing 8 aus. Die Prozedur ermittelt den Primärschlüsselwert der markierten Weiterbildungsreihe und löscht diese anschließend. Dann aktualisiert sie die beiden betroffenen Unterformulare sfmWeiterbildungsreihen <\/b>und sfmWeiterbildungstermine<\/b>.<\/p>\n Listing 8: Löschen einer Weiterbildungsreihe<\/span><\/b><\/p>\n Weitere Feinheiten<\/b><\/p>\n Die Datensatzherkünfte der beiden Kombinationsfelder cboDozentID <\/b>und cboWeiterbildungsortID <\/b>sollen gleich durch die Eingabe neuer Werte im Hauptformular ergänzt werden. Dazu legen wir zwei Ereignisprozeduren an, die jeweils durch das Ereignis Bei nicht in Liste <\/b>ausgelöst werden. Die beiden Prozeduren führen ähnliche Anweisungen aus, legen aber ihre Daten natürlich in verschiedenen Tabellen an. Sie finden beide Prozeduren in Listing 9. Fehlen noch die beiden Prozeduren für die Schaltflächen im unteren Bereich des Formulars mit den Beschriftungen OK <\/b>und Abbrechen<\/b>. Die Abbrechen-Schaltfläche soll einfach die getätigten änderungen im Hauptformular verwerfen und das Formular schließen:<\/p>\n Listing 9: Anlegen neuer Einträge für die beiden Kombinationsfelder cboDozentID und cboWeiterbildungsortID<\/span><\/b><\/p>\n Die Schaltfläche OK <\/b>soll das Formular unsichtbar machen, damit eventuelle änderungen vom aufrufenden Formular übernommen werden können:<\/p>\n Weiterbildungsteilnahmen<\/b><\/p>\n Nun fehlt noch eine entscheidende Funktion: Natürlich müssen wir den Mitarbeitern auch noch die Weiterbildungen zuweisen können. Zuerst müssen wir die entsprechenden änderungen am Datenmodell durchführen, denn es gibt ja noch gar keine Verknüpfung zwischen den Mitarbeitern und den Weiterbildungen. Und auch hier stellt sich die Frage, wo wir ansetzen.<\/p>\n Auf den ersten Blick würde man zunächst eine Verknüpfungs-tabelle zum Datenmodell hinzufügen, welche die Tabellen tblMitarbeiter <\/b>und tblWeiterbildungen <\/b>verbindet. Damit lässt sich zunächst einmal festlegen, an welchen Weiterbildungen der Mitarbeiter überhaupt teilnehmen soll. Daraus wollen wir eine Terminliste für den Mitarbeiter ableiten, welche die Terminliste zumindest einer Weiterbildungsreihe enthält. Hier stellt sich eine weitere Frage: Muss ein Mitarbeiter zwingend die Termine einer speziellen Weiterbildungsreihe wahrnehmen oder kann er, soweit angeboten, auch erst zwei Termine der ersten Weiterbildungsreihe besuchen und dann einen weiteren Termin einer anderen Weiterbildungsreihe zur gleichen Weiterbildung In dieser Beispiellösung wollen wir diese lockere Variante wählen. Das heißt nun für das Datenmodell, dass wir eine Verknüpfungstabelle zwischen tblMitarbeiter <\/b>und tblWeiterbildungen <\/b>hinzufügen, die wie in Bild 18 aussieht.<\/p>\n Bild 18: Verknüpfungstabelle zur Zuordnung der Weiterbildungen zu den Mitarbeitern<\/span><\/b><\/p>\n Neben dem Primärschlüsselfeld enthält die Tabelle die beiden Fremdschlüsselfelder zur Herstellung der Beziehung zwischen den beteiligten Tabellen sowie ein Feld namens AngemeldetAm<\/b>, welches das Anmeldedatum aufnimmt.<\/p>\n Im Gegensatz zu vielen anderen Verknüpfungstabellen benötigen wir hier keinen zusammengesetzten, eindeutigen Index für die beiden Felder WeiterbildungID <\/b>und MitarbeiterID<\/b>, da ja jeder Mitarbeiter durchaus mehrmals die gleiche Weiterbildung besuchen kann.<\/p>\n Weiterbildungstermine dokumentieren<\/b><\/p>\n Um nachvollziehen zu können, welche Weiterbildungen ein Mitarbeiter vollständig besucht hat, müssen die einzelnen Besuche dokumentiert werden. Wir benötigen also zweifelsohne eine weitere änderung am Datenmodell, um die Datumsangaben für die Besuche der Weiterbildungstermine eintragen zu können. Diese Tabelle sollte, da ein Mitarbeiter ja an jeder Weiterbildung mehrfach teilnehmen können soll, auch einen Bezug zur Tabelle tblWeiterbildungenMitarbeiter<\/b> haben. So können wir festlegen, dass ein Weiterbildungstermin zu einer bestimmten Anmeldung eines Mitarbeiters für eine Weiterbildung gehört. Die Tabelle tblMitarbeiterWeiterbildungstermine <\/b>übernimmt schließlich die Verknüpfung von Mitarbeiter, Weiterbildungstermin und der Weiterbildung (s. Bild 19).<\/p>\n Bild 19: Zuordnung der Mitarbeiter zu den Weiterbildungsterminen<\/span><\/b><\/p>\n Mitarbeiter und Weiterbildungen zuordnen<\/b><\/p>\n Theoretisch gibt es zwei Orte, an denen man Mitarbeiter und Weiterbildungen verknüpfen kann: Man könnte sowohl im Detailformular zum jeweiligen Mitarbeiter die Weiterbildungen eintragen, aber auch ein Formular anlegen, das die Weiterbildung anzeigt und alle hinzugefügten Teilnehmer. Wir erledigen dies zunächst über das Formular frmMitarbeiterDetails<\/b>.<\/p>\n Diesem fügen wir wie in Bild 20 das Unterformular sfmMitarbeiterWeiterbildungen <\/b>hinzu. Dieses verwendet die Tabelle tblMitarbeiterWeiterbildungen <\/b>als Datenherkunft und zeigt die Daten in der Datenblattansicht an. Damit es nur die dem Mitarbeiter zugeordneten Datensätze dieser Tabelle anzeigt, sollten die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements jeweils den Wert MitarbeiterID <\/b>aufweisen. Das Formular zeigt nur die beiden Felder WeiterbildungID <\/b>(als Kombinationsfeld) sowie das Feld AngemeldetAm <\/b>an. Mit Ersterem wählen Sie die hinzuzufügende Weiterbildung aus, mit dem zweiten geben Sie an, wann die Weiterbildung dem Mitarbeiter hinzugefügt wurde.<\/p>\n Bild 20: Unterformular zum Zuweisen von Weiterbildungen zu einem Mitarbeiter<\/span><\/b><\/p>\n Veranstaltungsliste erstellen<\/b><\/p>\n Wenn eine Weiterbildung für einen Mitarbeiter festgelegt wurde, soll eine Liste mit den Weiterbildungsveranstaltungen für den Mitarbeiter erstellt werden. Dieser werden dann nach der Durchführung die Termine hinzufügt, an denen der Mitarbeiter die Weiterbildungsveranstaltungen besucht hat.<\/p>\n Nun fügen wir ein weiteres Unterformular namens sfmMitarbeiterWeiterbildungstermine <\/b>zum Formular hinzu. Dieses nimmt die Daten der Tabelle tblMitarbeiterWeiterbildungstermine <\/b>auf und zeigt die Felder WeiterbildungsveranstaltungID <\/b>und WeiterbildungDurchgeführtAm<\/b> an. Zwischen den beiden Formularen positionieren wir eine Schaltfläche, mit welcher der Benutzer nach dem Hinzufügen einer Weiterbildung zum Mitarbeiter die Veranstaltungen in die Tabelle tblMitarbeiterWeiterbildungstermine <\/b>eintragen kann. Diese sollen dann direkt im Anschluss im unteren Unterformular abgebildet werden.<\/p>\n Das zweite Unterformular muss dementsprechend wieder mit den Daten des ersten Unterformulars verknüpft sein, was wir zunächst durch die Festlegung der Eigenschaften des Unterformular-Steuerelements realisieren. Dazu stellen wir Verknüpfen von <\/b>auf WeiterbildungMitarbeiterID <\/b>ein. Die Eigenschaft Verknüpfen nach <\/b>soll das entsprechende Feld im ersten Unterformular referenzieren, was wir durch den folgenden Ausdruck erreichen:<\/p>\n Dies alles zeigt Bild 21 im Entwurf. Damit die Daten des zweiten Unterformulars bei jeder änderung des aktuellen Datensatzes im ersten Unterformular aktualisiert werden, gehen wie bereits weiter oben beschrieben vor. Wir deklarieren also wieder eine Objektvariable für das Unterformular:<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_002.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_003.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_004.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_009.png\")
<\/p>\n![\"Datenmodell](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_005.png\")
<\/p>\n![\"Datenmodell](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_008.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_006.png\")
<\/p>\nPrivate Sub <\/span>cmdNeuerMitarbeiter_Click()\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n DoCmd.OpenForm \"frmMitarbeiterDetails\", DataMode:=acFormAdd, WindowMode:=acDialog\r\n If <\/span>IstFormularGeoeffnet(\"frmMitarbeiterdetails\") Then<\/span>\r\n lngMitarbeiterID = Forms!frmMitarbeiterdetails!MitarbeiterID\r\n DoCmd.Close acForm, \"frmMitarbeiterdetails\"\r\n Me!sfmMitarbeiterUebersicht.Form.Requery\r\n Me!sfmMitarbeiterUebersicht.Form.Recordset.FindFirst \"MitarbeiterID = \" & lngMitarbeiterID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdMitarbeiterdetails_Click()\r\n If <\/span>Not<\/span> IsNull(Me!sfmMitarbeiterUebersicht.Form!MitarbeiterID) Then<\/span>\r\n DoCmd.OpenForm \"frmMitarbeiterdetails\", DataMode:=acFormEdit, WhereCondition:=\"MitarbeiterID = \" _\r\n & Me!sfmMitarbeiterUebersicht.Form!MitarbeiterID\r\n Else<\/span>\r\n MsgBox<\/span> \"Wählen Sie zunächst den anzuzeigenden Mitarbeiter aus.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_007.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_010.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_011.png\")
<\/p>\nPrivate Sub <\/span>AnbieterID_NotInList(NewData As String<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Response = acDataErrAdded\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblAnbieter(Anbieter) VALUES(''\" & NewData & \"'')\", dbFailOnError\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_012.png\")
<\/p>\n![\"Bearbeiten](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_013.png\")
<\/p>\nPrivate Sub <\/span>Form_AfterDelConfirm( Status As Integer<\/span>)\r\n Form_Current\r\nEnd Sub<\/span><\/pre>\n\n
![\"Das](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_014.png\")
<\/p>\nForms!frmWeiterbildungsdetails! sfmWeiterbildungsreihen! WeiterbildungsreiheID<\/pre>\n
Dim <\/span>WithEvents objsfmWeiterbildungsreihen As <\/span>Form<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>datAktuell As Date<\/span>\r\n Me!cboDozentID = Me!cboDozentID.ItemData(0)\r\n Me!cboWeiterbildungsortID = Me!cboWeiterbildungsortID.ItemData(0)\r\n datAktuell = Date\r\n Do While<\/span> Not<\/span> Weekday(datAktuell, vbMonday) = Me.Standardtag\r\n datAktuell = datAktuell + 1\r\n Loop<\/span>\r\n Me!txtStartdatum = datAktuell\r\n Set<\/span> objsfmWeiterbildungsreihen = Me!sfmWeiterbildungsreihen.Form\r\n With<\/span> objsfmWeiterbildungsreihen\r\n .OnCurrent = \"[Event Procedure]\"\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objsfmWeiterbildungsreihen_Current()\r\n Me!sfmWeiterbildungstermine.Form.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNeueWeiterbildungsreihe_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngWeiterbildungsveranstaltungID As Long<\/span>\r\n Dim <\/span>lngWeiterbildungID As Long<\/span>\r\n Dim <\/span>lngWeiterbildungsreiheID As Long<\/span>\r\n Dim <\/span>lngDozentID As Long<\/span>\r\n Dim <\/span>lngWeiterbildungsortID As Long<\/span>\r\n Dim <\/span>datStart As Date<\/span>\r\n lngWeiterbildungID = Me!WeiterbildungID\r\n lngDozentID = Me!cboDozentID\r\n lngWeiterbildungsortID = Me!cboWeiterbildungsortID\r\n datStart = Me!txtStartdatum\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblWeiterbildungsveranstaltungen WHERE WeiterbildungID = \" _\r\n & lngWeiterbildungID, dbOpenDynaset)\r\n db.Execute \"INSERT INTO tblWeiterbildungsreihen(WeiterbildungID, DozentID, WeiterbildungsortID) VALUES(\" _\r\n & lngWeiterbildungID & \", \" & lngDozentID & \", \" & lngWeiterbildungsortID & \")\", dbFailOnError\r\n lngWeiterbildungsreiheID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n lngWeiterbildungsveranstaltungID = rst!WeiterbildungsveranstaltungID\r\n db.Execute \"INSERT INTO tblWeiterbildungstermine(WeiterbildungsveranstaltungID, " _\r\n & "Weiterbildungstermin, WeiterbildungsreiheID) VALUES(\" _\r\n & lngWeiterbildungsveranstaltungID & \", \" & SQLDatum(datStart) & \", \" _\r\n & lngWeiterbildungsreiheID & \")\", dbFailOnError\r\n datStart = datStart + 7 * Me!Standardintervall\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n Me!sfmWeiterbildungsreihen.Form.Requery\r\n Me!sfmWeiterbildungstermine.Form.Requery\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_015.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_016.png\")
<\/p>\n![\"Neue](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_017.png\")
<\/p>\nPrivate Sub <\/span>cmdWeiterbildungsreiheLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblWeiterbildungsreihen WHERE WeiterbildungsreiheID = \" _\r\n & Me!sfmWeiterbildungsreihen. Form!WeiterbildungsreiheID\r\n Me!sfmWeiterbildungsreihen.Form.Requery\r\n Me!sfmWeiterbildungstermine.Form.Requery\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboDozentID_NotInList(NewData As String<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Response = acDataErrAdded\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblDozenten(Dozent) VALUES(''\" & NewData & \"'')\", dbFailOnError\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cboWeiterbildungsortID_NotInList(NewData As String<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Response = acDataErrAdded\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblWeiterbildungsorte(Weiterbildungsort) " _\r\n & "VALUES(''\" & NewData & \"'')\", dbFailOnError\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAbbrechen_Click()\r\n Me.Undo\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdOK_Click()\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Verknüpfungstabelle](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_018.png\")
<\/p>\n![\"Zuordnung](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_019.png\")
<\/p>\n![\"Unterformular](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_020.png\")
<\/p>\nForms!frmMitarbeiterDetails! sfmMitarbeiterWeiterbildungen! WeiterbildungMitarbeiterID<\/pre>\n
![\"Abhängige](\"..\/fileadmin\/_temp_\/2014_05\/pic_956_021.png\")
<\/p>\n