<\/p>\n
In den Beiträgen „Vereinsverwaltung: Von Excel zum Datenmodell“ und „Vereinsverwaltung: Migration“ haben wir uns um die Erstellung eines Datenmodells und die Migration bestehender Beispieldaten aus einer Excel-Tabelle gekümmert. Für die Bearbeitung der Daten aus den so erstellten und gefüllten Tabellen wollen wir nun eine Benutzeroberfläche programmieren. Der vorliegende Beitrag zeigt, wie wir die Formulare gestalten.<\/b><\/p>\nAusgangsposition<\/h2>\n
In den beiden vorhergehenden Teilen dieser Beitragsreihe, nämlich Vereinsverwaltung: Von Excel zum Datenmodell <\/b>(www.access-im-unternehmen.de\/1106<\/b>) und Vereinsverwaltung: Migration <\/b>(www.access-im-unternehmen.de\/1107<\/b>) haben wir exemplarisch gezeigt, wie wir aus den vorliegenden Daten und Anforderungen ein Datenmodell für eine Vereinsverwaltung erstellen. Das Ergebnis finden Sie in Bild 1. Der Kern des Datenmodells ist die Tabelle tblMitglieder<\/b>, um die herum wir eine Menge weiterer Tabellen angelegt haben. Diese dienen entweder als Lookup-Tabellen für die Fremdschlüsselfelder der Tabelle tblMitglieder <\/b>oder nehmen andere Daten auf – zum Beispiel die Dauer der Vereinszugehörigkeit (tblVereinszugehoerigkeiten<\/b>), die Altersklassen oder die Zusammenfassung von mehreren Mitgliedern zu einer Familie (tblFamilienmitglieder<\/b>).<\/p>\n
![\"Datenmodell](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_001.png\")
<\/p>\n
Bild 1: Datenmodell der Vereinsverwaltung<\/span><\/b><\/p>\n Wir wollen ganz einfach mit einem Detailformular für die Tabelle tblMitglieder <\/b>starten. Bevor wir damit beginnen, wollen wir noch die Feldbeschriftungen für die einzelnen Felder anpassen. Wenn wir nämlich die Felder einer Tabelle nach dem Zuweisen der Tabelle an die Eigenschaft Datenherkunft des Formulars aus der Feldliste in den Formularentwurf ziehen wollen, trägt Access immer den Feldnamen in das automatisch angelegte Bezeichnungsfeld ein. Das heißt, dass für die Anrede beispielsweise der Feldname AnredeID <\/b>als Bezeichnungsfeld verwendet wird. Damit wir nicht immer die Bezeichnungsfelder anpassen müssen, stellen wir gleich den gewünschten Feldnamen in der Tabellendefinition ein, und zwar wie in Bild 2. Hier legen wir beispielsweise den Wert Anrede <\/b>für die Eigenschaft Beschriftung <\/b>fest. Auf die gleiche Weise gehen wir mit den folgenden Feldern vor:<\/p>\n Bild 2: Anpassen der Feldbeschriftungen<\/span><\/b><\/p>\n Damit Access beim Hinzufügen der Felder aus der Feldliste in den Detailbereich des Formulars nicht nur die passenden Beschriftungen für die Bezeichnungsfelder einträgt, sondern diese auch noch um einen Doppelpunkt ergänzt, müssen Sie gegebenenfalls noch einmal Hand anlegen. öffnen Sie dazu ein neues, leeres Formular und klicken Sie auf die Schaltfläche zum Hinzufügen eines neuen Textfeldes (nur anklicken, noch nicht einfügen!). Das Eigenschaftenblatt zeigt nun auf der Registerseite Format<\/b> fast ganz unten die Eigenschaft Mit Doppelpunkt <\/b>an. Diese stellen Sie auf den Wert Ja <\/b>ein (siehe Bild 3).<\/p>\n Bild 3: Aktivieren der Doppelpunkte für Beschriftungen<\/span><\/b><\/p>\n Speichern Sie das Formular nun unter dem Namen Normal<\/b>. Prüfen Sie dann, ob in den Access-Optionen wie in Bild 4 diese Bezeichnung für die Eigenschaft Formularvorlage <\/b>festgelegt ist. Wenn Sie nun neue Formulare anlegen, berücksichtigen diese die Einstellungen, die wir hier für den Steuerelementtyp Textfeld <\/b>vorgenommen haben.<\/p>\n Bild 4: Bezeichnungen der Vorlagen für Formulare und Berichte<\/span><\/b><\/p>\n Nun legen wir ein neues, leeres Formular an und stellen seine Eigenschaft Datenherkunft <\/b>auf die Tabelle tblMitglieder <\/b>ein. Speichern Sie das Formular vorsichtshalber gleich unter dem Namen frmMitglieddetails<\/b>. Nun aktivieren Sie die Feldliste mit dem Ribbon-Befehl Entwurf|Tools|Vorhandene Felder hinzufügen<\/b>. Markieren Sie alle Einträge des Fensters Feldliste <\/b>und ziehen Sie diese in den Detailbereich des Formularentwurfs (siehe Bild 5).<\/p>\n Bild 5: Hinzufügen der Felder zum Formular frmMitglieddetails<\/span><\/b><\/p>\n Hier tragen unsere Vorbereitungen nun Früchte: Sowohl die Beschriftungen der Bezeichnungsfelder entsprechen den von uns angegebenen Werten als auch die Doppelpunkte wurden wir gewünscht hinzugefügt.<\/p>\n Bevor wir die bisher hinzugefügten Steuer-elemente in sinnvollen Gruppen anordnen, schauen wir uns noch an, welche Daten aus den anderen Tabellen wir noch benötigen:<\/p>\n Bei den Daten der Tabellen tblFamilienmitglieder<\/b>, tblVereinszugehoerigkeiten <\/b>und tblMitgliederMannschaften <\/b>können wir festlegen, auf welche Art wir die Daten anzeigen wollen. Wir wollen in dieser Beispiellösung ein paar verschiedene Ansätze demonstrieren, aber die Ergonomie soll auch nicht zu kurz kommen. Schauen wir uns die Tabellen im Detail an.<\/p>\n Die Vereinszugehörigkeiten sind die einfachste Darstellung. Es handelt sich ja einfach nur um eine 1:n-Beziehung, wobei jedes Mitglied eine oder mehrere Vereinszugehörigkeiten aufweisen kann. Da es vermutlich nicht allzuoft geschieht, dass ein Mitglied den Verein verlässt und dann zurückkehrt, wollen wir diese Daten in einem Listenfeld anzeigen, dessen Einträge wir über einen Doppelklick bearbeiten können beziehungsweise durch entsprechende Schaltflächen neue Vereinszugehörigkeiten anlegen oder löschen können.<\/p>\n An dieser Stelle fällt auf, dass wir die Eintritts- und Austrittsdaten noch gar nicht aus der Excel-Tabelle in das neue Datenmodell übernommen haben. Das holen wir nun noch nach. Dabei unterstützt uns die Funktion Eintrittsdatum <\/b>aus Listing 1. Diese öffnet zunächst ein Recordset auf Basis der Tabelle mit den aus der Excel-Datei importierten Mitgliedsdaten namens Mitglieder<\/b>. In einer Do While<\/b>-Schleife durchläuft sie alle Datensätze dieser Tabelle und ermittelt dabei zunächst den Wert des Primärschlüsselfeldes MitgliedID <\/b>der Tabelle tblMitglieder<\/b>, unter der das Mitglied importiert wurde. Um den entsprechenden Datensatz zu ermitteln, nutzen wir die DLookup<\/b>-Funktion und suchen in der Tabelle tblMitglieder<\/b> nach dem Datensatz, in dessen Feld Mitgliedsnummer <\/b>der Wert gespeichert ist, den wir in der Excel-Datei in der Spalte Mitgl-Nr <\/b>finden. Wenn wider Erwarten kein passender Datensatz gefunden wird, erhält lngMitgliedID <\/b>den Wert 0 <\/b>und die Anweisungen innerhalb der folgenden If…Then<\/b>-Bedingung werden nicht ausgeführt. Stattdessen gibt die Routine eine entsprechende Meldung im Direktbereich des VBA-Editors aus.<\/p>\n <\/p>\n Listing 1: Prozedur zum Ermitteln der Eintritts- und Austrittsdaten<\/span><\/b><\/p>\n Wurde das Mitglied jedoch gefunden, ermittelt die Prozedur den Wert der Spalte Eintrittsdatum <\/b>und speichert diesen in der Variablen datEintrittsdatum<\/b>. Während diese Spalte konsistent mit Datumswerten gefüllt war, müssen wir das eventuell vorhandene Austrittsdatum mühsam aus der Spalte Bemerkungen <\/b>ermitteln. Dazu schreiben wir den Inhalt dieser Spalte in die Variable strAustritt<\/b>. Es gibt in der Excel-Datei zwei Varianten von Austrittsdaten. Hat sich ein Mitglied abgemeldet, findet sich ein Eintrag wie „1.1.2018 abg.“, wenn ein Mitglied verstorben ist, ein Eintrag wie „am 1.1.2018 gest.“.<\/p>\n Wir bearbeiten beide Fälle in jeweils einer If…Then<\/b>-Bedingung. Die erste prüft, ob strAustritt <\/b>die Zeichenfolge abg.<\/b> enthält. Falls ja, ersetzen wir mit der Replace<\/b>-Methode die Zeichenfolge abg. <\/b>durch eine leere Zeichenfolge und speichern das Ergebnis wieder in strAustritt<\/b>. Anschließend entfernen wir alle führenden und folgenden Leerzeichen mit der Trim<\/b>-Funktion. Die folgende If…Then<\/b>-Bedingung prüft mit der IsDate<\/b>-Funktion, ob strAustritt <\/b>nun ein gültiges Datum enthält. Falls ja, landet dieser Wert nach Konvertierung mit CDate <\/b>in der Variablen datAustritt<\/b>, falls nicht, erscheint wieder eine entsprechende Meldung im VBA-Direktbereich.<\/p>\n Auf ähnliche Weise kümmern wir uns dann um verstorbene Mitglieder. Hier ersetzen wir allerdings die beiden Zeichenketten gest. <\/b>und am <\/b>durch leere Zeichenketten und verarbeiten die verbleibende Zeichenkette wie zuvor beschrieben.<\/p>\n Anschließend folgen je nach Inhalt von datAustritt <\/b>zwei verschiedene SQL-Anfügeabfragen. Enthält die Variable datAustritt <\/b>einen Wert größer 0<\/b>, was einem gültigen Datum entspricht, dann führen wir die erste INSERT INTO<\/b>-Abfrage aus. Diese legt einen neuen Datensatz in der Tabelle tblVereinszugehoerigkeiten <\/b>an und trägt die ermittelten Werte für die Felder MitgliedID<\/b>, Eintrittsdatum <\/b>und Austrittsdatum <\/b>ein. Sollte datAustritt <\/b>keinen Wert enthalten, soll das Feld Austrittsdatum <\/b>leer bleiben – in diesem Fall verwenden wir die INSERT INTO<\/b>-Anweisung aus dem Else<\/b>-Teil der Bedingung und tragen nur die beiden Werte MitgliedID <\/b>und Eintrittsdatum <\/b>in die Tabelle ein. Das Ergebnis in der Tabelle tblVereinszugehoerigkeiten<\/b> sieht dann wie in Bild 6 aus.<\/p>\n Bild 6: Vereinszugehörigkeiten nach dem Import<\/span><\/b><\/p>\n Damit können wir nun das Listenfeld namens lstVereinszugehoerigkeiten <\/b>zum Formular frmMitglieder <\/b>hinzufügen, mit dem wir die Vereinszugehörigkeiten dokumentieren wollen. Diese platzieren wir zunächst an einer beliebigen freien Stelle im Formular, das Finetuning nehmen wir später vor. Außerdem fügen wir zwei Schaltflächen namens cmdNeueVereinszugehoerigkeit <\/b>und cmdVereinszugehoerigkeitLoeschen <\/b>hinzu.<\/p>\n Damit diese nicht allzu viel Platz wegnehmen, erhalten sie keinen Text, sondern Icons. Diese wiesen wir etwa unter Access 2016 zu, indem wir in der Entwurfsansicht des Formulars die Schaltfläche markieren, im Ribbon den Befehl Entwurf|Steuerelemente|Bild einfügen|Durchsuchen… <\/b>anklicken und das gewünschte Bild auswählen. Das fällt natürlich leichter, wenn Sie eine Icon-Sammlung besitzen.<\/p>\n Nach dem Zuweisen eines Icons stellen Sie noch die Eigenschaft Hintergrundart <\/b>auf Transparent <\/b>ein. Außerdem passen Sie die Größe der Schaltflächen noch so an, dass diese etwa der Größe des Icons entspricht. Das Formular sieht im Entwurf dann etwa wie in Bild 7 aus.<\/p>\n Bild 7: Listenfeld für die Vereinszugehörigkeiten plus Schaltflächen<\/span><\/b><\/p>\n Nun fehlen noch die Funktionen. Wir wollen das Bearbeiten der aktuellen Vereinszugehörigkeit über einen Doppelklick auf den entsprechenden Eintrag ermöglichen, also legen wir den Wert [Ereignisprozedur] <\/b>für die Eigenschaft Beim Doppelklicken <\/b>des Listenfeldes fest.<\/p>\n Für die beiden Schaltflächen erstellen wir jeweils Ereignisprozeduren für das Ereignis Beim Klicken<\/b>. Wie aber bearbeiten wir die Eintritts- und Austrittsdaten Zeigen wir den aktuellen Datensatz in einem eigenen Formular an<\/p>\n Nein, wir machen es uns ein wenig leichter und lassen den Benutzer die einzigen beiden gefragten Werte per InputBox <\/b>eingeben. Die Details hierzu finden Sie im Beitrag Zeiträume per Listenfeld und InputBox <\/b>(www.access-im-unternehmen.de\/1131<\/b>).<\/p>\n Die Zuordnung von Mitgliedern zu Mannschaften ist eine wichtige Funktion, um einen überblick darüber zu erhalten, wie viele Spieler man pro Mannschaft zur Verfügung hat und ob man gegebenenfalls eine zweite Mannschaft aufstellen kann.<\/p>\n Für unser Beispiel haben wir in der Tabelle tblAltersklassen <\/b>die Altersklassen definiert, die Mitglieder weisen über die Eigenschaften GeschlechtID <\/b>und Geburtsdatum <\/b>die Informationen aus, die für die Zuteilung in eine Altersklasse wichtig sind. Wir bauen uns eine kleine VBA-Prozedur, welche die Tabelle tblMannschaften <\/b>und tblMitgliederMannschaften <\/b>füllt. Dabei soll automatisch erstmal je eine Mannschaft je Altersklasse erstellt werden, danach weisen wir über die Tabelle tblMitgliederMannschaften <\/b>die Mitglieder den Mannschaften zu. Die von den folgenden Ausführungen betroffenen Tabellen finden Sie in Bild 8: tblMitglieder<\/b>, tblMitgliederMannschaften<\/b>, tblMannschaften<\/b>, tblAltersklassen <\/b>und tblGeschlecht<\/b>. Hinzu kommt noch die Tabelle tblOptionen<\/b>, deren Feld Stichtag <\/b>das Datum für die Berechnung des für die aktuelle Spielzeit benötigten Alters liefert.<\/p>\n Bild 8: Tabellen, welche die Zuordnung zu den Mannschaften betreffen<\/span><\/b><\/p>\n Wir haben bereits beim Import der Daten aus der Excel-Tabelle fast alle relevanten Informationen zusammengetragen: das Alter und das Geschlecht der Mitglieder sowie den Status (Aktiv\/Passiv), den Stichtag für die Altersklassen sowie die Festlegung von Altersklassen. Daraus wollen wir nun automatisiert die Mannschaften initial zusammenstellen. Hier muss ohnehin nachgearbeitet werden – in der einen Altersklasse gibt es vielleicht so viele Spieler, dass eine zweite Mannschaft angelegt wird, in der anderen so wenige, dass die Spieler in einer höheren Altersklasse antreten müssen.<\/p>\n Die Prozedur finden Sie im Modul mdlMigration<\/b> und in Listing 2. Sie ermittelt zunächst ein Recordset mit allen Einträgen der Tabelle tblMitglieder<\/b>, deren Feld Aktiv <\/b>den Wert True <\/b>enthält, die also nicht als passive Mitglieder deklariert sind. Außerdem ermitteln wir aus der Tabelle tblOptionen <\/b>den Stichtag, als das Datum, an dem das Alter der Mitglieder in Jahren für die laufende Saison berechnet wird. Die beiden Execute<\/b>-Methoden rufen zwei DELETE<\/b>-Aktionsabfragen auf, welche die beiden Tabellen tblMannschaften <\/b>und tblMitgliederMannschaften <\/b>leeren. Dann beginnen wir mit dem Durchlaufen der Datensätze des Recordsets rst<\/b>. Im ersten Schritt ermitteln wir das aktuelle Alter des Mitglieds basierend auf dem zuvor eingelesenen Stichtag und speichern dieses in der Variablen intAlter<\/b>. Dann ermitteln wir mit einer DLookup<\/b>-Abfrage die Altersklasse gemäß dem Alter und dem Geschlecht des Mitglieds aus der Tabelle tblAltersklassen <\/b>und tragen den entsprechenden Primärschlüsselwert in die Variable lngAltersklasseID <\/b>ein. Dann prüfen wir mit einem weiteren DLookup<\/b>-Aufruf, ob es in der Tabelle tblMannschaften <\/b>bereits einen Datensatz für diese Altersklasse gibt. Falls ja, wird der Primärschlüsselwert des entsprechenden Datensatzes der Tabelle tblMannschaften <\/b>in der Variablen lngMannschaftID <\/b>gespeichert. Ist lngMannschaftID <\/b>danach 0<\/b>, ermitteln wir die Bezeichnung der Altersklasse aus der Tabelle tblAltersklassen <\/b>und speichern diese in der Variablen strAltersklasse<\/b>. Wir legen einen neuen Datensatz in der Tabelle tblMannschaften <\/b>mit der Bezeichnung aus strAltersklasse <\/b>und dem Primärschlüsselwert dieser Altersklasse an und ermitteln danach den Wert des Primärschlüsselfeldes des neuen Datensatzes der Tabelle tblMannschaften<\/b>. Dieser landet in der Variablen lngMannschaftID<\/b>.<\/p>\n Listing 2: Prozedur zum Zuordnung der Mitglieder zu den Mannschaften<\/span><\/b><\/p>\n Mit diesen Informationen können wir nun endlich den Eintrag in der Tabelle tblMitgliederMannschaften <\/b>vornehmen, der die Zuordnung der Mitglieder zu den Mannschaften enthält. Die beiden Tabellen tblMannschaften <\/b>und tblMitgliederMannschaften<\/b> enthalten nun die Daten wie in Bild 9.<\/p>\nVorbereiten der Feldbeschriftungen<\/h2>\n
![\"Anpassen](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_002.png\")
<\/p>\n\n
Doppelpunkt aktivieren<\/h2>\n
![\"Aktivieren](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_003.png\")
<\/p>\n![\"Bezeichnungen](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_004.png\")
<\/p>\nFormular für die Mitglieder anlegen<\/h2>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_005.png\")
<\/p>\nDaten aus weiteren Tabellen hinzufügen<\/h2>\n
\n
Bearbeiten der Vereinszugehörigkeiten<\/h2>\n
Public Function <\/span>Eintrittsdatum()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngMitgliedID As Long<\/span>\r\n Dim <\/span>datEintritt As Date<\/span>, datAustritt As Date<\/span>\r\n Dim <\/span>strAustritt As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM Mitglieder\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n lngMitgliedID = Nz(DLookup(\"MitgliedID\", \"tblMitglieder\", \"Mitgliedsnummer = ''''\" & rst![Mitgl-Nr] & \"''''\"), 0)\r\n If <\/span>Not<\/span> lngMitgliedID = 0 Then<\/span>\r\n datEintritt = rst!Eintrittsdatum\r\n strAustritt = Nz(rst!Bemerkung, \"\")\r\n datAustritt = 0\r\n If <\/span>InStr<\/span>(1, strAustritt, \"abg.\") > 0 Then<\/span>\r\n strAustritt = Replace<\/span>(strAustritt, \"abg.\", \"\")\r\n strAustritt = Trim<\/span>(strAustritt)\r\n If <\/span>IsDate(strAustritt) Then<\/span>\r\n datAustritt = CDate(strAustritt)\r\n Else<\/span>\r\n Debug.Print<\/span> \"Austrittsdatum aus ''''\" & rst!Bemerkung & \"'''' konnte nicht ermittelt werden.\"\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>InStr<\/span>(1, strAustritt, \"gest.\") > 0 Then<\/span>\r\n strAustritt = Replace<\/span>(strAustritt, \"gest.\", \"\")\r\n strAustritt = Replace<\/span>(strAustritt, \"am\", \"\")\r\n strAustritt = Trim<\/span>(strAustritt)\r\n If <\/span>IsDate(strAustritt) Then<\/span>\r\n datAustritt = CDate(strAustritt)\r\n Else<\/span>\r\n Debug.Print<\/span> \"Austrittsdatum aus ''''\" & rst!Bemerkung & \"'''' konnte nicht ermittelt werden.\"\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>datAustritt > 0 Then<\/span>\r\n db.Execute \"INSERT INTO tblVereinszugehoerigkeiten(MitgliedID, Eintrittsdatum, Austrittsdatum) \" _\r\n & \"VALUES(\" & lngMitgliedID & \", \" & SQLDatum(datEintritt) & \", \" & SQLDatum(datAustritt) & \")\", _\r\n dbFailOnError\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblVereinszugehoerigkeiten(MitgliedID, Eintrittsdatum) VALUES(\" _\r\n & lngMitgliedID & \", \" & SQLDatum(datEintritt) & \")\", dbFailOnError\r\n End If<\/span>\r\n Else<\/span>\r\n Debug.Print<\/span> \"Mitglied mit Mitgliedsnummer ''''\" & rst![Mitgl-Nr] & \"'''' nicht gefunden.\"\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Function<\/span><\/pre>\n![\"Vereinszugehörigkeiten](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_006.png\")
<\/p>\nListenfeld für die Vereinszugehörigkeiten<\/h2>\n
![\"Listenfeld](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_007.png\")
<\/p>\nBearbeiten der Zuordnung zu den Mannschaften<\/h2>\n
![\"Tabellen,](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_008.png\")
<\/p>\nInitiale Zusammenstellung der Mannschaften<\/h2>\n
Public Sub <\/span>Mannschaften()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngAltersklasseID As Long<\/span>, intAlter As Integer<\/span>\r\n Dim <\/span>datStichtag As Date<\/span>, lngMannschaftID As Long<\/span>\r\n Dim <\/span>strAltersklasse As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblMitglieder WHERE Aktiv = True\", dbOpenDynaset)\r\n datStichtag = DLookup(\"Stichtag\", \"tblOptionen\")\r\n db.Execute \"DELETE FROM tblMitgliederMannschaften\", dbFailOnError\r\n db.Execute \"DELETE FROM tblMannschaften\", dbFailOnError\r\n Do While<\/span> Not<\/span> rst.EOF\r\n intAlter = DateDiff(\"yyyy\", rst!Geburtsdatum, datStichtag)\r\n lngAltersklasseID = DLookup(\"AltersklasseID\", \"tblAltersklassen\", \"GeschlechtID = \" & rst!GeschlechtID _\r\n & \" AND Mindestalter <= \" & intAlter & \" AND Hoechstalter >= \" & intAlter)\r\n lngMannschaftID = Nz(DLookup(\"MannschaftID\", \"tblMannschaften\", \"AltersklasseID = \" & lngAltersklasseID), 0)\r\n If <\/span>lngMannschaftID = 0 Then<\/span>\r\n strAltersklasse = DLookup(\"Altersklasse\", \"tblAltersklassen\", \"AltersklasseID = \" & lngAltersklasseID)\r\n db.Execute \"INSERT INTO tblMannschaften(Mannschaft, AltersklasseID) VALUES(''''\" & strAltersklasse & \"'''', \" _\r\n & lngAltersklasseID & \")\", dbFailOnError\r\n lngMannschaftID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n End If<\/span>\r\n db.Execute \"INSERT INTO tblMitgliederMannschaften(MitgliedID, MannschaftID) VALUES(\" & rst!MitgliedID & \", \" _\r\n & lngMannschaftID & \")\", dbFailOnError\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Mannschaften](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_009.png\")
<\/p>\n
![\"Mannschaften](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_010.png\")
<\/p>\n![\"Mannschaften](\"..\/fileadmin\/_temp_\/2018_03\/pic_1134_011.png\")
<\/p>\n