{"id":55000809,"date":"2011-12-01T00:00:00","date_gmt":"2020-05-22T21:59:26","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=809"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Veranstaltungskalender","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Veranstaltungskalender\/","title":{"rendered":"Veranstaltungskalender"},"content":{"rendered":"

\"\"<\/p>\n

Wer Veranstaltungen und sonstige Termine plant, der weiß, dass es schwierig ist, die Übersicht zu behalten. Hier mit Outlook zu arbeiten, mag schon sinnvoll sein. Allerdings bietet Outlook nicht die Möglichkeit, etwa zu einer Veranstaltung Alternativtermine oder Terminserien zu verwalten. Diese Funktion soll der Kernaspekt der im vorliegenden Beitrag beschriebenen Lösung sein, aber es gibt noch mehr zu entdecken – zum Beispiel die Darstellung der Termine in Formularen und Berichten sowie deren Eingabe. Und nicht zuletzt besteht auch das Datenmodell aus mehr als einer Tabelle zum Speichern der Termine …<\/b><\/p>\n

Termine, Termine, Termine<\/b><\/p>\n

Eine Veranstaltung kann einen oder mehrere Termine enthalten. In letzterem Fall wäre es eine Veranstaltungsreihe. Bei der Planung eines Veranstaltungstermins oder auch der Termine einer Veranstaltungsreihe kann es sein, dass nicht nur einer, sondern gleich mehrere Termine zur Auswahl stehen und noch nicht festgelegt werden können. Dies lässt sich im Datenmodell auf verschiedene Arten abbilden. Da es für jede Veranstaltung einen oder mehrere Termine geben kann, ist sicher, dass es eine Veranstaltungstabelle gibt und zusätzlich eine Termintabelle. Termine werden aber nicht immer gleich fixiert – stattdessen hält man sich mehrere Daten für einen Termin frei.<\/p>\n

Eine Möglichkeit, dies im Datenmodell abzubilden, wäre das Anlegen einer Tabelle für einen Termin einer Veranstaltung beziehungsweise die Termine einer Veranstaltungsreihe. Diese Tabelle würde aber nur die Basisdaten des Termins enthalten (also Thema, Ort und so weiter) und nicht das Datum. Dieses würde in einer weiteren Tabelle mit den möglichen Veranstaltungszeiten enthalten sein. Andererseits kann es ja auch sein, dass mit den Terminen auch etwa die Veranstaltungsorte variieren.<\/p>\n

Und hier geht die Tendenz dorthin, keine eigene Tabelle für die Terminalternativen vorzuhalten, sondern die alternativen Termine einfach etwa über eine eindeutige ID als zusammengehörend zu kennzeichnen. Sprich: Es gibt eine Tabelle mit Veranstaltungen und eine mit Terminen. Die Zugehörigkeit eines Termins zu einer Veranstaltung wird über ein entsprechendes Fremdschlüsselfeld realisiert, so können dann auch Terminserien erfasst werden. Die Reihenfolge der Termine einer Terminserie ergibt sich aus deren Datumsangaben. <\/p>\n

Fehlen noch die Alternativtermine. Jeder neue Termin soll neben dem Primärschlüsselfeld noch eine weitere ID erhalten, die etwa aus einer Hilfstabelle stammt oder einfach dynamisch erzeugt wird. Wenn der Benutzer einen Alternativtermin anlegen möchte, erhält dieser die gleiche ID wie der Termin, auf dessen Basis der Alternativtermin angelegt wurde.<\/p>\n

Wenn wir nun noch eine Tabelle zum Speichern von Veranstaltungskategorien hinzunehmen, die von der Tabelle mit den Veranstaltungen aus per Fremdschlüsselfeld referenziert wird, sieht das Datenmodell wie in Bild 1 aus. Die Tabelle tblVeranstaltungen <\/b>nimmt die grundlegenden Veranstaltungsdaten auf. Die Tabelle tblTermine <\/b>ist über das Feld VeranstaltungID <\/b>mit der Tabelle tblVeranstaltungen <\/b>verknüpft. Auf diese Weise können ein oder mehrere Termine einer Veranstaltung zugewiesen werden. Die Tabelle tblTermine <\/b>enthält weiterhin ebenfalls die Felder Titel und Beschreibung, Termindatum, Startzeit und Endzeit. Das Feld AlternativID <\/b>erhält beim Anlegen des ersten Termins eine eindeutige ID. Sollen Alternativtermine zu einem Termin angelegt werden, erhalten diese die gleiche AlternativID <\/b>wie der betroffene Termin.<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Datenmodell der Terminverwaltung<\/span><\/b><\/p>\n

Das Feld KategorieID<\/b> der Tabelle tblVeranstaltungen <\/b>legen Sie als Nachschlagefeld aus, damit beim Anlegen von Steuerelementen auf Basis dieses Feldes in Formularen gleich ein Kombinationsfeld erstellt wird.<\/p>\n

Beim Feld VeranstaltungID <\/b>der Tabelle tblTermine <\/b>ist dies nicht nötig, da dieses später nur die Zuordnung von den Terminen im Unterformular zu den Veranstaltungen im Hauptformular herstellen soll. Stattdessen legen Sie die Beziehung direkt im Beziehungen-Fenster an.<\/p>\n

Eingabe der Veranstaltungsdaten<\/b><\/p>\n

Die eigentlichen Veranstaltungsdaten geben Sie in das Hauptformulars frmVeranstaltungen <\/b>ein. Dieses verwendet die Tabelle tblVeranstaltungen <\/b>als Datenherkunft <\/b>und enthält die Felder VeranstaltungID<\/b>, Titel<\/b>, Beschreibung und KategorieID<\/b> dieser Tabelle. Das Feld VeranstaltungID <\/b>ist als Autowert ausgelegt und somit vielleicht nicht optimal zur Referenzierung von Veranstaltungen geeignet. Sie können ein Feld zur Eingabe individueller Veranstaltungsnummern anlegen, die mehr Aussagekraft haben – beispielsweise mit Kürzeln wie MS01 <\/b>für Mitarbeiterschulung 01<\/b>. Das Formular sieht in der Entwurfsansicht wie in Bild 2 aus.<\/p>\n

\"pic002.png\"<\/p>\n

Bild 2: Hauptformular zur Eingabe der Veranstaltungen in der Entwurfsansicht<\/span><\/b><\/p>\n

Termine anzeigen<\/b><\/p>\n

Wie Sie die Termine zur aktuellen Veranstaltung des Hauptformulars anzeigen, hängt davon ab, ob diese direkt bearbeitet werden sollen oder ob dies in einem externen Formular geschehen soll. Für die direkte Bearbeitung verwenden Sie ein Unterformular in der Datenblatt- oder Endlosansicht, bei Bearbeitung im separaten Formular können Sie alternativ ein Listenfeld verwenden.<\/p>\n

In diesem Fall scheint eine Kombination sinnvoll. Die Termine sollten schon direkt editierbar sein, weil das einfach praktischer ist und schneller funktioniert, als wenn Sie für jede änderung ein Detailformular öffnen würden. Andererseits kann gerade das Anlegen von Alternativterminen direkt im Unterformular in der Datenblatt- oder Endlosansicht verwirren: Prinzipiell soll dazu nämlich zunächst der Termin-Datensatz, zu dem ein Alternativtermin erstellt werden soll, kopiert werden. Dann zeigt das Unterformular zwei identische Termine an. Welchen davon soll der Benutzer dann bearbeiten Also öffnet die Anwendung besser gleich ein Detailformular zur Bearbeitung des neuen Termins und fügt diesen nach dem Schließen des Detailformulars in der Liste der Termine an. Das Vorhandensein von Alternativterminen wirkt sich auch auf die Auswahl der Listendarstellung aus: Es wäre doch äußerst praktisch, wenn alternative Termine zusammenhängend angezeigt würden – am besten noch durch eine gemeinsame Farbe markiert. Hier scheidet das Listenfeld aus.<\/p>\n

Unterformular zur Anzeige der Termine<\/b><\/p>\n

Also ein Unterformular – in der Datenblattansicht oder doch als Endlosformular Das hängt davon ab, ob Sie die Schaltflächen etwa zum Anlegen eines Alternativtermins, zum Löschen oder zum Bearbeiten in jeder Zeile anzeigen möchten oder doch lieber über oder unter dem Unterformular. Sollen die Bedienelemente für jeden Datensatz bereitstehen, verwenden Sie ein Endlosformular, sonst die Datenblattansicht (natürlich können Sie auch das Endlosformular verwenden und dabei die Schaltflächen über oder unter dem Formular anzeigen, aber in einem Unterformular in der Datenblattansicht bringen Sie definitiv keine Schaltflächen unter). Da die Daten gleich im Unterformular bearbeitet werden sollen, entscheiden wir uns für die Darstellung im Endlosformular und somit dafür, jedem Termin-Datensatz einen eigenen Satz Schaltflächen zum Löschen, Bearbeiten et cetera zuzuordnen.<\/p>\n

In der Entwurfsansicht sieht das Formular mit der Bezeichnung sfmTermine<\/b> wie in Bild 3 aus. Das Formular verwendet zunächst die Tabelle tblTermine <\/b>als Datenherkunft. Zunächst deshalb, weil Sie damit erstmal die benötigten Felder aus der Feldliste in den Detailbereich ziehen und das Formular layouten können. Später werden wir die Tabelle durch eine Abfrage ersetzen.<\/p>\n

\"pic003.png\"<\/p>\n

Bild 3: Unterformular zur Anzeige der Termine<\/span><\/b><\/p>\n

Stellen Sie die Eigenschaft Standardansicht <\/b>des Formulars auf Endlosformular <\/b>ein. Die Steuerelemente verteilen Sie wie in der Abbildung auf den Formularkopf und den Detailbereich. Unter Access 2007 und jünger gelingt das ganz einfach, indem Sie alle betroffenen Steuerelemente markieren und im Ribbon den Eintrag Anordnen|Tabelle|Tabelle <\/b>ausführen. Rechts neben den Feldern platzieren Sie drei Schaltflächen namens cmdBearbeiten<\/b>, cmdLoeschen <\/b>und cmdAlternativterminAnlegen<\/b>. Um Platz zu sparen, haben wir die Symbole … <\/b>(Bearbeiten), X <\/b>(Löschen) und * <\/b>(Alternativtermin anlegen) als Beschriftung der Schaltflächen verwendet.<\/p>\n

Veranstaltungen mit Terminen anzeigen<\/b><\/p>\n

Nun ziehen Sie das Formular sfmTermine <\/b>aus dem Datenbankfenster beziehungsweise dem Navigationsbereich als Unterformular in das im Entwurf geöffnete Formular frmVeranstaltungen<\/b>.<\/p>\n

Normalerweise sollten die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformulars nun wie in Bild 4 gefüllt sein. Dies besagt, dass das Unterformular nur solche Datensätze anzeigt, deren Fremdschlüsselfeld VeranstaltungID <\/b>den gleichen Wert wie das gleichnamige Feld im Hauptformular aufweist. Sollten diese beiden Eigenschaften nicht gefüllt sein, holen Sie dies nach.<\/p>\n

\"pic004.png\"<\/p>\n

Bild 4: Haupt- und Unterformular werden über die Eigenschaften Verknüpfen von und Verknüpfen nach verbunden.<\/span><\/b><\/p>\n

Nun können Sie schon in die Formularansicht wechseln und Veranstaltungen eingeben. Termine zu den Veranstaltungen sollen nur über ein weiteres Formular namens frmTermine<\/b> eingegeben werden können. Daher stellen wir die Eigenschaft Anfügen zulassen <\/b>des Unterformulars auf Nein <\/b>ein. Dafür müssen Sie aber dann eine Schaltfläche im Formular anlegen, mit der der Benutzer das Formular frmTermine <\/b>zum Anlegen neuer Termine öffnen kann. Diese Schaltfläche soll cmdNeuerTermin <\/b>heißen und das Formular frmTermine <\/b>als modalen Dialog nur zum Anlegen eines neuen Datensatzes öffnen. Außerdem soll mit dem Öffnungsargument der Wert des Feldes VeranstaltungID <\/b>der aktuell im Hauptformular angezeigten Veranstaltung übergeben werden, damit dieses gleich als Standardwert für das entsprechende Fremdschlüsselfeld übernommen werden kann. Nach dem Schließen des Formulars frmTermine <\/b>soll der Inhalt des Unterformulars sfmTermine <\/b>aktualisiert werden, damit der neue Termin auch angezeigt wird. Die per Mausklick ausgelöste Prozedur sieht so aus:<\/p>\n

Private Sub cmdNeuerTermin_Click()\r\n    DoCmd.OpenForm "frmTermine", WindowMode:=acDialog, DataMode:=acFormAdd, OpenArgs:=Me!txtVeranstaltungID\r\n    Me!sfmTermine.Form.Requery\r\nEnd Sub<\/pre>\n
Termine anlegen<\/b><\/p>\n
Neue Termine und Alternativtermine werden im Formular frmTermine <\/b>angelegt. Dort findet auch die Bearbeitung bestehender Termine statt, soweit Felder betroffen sind, die in der Übersicht nicht angezeigt werden. Das Formular verwendet die Tabelle tblTermine<\/b> als Datenherkunft und zeigt die Felder dieser Tabelle wie in der Entwurfsansicht aus Bild 5 an. Die beiden Felder AlternativID <\/b>und VeranstaltungID <\/b>werden gleich zwar benötigt, sollen aber nicht angezeigt werden. Daher stellen Sie deren Eigenschaft Sichtbar <\/b>auf den Wert Nein <\/b>ein (dies können Sie später erledigen, um vorerst die Inhalte dieser Felder kontrollieren zu können).<\/p>\n
\"pic005.png\"<\/p>\n
Bild 5: Das Formular zum Eingeben neuer Termine<\/span><\/b><\/p>\n
<\/p>\n
Außerdem enthält das Formular zwei Schaltflächen namens cmdOK <\/b>und cmdAbbrechen <\/b>mit entsprechender Beschriftung. Die Schaltfläche cmdOK <\/b>löst folgende Ereignisprozedur aus:<\/p>\n
Private Sub cmdOK_Click()\r\n    DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Die Schaltfläche cmdAbbrechen <\/b>schließt ebenfalls das Formular, verwirft aber zuvor noch die änderungen:<\/p>\n
Private Sub cmdAbbrechen_Click()\r\n    Me.Undo\r\n    DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Kümmern wir uns nun noch um den beim Aufruf übergebenen OpenArgs<\/b>-Parameter. Dieser enthält den aktuellen Wert des Feldes VeranstaltungID<\/b>. Damit es als Standardwert des entsprechenden Fremdschlüsselfeldes der Tabelle tblTermine <\/b>eingetragen wird, legen Sie eine Prozedur für das Ereignis Beim Öffnen <\/b>an und fügen die folgende Anweisung hinzu:<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n    Me!VeranstaltungID.DefaultValue = Me.OpenArgs\r\nEnd Sub<\/pre>\n
Auf diese Weise wird der neue Datensatz gleich mit dem entsprechenden Datensatz der Tabelle tblVeranstaltungen <\/b>verknüpft.<\/p>\n
Das Eingabeformular soll jeweils zur Bearbeitung eines einzigen Termins dienen, also blenden Sie die Navigationsschaltflächen und den Datensatzmarkierer durch Einstellen der entsprechenden Eigenschaften auf den Wert Nein <\/b>aus. Außerdem soll das Fenster zentriert erscheinen, was Sie durch Einstellen von Automatisch zentrieren <\/b>auf Ja <\/b>erreichen. Da die Größe des Fensters nicht veränderlich ist, deaktivieren Sie auch die Eigenschaft Bildlaufleisten<\/b>.<\/p>\n
Termininformationen vorbelegen<\/b><\/p>\n
Einige Daten des Termins wie etwa der Titel <\/b>und die Beschreibung <\/b>sollen entsprechend der Information zur betroffenen Veranstaltung vorbelegt werden.<\/p>\n
Dazu gibt es mehrere Möglichkeiten: Entweder das Formular frmTermine <\/b>liest diese vom Formular frmVeranstaltungen <\/b>ein, die Daten werden ebenfalls mit dem OpenArgs<\/b>-Argument übergeben oder sie werden auf Basis des übergebenen Werts für das Feld VeranstaltungID <\/b>aus der Tabelle ausgelesen.<\/p>\n
Termin bearbeiten<\/b><\/p>\n
Die grundlegenden Daten des Termins, also den Titel, das Datum oder Start- und Endzeit, kann der Benutzer gleich im Unterformular sfmTermine <\/b>des Formulars frmVeranstaltungen <\/b>bearbeiten. Sollte auch noch die Beschreibung angepasst werden, muss der Benutzer den Termin im Formular frmTermine <\/b>öffnen. Dies erledigt ein Klick auf die Schaltfläche cmdBearbeiten <\/b>(…). Dies löst die folgende Prozedur aus:<\/p>\n
Private Sub cmdBearbeiten_Click()\r\n    DoCmd.OpenForm "frmTermine", WindowMode:=acDialog, DataMode:=acFormEdit, _\r\n          WhereCondition:="TerminID = " & Me!TerminID\r\n    Me.Requery\r\nEnd Sub<\/pre>\n
Die Prozedur öffnet das Formular frmTermine <\/b>wiederum als modalen Dialog, diesmal allerdings im Datenbearbeitungsmodus. Deshalb wird auch kein Wert für VeranstaltungID <\/b>per OpenArgs <\/b>übergeben, sondern der gewünschte Datensatz über den Parameter WhereCondition <\/b>festgelegt. Da kein Öffnungsargument übergeben wird, löst dies aktuell einen Fehler in der Beim Laden<\/b>-Ereignisprozedur des geöffneten Formulars aus: Me.OpenArgs <\/b>ist Null<\/b>, der Standardwert eines Feldes erwartet aber immer einen Wert ungleich Null<\/b>. Daher nehmen wir dort eine kleine Anpassung vor:<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n    If Not IsNull(Me.OpenArgs) Then\r\n        Me!txtVeranstaltungID.DefaultValue = Me.OpenArgs\r\n    End If\r\nEnd Sub<\/pre>\n
Termine löschen<\/b><\/p>\n
Die Schaltfläche cmdLoeschen <\/b>im Unterformular sfmTermine <\/b>soll den Termin-Datensatz, für den sie angeklickt wurde, löschen. Da der Benutzer gegebenenfalls einmal aus Versehen auf diese Schaltfläche klickt, versehen wir die dadurch ausgelöste Prozedur mit einer Rückfrage, ob der Datensatz auch wirklich gelöscht werden soll. Die Prozedur sieht schließlich wie folgt aus:<\/p>\n
Private Sub cmdLoeschen_Click()\r\n    If MsgBox("Soll der Datensatz wirklich gelöscht werden", vbYesNo) = vbYes Then\r\n        RunCommand acCmdDeleteRecord\r\n    End If\r\nEnd Sub<\/pre>\n
Alternativtermin hinzufügen<\/b><\/p>\n
Das Hinzufügen eines Alternativtermins ist etwas komplizierter als das Anlegen eines normalen Termins. Grundsätzlich haben wir noch keine Funktion vorgesehen, die jedem einzelnen Termin einen eindeutigen Wert im Feld AlternativID <\/b>hinzufügt. Dies sollte bei jedem neuen Termin geschehen, bei Anlage von Alternativterminen sollen diese mit der gleichen ID wie der betroffene Termin ausgestattet werden.<\/p>\n
Diesen Wert könnten wir einfach beim Anlegen eines neuen Datensatzes im Formular frmTermine <\/b>ermitteln und hinzufügen. Allerdings ist hier zu beachten, dass dieser Wert nicht immer neu ermittelt, sondern von einem bestehenden Termin übernommen werden muss.<\/p>\n
Es bietet sich daher an, die AlternativID <\/b>bereits beim Anlegen vom Formular frmVeranstaltungen <\/b>aus zu ermitteln und ebenfalls als Öffnungsargument zu übergeben. Das Öffnungsargument kann dann auch beim Anlegen eines Alternativtermins übergeben werden – dann allerdings auf Basis der bereits bestehenden AlternativID <\/b>des Termins, zu dem eine Alternative erstellt werden soll.<\/p>\n
Erstmal kümmern wir uns um die beiden Erweiterungen, zunächst in der Prozedur, die durch einen Mausklick auf die Schaltfläche cmdNeuerTermin<\/b> des Formulars frmVeranstaltungen <\/b>ausgelöst wird (s. Listing 1<\/a><\/span>).<\/p>\n
Listing 1: Öffnen des Formulars zum Anlegen eines neuen Termins<\/p>\n
Private Sub cmdNeuerTermin_Click()\r\n    Dim lngAlternativID As Long\r\n    lngAlternativID = Nz(DMax("AlternativID", "tblTermine"), 0) + 1\r\n    DoCmd.OpenForm "frmTermine", WindowMode:=acDialog, DataMode:=acFormAdd, _\r\n        OpenArgs:=Me!txtVeranstaltungID & "|" & lngAlternativID & "|" & Me!txtTitel & "|" _\r\n        & Me!txtBeschreibung\r\n    Me!sfmTermine.Form.Requery\r\nEnd Sub<\/pre>\n
Hier wird nun zunächst ein neuer Wert für das Feld AlternativID <\/b>ermittelt, in diesem Fall schlicht der nächstgrößere Wert des aktuell größten Eintrags. Dieser wird, durch das Pipe-Zeichen (|) getrennt, zusammen mit dem Wert des Feldes VeranstaltungID <\/b>als Öffnungsargument an das aufgerufene Formular geschickt, also beispielsweise in der Form 12|321<\/b>.<\/p>\n
Mit diesem geänderten Öffnungsargument kann die Prozedur, die beim Laden des Formulars frmTermine <\/b>ausgelöst wird, natürlich nichts mehr anfangen. Daher wird der Ausdruck dort erstmal auseinandergenommen und in den beiden Variablen lngVeranstaltungID <\/b>und lngAlternativID <\/b>gespeichert. Dann landen diese beiden Werte in der Eigenschaft DefaultValue <\/b>der beiden Textfelder txtVeranstaltungID <\/b>und txtAlternativID<\/b> (s. Listing 2<\/a><\/span>).<\/p>\n
Listing 2: Initialisieren des Formulars zum Anlegen eines neuen Termins<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n    Dim lngVeranstaltungID As Long\r\n    Dim lngAlternativID As Long\r\n    Dim strTitel As String\r\n    Dim strBeschreibung As String\r\n    If Not IsNull(Me.OpenArgs) Then\r\n        lngVeranstaltungID = Split(Me.OpenArgs, "|")(0)\r\n        lngAlternativID = Split(Me.OpenArgs, "|")(1)\r\n        strTitel = Split(Me.OpenArgs, "|")(2)\r\n        strBeschreibung = Split(Me.OpenArgs, "|")(3)\r\n        Me!txtVeranstaltungID.DefaultValue = lngVeranstaltungID\r\n        Me!txtAlternativID.DefaultValue = lngAlternativID\r\n        Me!txtPrioritaet.DefaultValue = DCount("AlternativID", "tblTermine", _\r\n            "AlternativID = " & lngAlternativID) + 1\r\n        Me!txtTitel.DefaultValue = Chr(34) & strTitel & Chr(34)\r\n        Me!txtBeschreibung.DefaultValue = Chr(34) & strBeschreibung & Chr(34)\r\n    End If\r\nEnd Sub<\/pre>\n
Damit können wir arbeiten, wenn wir nun einen Alternativtermin anlegen möchten. Die durch einen Klick auf die Schaltfläche cmdAlternativterminAnlegen <\/b>ausgelöste Prozedur ermittelt zunächst die Werte der beiden Felder VeranstaltungID <\/b>und AlternativID <\/b>des Datensatzes, auf dessen Schaltfläche geklickt wurde. Dann öffnet sie das Formular frmTermine <\/b>und übergibt die beiden Werte, genau wie zuvor durch ein Pipe-Zeichen getrennt:<\/p>\n
Private Sub cmdAlternativterminAnlegen_Click()\r\n    Dim lngVeranstaltungID As Long\r\n    Dim lngAlternativID As Long\r\n    lngVeranstaltungID = Me!VeranstaltungID\r\n    lngAlternativID = Me!AlternativID\r\n    DoCmd.OpenForm "frmTermine", _\r\n        WindowMode:=acDialog, DataMode:=acFormAdd, _\r\n        OpenArgs:=lngVeranstaltungID & "|" \r\n             & lngAlternativID\r\n    Me.Requery\r\nEnd Sub<\/pre>\n
Nach dem Schließen des Formulars wird auch hier noch der Inhalt des Unterformulars aktualisiert.<\/p>\n
Kategorien hinzufügen<\/p>\n
Kategorien sollen direkt über das Kombinationsfeld cboKategorieID <\/b>eingefügt werden. Dazu hinterlegen Sie die Prozedur aus Listing 3<\/a><\/span> für die Ereigniseigenschaft Bei nicht in Liste<\/b>. Die Prozedur fragt den Benutzer zunächst, ob die Kategorie tatsächlich angelegt werden soll. Falls ja, trägt die Prozedur die Kategorie mit einer INSERT INTO<\/b>-Anweisung ein und gibt für den Parameter Response<\/b> den Wert acDataErrAdded <\/b>zurück, was dazu führt, dass der neue Wert gleich verfügbar ist und ausgewählt wird. Anderenfalls wird die Eingabe im Kombinationsfeld zurückgesetzt. Der Rückgabewert acDataErrContinue <\/b>sorgt dafür, dass die sonst übliche Fehlermeldung nicht angezeigt wird.<\/p>\n
Listing 3: Diese Prozedur legt einen neuen Eintrag in der Tabelle tblKategorien an.<\/p>\n
Private Sub cboKategorieID_NotInList(NewData As String, Response As Integer)\r\n    Dim db As DAO.Database\r\n    If MsgBox("Kategorie ''" & NewData & "'' hinzufügen", vbYesNo) = vbYes Then\r\n        Set db = CurrentDb\r\n        db.Execute "INSERT INTO tblKategorien(Kategorie) VALUES(''" & NewData & "'')", dbFailOnError\r\n        Response = acDataErrAdded\r\n        Set db = Nothing\r\n    Else\r\n        Me!cboKategorieID.Undo\r\n        Response = acDataErrContinue\r\n    End If\r\nEnd Sub<\/pre>\n
Termine sortiert anzeigen<\/b><\/p>\n
Jetzt wird es interessant: Sie können zwar bereits mehrere Termine zu einer Veranstaltung eingeben und auch Alternativtermine festlegen. Allerdings werden diese aktuell noch in der Reihenfolge des Anlegens im Unterformular dargestellt. Wünschenswert wäre es allerdings, wenn das Unterformular die Terminalternativen gruppiert anzeigen würde – und am besten noch farblich hervorgehoben. Wenn Sie also drei Termine planen und für jeden Termin drei Alternativen eintragen, sollten erst drei Termine ohne Hintergrund, dann drei mit Hintergrund und dann wieder drei ohne erscheinen. Außerdem wäre es toll, wenn man den Terminen eine Priorität zuweisen könnte, um festzulegen, welcher der Alternativtermine am wahrscheinlichsten ist und welcher eher nicht wahrgenommen wird.<\/p>\n
Letzteres Feature würde uns eine schwierige Entscheidung abnehmen: Wenn sich die Alternativen für zwei Termine zeitlich überschneiden, welche Gruppe soll dann zuerst in der Liste angezeigt werden Wenn wir einem Termin einer Reihe von Alternativterminen die höchste Priorität einräumen können, brauchten wir die Gruppen von Alternativterminen einfach nur nach dem Datum des wahrscheinlichsten Termins zu sortieren. Um dies zu realisieren, fügen wir der Tabelle tblTermine <\/b>zunächst noch ein Feld namens Prioritaet <\/b>hinzu. Außerdem benötigt das Unterformular sfmTermine<\/b> noch zwei Schaltflächen, mit denen die Priorität eingestellt werden kann. Die erste Schaltfläche verschiebt einen Termin eine Position innerhalb der Terminalternativen nach oben, die zweite nach unten.<\/p>\n
Prioritäten zuteilen<\/b><\/p>\n
Als Erstes müssen wir den Terminen beim Anlegen Prioriäten zuweisen. Das heißt, dass der erste Termin einer Reihe von Alternativterminen jeweils den Wert 1 <\/b>im Feld Prioritaet <\/b>erhalten soll. Der Wert jedes nachfolgenden Alternativtermins soll um 1 <\/b>größer sein.<\/p>\n
Die erledigen wir innerhalb der Prozedur, die beim Laden des Formulars frmTermine <\/b>ausgelöst wird. Dort fügen Sie als letzte Zeile der If…Then<\/b>-Bedingung die folgende Anweisung ein:<\/p>\n
Me!txtPrioritaet.DefaultValue = DCount("AlternativID", "tblTermine", "AlternativID = " & lngAlternativID) + 1<\/pre>\n
Dies ermittelt die Anzahl der bisher vorhandenen Termine mit dem gleichen Wert im Feld AlternativID <\/b>und stellt den Standardwert des noch anzulegenden Feldes txtPrioritaet<\/b>, welches das neue Feld Prioritaet <\/b>als Steuerelementinhalt verwendet, auf diesen Wert plus 1 <\/b>ein. Somit wird der neue Alternativtermin bezüglich der Priorität zunächst hinten angestellt.<\/p>\n
Sortieren der Alternativtermine nach Priorität<\/b><\/p>\n
Im Unterformular sfmTermine <\/b>soll der Benutzer die Gelegenheit erhalten, die Termine, zu denen es Alternativen gibt, nach der Priorität zu sortieren und diese dann gegebenenfalls nach und nach zu eliminieren. Zur Sortierung sollen Schaltflächen angelegt werden, mit denen man einen Termin um eine Position nach oben oder um eine Position nach unten verschieben kann – optimalerweise gleich neben den übrigen drei Schaltflächen zum Löschen, Bearbeiten oder Anlegen von Alternativterminen.<\/p>\n
Das erste Problem ist jedoch, die Termine in der richtigen Sortierung anzuzeigen. Normalerweise wäre das leicht: Sie legen einfach ein Sortierfeld fest und stellen die Sortierung auf Aufsteigend <\/b>oder Absteigend <\/b>ein. In diesem Fall kann es jedoch auch vorkommen, dass eine Veranstaltung mehrere Termine enthält, von denen einer oder mehrere auch noch Alternativtermine bereithalten. Das heißt, dass erst nach dem Wert des Feldes Alternativtermin <\/b>sortiert werden muss und dann nach der Priorität. Die einzelnen Gruppen von Alternativterminen sollen hingegen nach dem Datum des Termins mit der höchsten Priorität geordnet werden. Wir haben also die folgenden Vorgaben:<\/p>\n