<\/p>\n
Die Beispieldatenbank Vereinsverwaltung erwartet an einer Stelle die Eingabe der Vereinszugehörigkeit. Je Mitglied kann es auch mehrere Vereinszugehörigkeiten geben. Diese wollen wir diesmal in einem Listenfeld darstellen und ohne Verwendung eines eigenen Detailformulars per InputBox verwalten. Dass dies gar nicht unbedingt einfacher oder schneller geht, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Der größte Aufwand bei der Verwaltung von Zeiträumen entsteht durch die überprüfung der eingegebenen Werte: Das Startdatum darf nicht hinter dem Enddatum liegen, die Zeiträume der verschiedenen Datensätze dürfen sich nicht überlappen. In diesem Beitrag zeigen wir, wie Sie die Zeiträume zu einem bestimmten Thema, hier die Vereinszugehörigkeiten von Mitgliedern zu einem Verein, in einem Listenfeld anzeigen und per InputBox<\/b> verwalten wollen. Diese Zeiträume könnten aber auch etwa die Beschäftigungszeiten in einem Unternehmen sein – und Sie finden sicher noch weitere Beispiele. In unserem Beispiel kümmern wir uns um die Einträge der Tabelle tblVereinszugehoerigkeiten<\/b>, die wie in Bild 1 mit der Tabelle tblMitglieder <\/b>verknüpft ist.<\/p>\n
![\"Mitglieder](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_002.png\")
<\/p>\n
Bild 1: Mitglieder und Vereinszugehörigkeiten<\/span><\/b><\/p>\n Das Listenfeld lstVereinszugehoerigkeiten <\/b>sowie die beiden Schaltflächen cmdNeueVereinszugehoerigkeit<\/b> und cmdVereinszugehoerigkeitLoeschen <\/b>füllen wir gleich mit Code. Ein Klick auf die Schaltfläche cmdNeueVereinszugehoerigkeit<\/b> soll beispielsweise eine InputBox <\/b>wie in Bild 2 anzeigen.<\/p>\n Bild 2: Zeiträume per InputBox eingeben<\/span><\/b><\/p>\n Zuvor wollen wir jedoch noch die Daten der Tabelle tblVereinszugehoerigkeiten <\/b>im Listenfeld anzeigen. Wie Sie diese Steuer-elemente anlegen, erläutern wir im Beitrag Vereinsverwaltung: Formulare <\/b>(www.access-im-unternehmen.de\/1134<\/b>).<\/p>\n Das Listenfeld soll alle Datensätze der Tabelle tblVereinszugehoerigkeiten <\/b>anzeigen, die dem aktuell im Formular frmMitglieddetails <\/b>angezeigten Mitglied zugeordnet sind. Außerdem sollen die Daten aufsteigend nach dem Eintrittsdatum sortiert werden. Dies erledigen wir mit der Abfrage aus Bild 3. Diese verwendet alle Felder der Tabelle tblVereinszugehoerigkeiten<\/b>, das Fremdschlüsselfeld MitgliedID <\/b>wird jedoch nur als Kriterium verwendet. Damit nur die Vereinszugehörigkeiten zum aktuellen Mitglied erscheinen, stellen wir das Kriterium dieses Feldes auf [Forms]![frmMitglieddetails]![MitgliedID] <\/b>ein. Dies führt dazu, dass die Datensätze automatisch gefiltert werden. Damit das Listenfeld nur die für die Bearbeitung wichtigen Spalten anzeigt, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 3 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf 0cm;3cm;3cm <\/b>ein.<\/p>\n Bild 3: Datensatzherkunft des Listenfeldes lstVereinszugehoerigkeiten<\/span><\/b><\/p>\n Damit erhalten wir dann, sofern schon einige Datensätze vorliegen, in der Formularansicht Daten wie etwa in Bild 4. Wenn wir dann den Datensatz im Formular wechseln, aktualisiert dies allerdings noch nicht die im Listenfeld angezeigten Daten. Dazu müssen wir noch die Ereignisprozedur Beim Anzeigen <\/b>zum Formular hinzufügen und diese wie folgt ergänzen:<\/p>\n Bild 4: Zwei Datensätze im Listenfeld<\/span><\/b><\/p>\n Danach gelingt die Aktualisierung des Listenfeldes beim Datensatzwechsel reibungslos.<\/p>\n Die durch die Schaltfläche cmdNeueVereinszugehoerigkeit <\/b>ausgelöst Ereignisprozedur soll dem Benutzer die Möglichkeit geben, einen neuen Zeitraum zum aktuellen Mitglied hinzuzufügen (siehe Listing 1). Die Prozedur ermittelt zunächst mit einer InputBox<\/b>-Anweisung das Eintrittsdatum für die neue Vereinszugehörigkeit. Dann prüft sie, ob die Variable, welche das Ergebnis der Funktion aufgenommen hat, eine Zeichenkette mit einer Länge größer 0 <\/b>aufweist. Dies ist unter folgenden Bedingungen nicht der Fall: Wenn der Benutzer das Feld leer lässt und auf OK <\/b>klickt oder wenn er direkt auf Abbrechen <\/b>klickt – dann wird unabhängig vom aktuell in die InputBox <\/b>eingetragenen Wert eine leere Zeichenfolge zurückgeliefert. Sollte strEintritt <\/b>nach dieser Zeile also eine Zeichenkette mit mindestens einem Zeichen enthalten, ist die folgende If…Then<\/b>-Bedingung erfüllt. Eine weitere If…Then<\/b>-Bedingung prüft dann, ob der Benutzer ein gültiges Datum eingegeben hat. Falls nicht, wird der Else<\/b>-Teil ausgeführt, welcher den Benutzer darauf hinweist, dass er kein gültiges Eintrittsdatum eingegeben hat. Ist das Datum jedoch gültig, speichern wir die in den Datentyp Date <\/b>konvertierte Zeichenkette in der Variablen datEintritt<\/b>. Danach können wir mit der Abfrage des Austrittsdatums fortfahren. Normalerweise gehen wir davon aus, dass eine neue Vereinszugehörigkeit nur ein Eintrittsdatum enthält, daher füllen wir den Standardtext dieser InputBox <\/b>mit dem Text Noch aktiv.<\/b>, was wie in Bild 5 aussieht.<\/p>\n Bild 5: Vorbelegung für das Austrittsdatum<\/span><\/b><\/p>\n Nach der Eingabe des Benutzers prüft die folgende If…Then<\/b>-Bedingung, ob sowohl die zurückgelieferte Zeichenkette eine Länge von mindestens einem Zeichen aufweist und der Text nicht mit dem Standardwert Noch aktiv. <\/b>übereinstimmt. Falls nicht, wird im Else<\/b>-Teil der Bedingung über die Execute<\/b>-Methode des Database<\/b>-Objekts db <\/b>eine INSERT INTO<\/b>-Anweisung ausgeführt, welche einen neuen Datensatz in der Tabelle tblVereinszugehoerigkeiten <\/b>anlegt und dabei die Felder MitgliedID <\/b>und Eintrittsdatum <\/b>mit dem Primärschlüsselwert des aktuellen Datensatzes im Formular und dem Wert aus datEintritt <\/b>füllt. Dabei nutzen wir die Hilfsfunktion SQLDatum <\/b>aus dem Modul mdlTools<\/b>, um das Datum SQL-konform abzubilden (als yyyy-mm-dd<\/b>). Danach aktualisieren wir die Anzeige im Listenfeld mit der Requery<\/b>-Methode des Listenfeldes.<\/p>\n Hat der Benutzer jedoch ein gültiges Austrittsdatum angegeben, weil er etwa aus statistischen Gründen frühere Vereinszugehörigkeiten nachtragen möchte, prüft die Prozedur, ob es sich bei strAustritt <\/b>um ein gültiges Datum handelt. Auch hier erscheint im Else<\/b>-Teil eine entsprechende Meldung, falls strAustritt <\/b>kein gültiges Datum enthält.<\/p>\n Ist strAustritt <\/b>ein Datum, wird es mit CDate <\/b>in die <\/p>\n Date<\/b>-Variable datAustritt <\/b>überführt. Da nun beide Datumsangaben vorhanden sind, können wir noch prüfen, ob das Eintrittsdatum gegebenenfalls hinter dem Austrittsdatum liegt und den Benutzer darauf hinweisen. Er muss den Vorgang dann erneut starten. Sind die Daten hingegen korrekt, fügt die Prozedur den Datensatz mit einer INSERT INTO<\/b>-Aktionsabfrage zur Tabelle tblVereinszugehoerigkeiten <\/b>hinzu. Diesmal berücksichtigt sie dabei nicht nur die Felder MitgliedID <\/b>und Eintrittsdatum<\/b>, sondern auch noch das Feld Austrittsdatum<\/b>.<\/p>\n Wenn der Benutzer doppelt auf einen der vorhandenen Einträge klickt, löst dies die Ereignisprozedur lstVereinszugehoerigkeiten_DblClick <\/b>aus, die Sie in Listing 2 finden.<\/p>\n <\/p>\n Listing 2: Bearbeiten eines vorhandenen Zeitraums<\/span><\/b><\/p>\n Die Prozedur ermittelt zunächst über die Eigenschaft Column(0) <\/b>des Listenfeld-Steuerelements den Wert des in der ersten Spalte angezeigten Feldes. Wobei „angezeigt“ der falsche Begriff ist, denn wir haben die Breite dieser Spalte ja auf 0cm <\/b>eingestellt, wodurch die Spalte faktisch ausgeblendet wird. Der darin enthaltene Wert des Primärschlüsselfeldes der Tabelle tblVereinszugehoerigkeiten <\/b>für den aktuell markierten Datensatz landet jedenfalls in der Variablen lngVereinszugehoerigkeitID<\/b>. Gegebenenfalls hat der Benutzer auf eine leere Stelle im Listenfeld geklickt. In diesem Fall liefert Column(0) <\/b>den Wert Null <\/b>zurück, den wir durch die Funktion Nz <\/b>durch den Wert 0 <\/b>ersetzen. Hat lngVereinszugehoerigkeitID <\/b>danach den Wert 0<\/b>, zeigt die Prozedur eine Meldung an, die den Benutzer darauf hinweist, dass er den Doppelklick für einen bestehenden Eintrag ausführen muss. Nun folgt ein vorbereitender Schritt für die Bearbeitung der bestehenden Daten: Wir speichern die in der zweiten und dritten Spalte des markierten Eintrags im Listenfeld befindlichen Werte in den Variablen strEintritt <\/b>und strAustritt<\/b>. Dann zeigen wir eine InputBox <\/b>an, die das Eintrittsdatum abfragen soll und den Wert aus strEintritt <\/b>als Standardwert nutzt (siehe Bild 6).<\/p>\n Bild 6: Vorbelegung für das Eintrittsdatum beim Bearbeiten eines Datensatzes<\/span><\/b><\/p>\n Das Ergebnis landet schließlich in der Variablen strEintritt <\/b>und wird auf seine Eigenschaft als Datum geprüft. Ist es kein Datum, erscheint wieder die im Else<\/b>-Teil aufgerufene Meldung mit einem entsprechenden Hinweis, anderenfalls landet strEintritt <\/b>in datEintritt<\/b>. Die nächste InputBox <\/b>nimmt das Austrittsdatum auf und speichert es in der Variablen strAustritt<\/b>. Genau diese liefert auch den in der InputBox <\/b>angezeigten Standardwert. Auch hier erfolgt wieder die Prüfung auf ein gültiges Datum mit den Konsequenzen bei Fehleingabe. Ein gültiges Datum vorausgesetzt, prüft die Prozedur dann, ob datEintritt <\/b>größer als datAustritt <\/b>ist und gibt gegebenenfalls eine Meldung aus und bricht die Prozedur ab.<\/p>\n Anderenfalls schreibt eine UPDATE<\/b>-Aktionsabfrage die geänderten Werte für die Felder Eintrittsdatum <\/b>und Austrittsdatum <\/b>für den in lngVereinszugehoerigkeitID <\/b>angegebenen Datensatz in die Tabelle tblVereinszugehoerigkeiten <\/b>ein.<\/p>\n Hat der Benutzer kein Austrittsdatum angegeben, kommt noch der Else<\/b>-Teil der dritten verschachtelten If…Then<\/b>-Bedingung zum Tragen. Hier aktualisieren wir den bearbeiteten Datensatz ebenfalls mit einer UPDATE<\/b>-Aktionsabfrage, aber wir leeren das Feld Austrittsdatum<\/b>, indem wir es auf den Wert NULL <\/b>einstellen.<\/p>\n Nun fehlt noch das Löschen eines bestehenden Zeitraums. Dies erledigen wir mit der Schaltfläche cmdVereinszugehoerigkeitenLoeschen<\/b>, welche die Ereignisprozedur aus Listing 3 auslöst.<\/p>\n Listing 3: Löschen eines Zeitraums per Mausklick<\/span><\/b><\/p>\n Die Prozedur verwendet wieder die String<\/b>-Variablen strEintritt <\/b>und strAustritt <\/b>zum Speichern der Ein- und Austrittsdaten. Sie prüft, ob der Benutzer vor dem Betätigen der Schaltfläche überhaupt einen Eintrag im Listenfeld markiert hat. Falls nicht, erscheint eine entsprechende Meldung. Ist ein Eintrag markiert, landen die Inhalte der zweiten und dritten Spalte des Listenfeldes in den beiden Variablen strEintritt <\/b>und strAustritt<\/b>. Nun treffen wir Vorbereitungen, um eine Rückfrage beim Benutzer bezüglich der zu löschenden Daten zusammenzustellen. Wenn strAustritt <\/b>ein Datum enthält, fügen wir nämlich vorn noch die Zeichenkette bis <\/b>an:<\/p>\n Dies wirkt sich dann auf die Meldung in der folgenden MsgBox<\/b>-Anweisung aus. Ist strAustritt<\/b> nämlich leer, wird schlicht kein Austrittsdatum bei der Rückfrage angegeben, anderenfalls erscheint das Austrittsdatum mit führendem bis<\/b> (siehe Bild 7). Bestätigt der Benutzer diese mit OK<\/b>, löscht eine DELETE<\/b>-Aktionsabfrage den betroffenen Datensatz aus der Tabelle und aktualisiert die Anzeige im Listenfeld.<\/p>\n Bild 7: Löschen eines Zeitraums<\/span><\/b><\/p>\n Fehlt noch die Möglichkeit, dass der Benutzer zwei Zeiträume eingibt, die sich überschneiden. In diesem Fall wollen wir kurz vor dem Speichern eines geänderten Zeitraums oder eines neu angelegten Zeitraums in der Tabelle prüfen, ob dieser sich gegebenenfalls mit einem bereits vorhandenen Zeitraum für ein Mitglied überschneidet. Für dieses scheinbar einfache Unterfangen ist eine relativ umfangreiche Prozedur erforderlich, die wie in Listing 4 aussieht. Die Prozedur erwartet vier Parameter, von denen einer optional ist. Die ersten beiden sind das Eintrittsdatum und das Austrittsdatum, das der Benutzer soeben eingegeben hat. Der dritte ist die ID des Mitglieds, für das die neue Vereinszugehörigkeit gespeichert werden soll. Der vierte und optionale Parameter ist der Primärschlüsselwert eines bestehenden Eintrags in der Tabelle tblVereinszugehoerigkeiten<\/b>, der natürlich nur dann übergeben wird, wenn der Benutzer einen vorhandenen Datensatz bearbeitet. Die Prozedur prüft zunächst, ob für den vierten, optionalen Parameter lngVereinszugehoerigkeitID <\/b>ein Wert übergeben wurde oder ob dieser den initialen Wert 0 <\/b>enthält.<\/p>\n Listing 4: Prüfen auf überschneidungen von Mitgliedszeiträumen<\/span><\/b><\/p>\n Ist dieser Wert 0<\/b>, wurde der Parameter nicht übergeben und die Prozedur stellt eine SELECT<\/b>-Abfrage zusammen, welche alle Datensätze liefert, die zu dem aktuellen Mitglied gehören. Hat lngVereinszugehoerigkeitID <\/b>nicht den Wert 0<\/b>, was der Bearbeitung eines vorhandenen Datensatzes der Tabelle tblVereinszugehoerigkeiten <\/b>entspricht, wird die SELECT<\/b>-Abfrage um ein zusätzliches Kriterium erweitert, welches den in Bearbeitung befindlichen Zeitraum der Vereinszugehörigkeit ausschließt. Wir wollen den bearbeiteten Zeitraum schließlich nicht mit dem Zeitraum im Originalzustand vergleichen.<\/p>\n Nachdem wir die SQL-Anweisung zusammengestellt haben, öffnen wir mit der OpenRecordset<\/b>-Methode ein Recordset auf Basis dieser Anweisung. Danach durchlaufen wir alle Datensätze in einer Do While<\/b>-Schleife. Hier beginnt nun der Abgleich der mit datEintritt <\/b>und datAustritt <\/b>gelieferten Zeitraums mit den bereits gespeicherten Zeiträumen dieses Mitglieds. Die erste If…Then<\/b>-Bedingung prüft, ob datEintritt <\/b>kleiner oder gleich dem gespeicherten Eintrittsdatum des aktuellen Datensatzes ist.Falls ja, untersuchen wir, ob datAustritt <\/b>ebenfalls kleiner als rst!Eintrittsdatum <\/b>ist. Falls beide kleiner sind, erhält die Variable bolUeberschneidung <\/b>den Wert False<\/b>, falls nicht, den Wert True <\/b>– in diesem Fall ist zwar dat-Eintritt <\/b>kleiner als rst!Eintrittsdatum<\/b>, aber datAustritt <\/b>ist größer – der bearbeitete Zeitraum überschneidet sich zumindest teilweise mit dem gespeicherten Zeitraum.<\/p>\n Ist im ElseIf<\/b>-Teil datEintritt <\/b>größer oder gleich rst!Austrittsdatum<\/b>, liegt der Zeitraum auf jeden Fall hinter dem gespeicherten Zeitraum. Der Else<\/b>-Teil untersucht dann die übrigen Fälle, die nur lauten können: datEintritt <\/b>ist größer als rst!Eintrittsdatum <\/b>und kleiner als rst!Austrittsdatum<\/b>, was bedeutet, dass sich die Zeiträume überschneiden.<\/p>\n Auf diese Weise untersuchen wir alle gespeicherten Datensätze in der Tabelle zum aktuell angezeigten Mitglied und verlassen die Do While<\/b>-Schleife sofort, wenn bolUeber-schneidung <\/b>einmal den Wert True <\/b>erhält. Diesen Wert prüfen wir im Anschluss. Hat bolUeberschneidung<\/b> den Wert True<\/b>, prüfen wir noch, ob der Benutzer das Austrittsdatum festgelegt hat oder nicht. Falls nicht, schreiben wir die Zeichenkette -(Ende offen) <\/b>in die Variable strAustritt<\/b>, sonst das Minuszeichen und das Austrittsdatum. Schließlich geben wir eine entsprechende Meldung aus, die angibt, welcher Zeitraum sich mit dem bearbeiteten Zeitraum überschneidet. Die Funktion gibt dann mit AufUeberschneidungenPruefen <\/b>den entsprechenden Wert zurück.<\/p>\n![\"Zeiträume](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_001.png\")
<\/p>\nDatensatzherkunft für das Listenfeld<\/h2>\n
![\"Datensatzherkunft](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_003.png\")
<\/p>\n![\"Zwei](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_004.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Me!lstVereinszugehoerigkeiten.Requery\r\nEnd Sub<\/span><\/pre>\nHinzufügen eines neuen Zeitraums<\/h2>\n
![\"Vorbelegung](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_005.png\")
<\/p>\nändern eines bestehenden Zeitraums<\/h2>\n
Private Sub <\/span>lstVereinszugehoerigkeiten_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>datEintritt As Date<\/span>, datAustritt As Date<\/span>\r\n Dim <\/span>strEintritt As String<\/span>, strAustritt As String<\/span>\r\n Dim <\/span>lngVereinszugehoerigkeitID As Long<\/span>\r\n lngVereinszugehoerigkeitID = Nz(Me!lstVereinszugehoerigkeiten.Column(0), 0)\r\n If <\/span>lngVereinszugehoerigkeitID = 0 Then<\/span>\r\n MsgBox<\/span> \"Sie müssen einen Eintrag auswählen.\", vbOKOnly, \"Kein Eintrag ausgewählt.\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n strEintritt = Nz(Me!lstVereinszugehoerigkeiten.Column(1), \"\")\r\n strAustritt = Nz(Me!lstVereinszugehoerigkeiten.Column(2), \"\")\r\n strEintritt = InputBox(\"Geben Sie das Eintrittsdatum an.\", \"Startdatum\", strEintritt)\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Len<\/span>(strEintritt) > 0 Then<\/span>\r\n If <\/span>IsDate(strEintritt) Then<\/span>\r\n datEintritt = CDate(strEintritt)\r\n strAustritt = InputBox(\"Geben Sie das Austrittsdatum an.\", \"Austrittsdatum\", strAustritt)\r\n If <\/span>Len<\/span>(strAustritt) > 0 Then<\/span>\r\n If <\/span>IsDate(strAustritt) Then<\/span>\r\n datAustritt = CDate(strAustritt)\r\n If <\/span>datEintritt > datAustritt Then<\/span>\r\n MsgBox<\/span> (\"Das Eintrittsdatum muss vor dem Austrittsdatum liegen. Die Eingabe wird abgebrochen.\")\r\n Exit Sub<\/span>\r\n Else<\/span>\r\n db.Execute \"UPDATE tblVereinszugehoerigkeiten SET Eintrittsdatum = \" & SQLDatum(datEintritt) _\r\n & \", Austrittsdatum = \" & SQLDatum(datAustritt) & \" WHERE VereinszugehoerigkeitID = \" _\r\n & Me!lstVereinszugehoerigkeiten, dbFailOnError\r\n Me!lstVereinszugehoerigkeiten.Requery\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> (\"''''\" & strAustritt & \"'''' ist kein gültiges Austrittsdatum.\")\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n db.Execute \"UPDATE tblVereinszugehoerigkeiten SET Eintrittsdatum = \" & SQLDatum(datEintritt) _\r\n & \", Austrittsdatum = NULL WHERE VereinszugehoerigkeitID = \" _\r\n & lngVereinszugehoerigkeitID, dbFailOnError\r\n Me!lstVereinszugehoerigkeiten.Requery\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> (\"''''\" & strEintritt & \"'''' ist kein gültiges Eintrittsdatum.\")\r\n Exit Sub<\/span>\r\n End If8\r\n Else<\/span>\r\n MsgBox<\/span> (\"Das Eintrittsdatum kann nicht geleert werden.\")\r\n Exit Sub<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Vorbelegung](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_006.png\")
<\/p>\nLöschen eines bestehenden Zeitraums<\/h2>\n
Private Sub <\/span>cmdVereinszugehoerigkeitLoeschen_Click()\r\n Dim <\/span>strEintritt As String<\/span>\r\n Dim <\/span>strAustritt As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n If <\/span>Not<\/span> IsNull(Me!lstVereinszugehoerigkeiten) Then<\/span>\r\n strEintritt = Nz(Me!lstVereinszugehoerigkeiten.Column(1), \"\")\r\n strAustritt = Nz(Me!lstVereinszugehoerigkeiten.Column(2), \"\")\r\n If <\/span>Len<\/span>(strAustritt) > 0 Then<\/span>\r\n strAustritt = \" bis \" & strAustritt\r\n End If<\/span>\r\n If MsgBox<\/span>(\"Vereinszugehörigkeit vom \" & strEintritt & strAustritt & \" wirklich löschen\", vbOKCancel, _\r\n \"Löschbestätigung\") = vbOK Then\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblVereinszugehoerigkeiten WHERE VereinszugehoerigkeitID = \" _\r\n & Me!lstVereinszugehoerigkeiten.Column(0), dbFailOnError\r\n Me!lstVereinszugehoerigkeiten.Requery\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Kein Listeneintrag markiert.\", vbOKOnly, \"Fehlende Auswahl\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nstrAustritt = \" bis \" & strAustritt<\/pre>\n
![\"Löschen](\"..\/fileadmin\/_temp_\/2018_03\/pic_1131_007.png\")
<\/p>\nSich überschneidende Zeiträume<\/h2>\n
Public Function <\/span>AufUeberschneidungenPruefen(datEintritt As Date<\/span>, datAustritt As Date<\/span>, lngMitgliedID As Long<\/span>, _\r\n Optional<\/span> lngVereinszugehoerigkeitID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database, rst As <\/span>DAO.Recordset\r\n Dim <\/span>strSQL As String<\/span>, bolUeberschneidung As Boolean<\/span>, strAustritt As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>lngVereinszugehoerigkeitID = 0 Then<\/span>\r\n strSQL = \"SELECT * FROM tblVereinszugehoerigkeiten WHERE MitgliedID = \" & lngMitgliedID\r\n Else<\/span>\r\n strSQL = \"Select * FROM tblVereinszugehoerigkeiten WHERE MitgliedID = \" & lngMitgliedID _\r\n & \" AND NOT VereinszugehoerigkeitID = \" & lngVereinszugehoerigkeitID\r\n End If<\/span>\r\n Set<\/span> rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>datEintritt <= rst!Eintrittsdatum Then<\/span>\r\n If <\/span>datAustritt <= rst!Eintrittsdatum Then<\/span>\r\n bolUeberschneidung = False<\/span>\r\n Else<\/span>\r\n bolUeberschneidung = True<\/span>\r\n Exit Do<\/span>\r\n End If<\/span>\r\n Else<\/span>If datEintritt >= rst!Austrittsdatum Then\r\n bolUeberschneidung = False<\/span>\r\n Else<\/span>\r\n bolUeberschneidung = True<\/span>\r\n Exit Do<\/span>\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>bolUeberschneidung = True<\/span> Then<\/span>\r\n If <\/span>datAustritt = 0 Then<\/span>\r\n strAustritt = \"-(Ende offen)\"\r\n Else<\/span>\r\n strAustritt = \"-\" & datAustritt\r\n End If<\/span>\r\n MsgBox<\/span> \"Der Zeitraum \" & datEintritt & strAustritt & \" überschneidet sich mit dem Zeitraum \" _\r\n & rst!Eintrittsdatum & \"-\" & rst!Austrittsdatum & \".\"\r\n AufUeberschneidungenPruefen = False<\/span>\r\n Else<\/span>\r\n AufUeberschneidungenPruefen = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nPrüfung auf überschneidungen aufrufen<\/h2>\n