<\/p>\n
Im Beitrag „Vereinsverwaltung: Von Excel zum Datenmodell“ haben wir gezeigt, wie Sie eine exemplarische Excel-Tabelle mit den Daten zur Mitgliedsverwaltung in ein -Access-Datenmodell umwandeln. Dabei haben wir die Daten der Excel-Datei bereits in der Datenbank verfügbar gemacht. Neben der damit verbundenen konzeptionellen Arbeit kommt nun der interessante Teil: die Programmierung von VBA-Code und Abfragen, um die Daten aus der monolithischen Excel-Tabelle in das Datenmodell zu übertragen.<\/b><\/p>\n
Dabei haben wir einige Brocken bereits aus dem Weg geräumt: Die Excel-Tabelle enthielt nämlich beispielsweise nicht nur reine Daten in Form von Zahlen und Buchstaben, sondern auch verschiedene Markierungen in Form von verschiedenen Hintergrundfarben, fett gedrucktem Text oder farbigem Text. Diese haben wir bereits in der Excel-Tabelle in entsprechende Werte umgewandelt, die wie allerdings auf den folgenden Seiten noch interpretieren müssen.<\/p>\n
Die Basis der beiden Tabellen, also der Ausgangstabelle im Excel-Format als auch der Zieltabellen ist eine Tabelle zum Speichern der Personen, hier von Mitgliedern eines Sportvereins. Damit können wir auch beginnen. Die Tabelle Mitglieder enthält alle Daten, welche die Excel-Tabelle uns bereitgestellt hat. Daraus suchen wir uns nun die Felder heraus, die in die von uns entworfenen Tabelle tblMitglieder <\/b>passen.<\/p>\n
Der Automatismus zum Migrieren der Daten besteht aus ein paar Abfrage, welche uns die Daten in der gewünschten Form extrahieren, sowie einer VBA-Prozedur im Modul mdlMigration<\/b>. Diese heißt Migrieren <\/b>und steuert die Migration der Daten aus der Excel-Tabelle in die Tabellen unseres Datenmodells.<\/p>\n
Für die übernahme der Daten aus der Tabelle Mitglieder <\/b>in die Tabelle tblMitglieder <\/b>erstellen wir eine Abfrage auf Basis der Tabelle Mitglieder<\/b>. Dieser fügen wir also nach dem Erstellen zunächst die Tabelle Mitglieder <\/b>aus dem Dialog Tabellen anzeigen <\/b>hinzu – mit dem Ergebnis aus Bild 1.<\/p>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_001.png\")
<\/p>\n
Bild 1: Anlegen einer Abfrage zum übernehmen der Stammdaten<\/span><\/b><\/p>\n Wir wollen aus dieser Abfrage eine Anfügeabfrage machen, welche Daten aus der Tabelle Mitglieder <\/b>an die Tabelle tblMitglieder <\/b>anfügt. Dazu wählen Sie aus dem Ribbon den Befehl Entwurf|Abfragetyp|Anfügen <\/b>aus.<\/p>\n Dies öffnet den Dialog Anfügen<\/b>, mit dem Sie die Tabelle tblMitglieder <\/b>als Zieltabelle festlegen (s. Bild 2).<\/p>\n Bild 2: Angabe der Zieltabelle<\/span><\/b><\/p>\n Danach können Sie die Felder der Quelltabelle aus der Liste im oberen Bereich in das Entwurfsraster ziehen oder per Doppelklick dorthin befördern. Sofern Access automatisch ein gleichnamiges Feld in der Zieltabelle erkennt, fügt es direkt einen entsprechenden Eintrag in die Zeile Anfügename<\/b> ein. Sollte dies nicht automatisch funktionieren, was etwa beim Feld Geb.-Datum<\/b> der Fall ist, wählen Sie das Zielfeld selbst aus – in diesem Fall Geburtsdatum <\/b>(s. Bild 3).<\/p>\n Bild 3: Auswahl der Zielfelder<\/span><\/b><\/p>\n Nun gibt es beim Feld PLZ<\/b> das erste Hindernis: Wir haben ja schon beim Import der Tabelle gesehen, dass Access das zunächst vorgesehene Zahlenfeld nicht komplett füllen konnte, da einige Datensätze einen zusätzlichen Buchstaben enthielten – nämlich den führenden Ländercode etwa in CH-8005<\/b>. Genau genommen liefert das Feld PLZ <\/b>für die Schweizer Mitglieder das Länderkürzel, die Postleitzahl und auch noch den Ort – warum auch immer der Ersteller das so gemacht hat: Die Daten gehören natürlich auf drei Felder aufgeteilt. Also ändern wir den Ausdruck für das Feld PLZ <\/b>ein wenig um:<\/p>\n Dieser Ausdruck ersetzt zunächst im Feld Postlz <\/b>die Zeichenfolge CH- <\/b>durch eine leere Zeichenfolge. Aus CH-8005 Zürich <\/b>wird dann schon einmal 8005 Zürich<\/b>. Wie erhalten wir davon nur die führenden Ziffern Ganz einfach – mit der Wert<\/b>-Funktion (unter VBA Val<\/b>).<\/p>\n Der Ort könnte so einfach sein, wenn dieser nicht für die oben genannten Fälle komplett in der Zeile Postlz <\/b>stehen würde und für alle anderen in der Spalte Ort<\/b>. Doch mit ein wenig Geschick erhalten wir die gewünschten Werte. Dazu legen wir für das Feld Ort <\/b>einen neuen Ausdruck namens OrtX <\/b>an (damit es keinen Zirkelbezug gibt) und füllen diesen mit der folgenden Formel:<\/p>\n Hier finden wir eine Wenn<\/b>-Bedingung, die im ersten Abschnitt prüft, ob Ort den Wert Null <\/b>enthält. In diesem Fall ermitteln wir aus dem Feld Postlz <\/b>den Teil hinter dem letzten gefundenen Leerzeichen – bei CH-8005 Zürich <\/b>liefert dies also Zürich<\/b>. Ist das Feld Ort <\/b>nicht leer, liefern wir einfach den Wert dieses Feldes zurück.<\/p>\n Komplizierter wird es mit dem Land, denn da wir ja nun die Länderkennzeichen aus der Postleitzahl entfernen wollen, soll das Land in das Feld Land<\/b> eingetragen werden. Das ist auch interessant, weil wir in der Ursprungstabelle überhaupt kein Feld haben, welches das Land angibt. Wir gehen aber davon aus, dass alle Datensätze, die nicht das Länderkürzel CH <\/b>in der Postleitzahl tragen, Deutschland als Land aufweisen. Also verwenden wir den folgenden Ausdruck:<\/p>\n Hier haben wir es mit ein paar Verschachtelungen zu tun. Die innere Wenn<\/b>-Bedingung liefert das Länderkürzel, wenn Postlz <\/b>ein Minuszeichen enthält, wenn kein Minuszeichen vorliegt, folgt DE <\/b>als Länderkennzeichen.<\/p>\n Die äußere Wenn<\/b>-Bedingung liefert das Land Schweiz<\/b>, wenn das von der inneren Bedingung gelieferte Kürzel CH <\/b>lautet, sonst Deutschland<\/b>. Das ist zugegebenermaßen improvisiert und wird kompliziert, wenn es mehr solcher Sonderfälle gibt.<\/p>\n An einer solchen Stelle muss man dann entscheiden, ob man doch manuell die fehlerhaften Datensätze anpasst oder gegebenenfalls eine VBA-Routine baut, die etwas übersichtlicher daherkommt.<\/p>\n Diese könnte etwa wie folgt aussehen:<\/p>\n In der Abfrage greifen Sie wie folgt auf diese Funktion zu:<\/p>\n Die Funktion erhält den Wert für das Feld Postlz <\/b>als Parameterwert. Sie ermittelt dann die Position des ersten Minuszeichens und speichert diese in der Variablen intPosStrich<\/b>.<\/p>\n Ist kein Minuszeichen vorhanden, erhält die Variable den Wert 0<\/b>. In diesem Fall liefert die Funktion Deutschland<\/b> zurück. Anderenfalls liest sie das Länderkürzel aus und weist in einer Select Case<\/b>-Bedingung die Bezeichnung des entsprechenden Landes zu.<\/p>\n Für den Fall, dass mehrere Länder hinzukommen, stellen wir auch die Ermittlung von PLZ <\/b>und Ort <\/b>noch auf VBA um. Für die PLZ sieht die Funktion wie folgt aus:<\/p>\n <\/p>\n Die Funktion nimmt den Werte des Feldes Postlz <\/b>entgegen und ermittelt die Position des Minuszeichens. Wenn der so ermittelte Wert größer als 0 ist, ist ein Minuszeichen vorhanden. In diesem Fall entfernt die Funktion zuerst den Teil vor dem Minuszeichen inklusive Minuszeichen.<\/p>\n Im zweiten Schritt ermittelt sie mit der Val<\/b>-Funktion alle Ziffern bis zum ersten Zeichen, das keine Ziffer ist, und gibt das Ergebnis zurück. Sollte der Parameter strPLZ <\/b>eine einfache PLZ liefern, wird diese als Funktionsergebnis zurückgegeben.<\/p>\n Der Ausdruck im Feld der Abfrage lautet:<\/p>\n Den Ort ermitteln wir, indem wir die PLZ und den Ort untersuchen und diese Felder auch als Parameter übergeben. Das ist problemlos möglich, wie der folgende Ausdruck für das Feld OrtX <\/b>zeigt (X <\/b>angefügt, um keinen Zirkelbezug zu erzeugen):<\/p>\n Die Funktion nimmt diese beiden Parameter wie folgt entgegen:<\/p>\n Dabei prüft sie wieder, an welcher Position sich gegebenenfalls das Minuszeichen befindet. Falls eines vorhanden ist, ermittelt die Funktion als Nächstes, wo sich die hinterste Leerstelle befindet.<\/p>\n Ist eine vorhanden, wie in CH-8005 Zürich<\/b>, erhält die Variable intLeerzeichen <\/b>einen Wert ungleich 0 <\/b>und der Teil hinter dem letzten Leerzeichen wird in der Variablen strOrt <\/b>gespeichert. Dieser Wert wird dann als Rückgabewert zurückgeliefert. Wenn kein Minuszeichen gefunden wird, liefert die Funktion den Inhalt des Parameters strOrt <\/b>zurück.<\/p>\n Ob es sich um ein aktives oder passives Mitglied handelt, finden wir über das Feld Ak\/Pa <\/b>der Originaltabelle heraus. In den Originaldaten finden wir dabei redundante Daten, denn diese enthält sowohl die Altersklasse als auch das Alter des Mitglieds.<\/p>\n Die Altersklasse soll aber aus dem Geburtsdatum und dem Stichtag für das aktuelle Jahr ermittelt werden. Also entnehmen wir diesem Feld nur die Angabe, ob es sich um ein aktives oder passives Mitglied handelt. Dafür legen wir direkt eine passende VBA-Routine an:<\/p>\n Der Ausdruck für das Feld lautet:<\/p>\n Aus dem Feld Ak\/Pa<\/b> können wir auch das Geschlecht des Mitglieds ermitteln. Wie im Beitrag Vereinsverwaltung: Von Excel zum Datenmodell <\/b>(www.access-im-unternehmen.de\/1106<\/b>) erwähnt, weisen jeweils die Buchstaben M <\/b>und W <\/b>auf das Geschlecht hin – etwa wie in EPM <\/b>(Erwachsene Passiv Männlich<\/b>) oder WJ <\/b>(Weibliche Jugend<\/b>).<\/p>\n Es gibt zwar hier ein paar Inkonsistenzen bezüglich der Anordnung der Buchstaben (zum Beispiel kommen WJP <\/b>oder WPJ <\/b>vor), aber hier geht es uns zunächst darum, dass immer einer der Buchstaben W <\/b>oder M <\/b>enthalten sind. Die passende VBA-Funktion sieht so aus:<\/p>\n Der Ausdruck in der Abfrage qryMitgliederMigrieren <\/b>lautet wie folgt:<\/p>\n Die Funktion liefert hier den entsprechenden Fremdschlüsselwert für den passenden Datensatz der Tabelle tblGeschlechter <\/b>zurück.<\/p>\n Aus diesem Feld können wir dann auch die Anreden ermitteln. Der Feldausdruck lautet:<\/p>\n Die Funktion sieht so aus:<\/p>\n Bei den Beiträgen und den Rabattklassen wird es interessant. Hierzu finden wir im Feld Bemerkungen <\/b>der Tabelle Mitglieder <\/b>Werte wie die folgenden:<\/p>\n Das Feld Beitrag \/ € <\/b>enthält dann den tatsächlichen Beitrag inklusive Abzug durch die Rabattklasse.<\/p>\n Wir müssen nun zunächst die Tabelle tblBeitragsklassen <\/b>mit den Bezeichnungen, Altersangaben, Aktiv\/Passiv und dem Beitrag füllen. Wollen wir das automatisch\/per Abfrage erledigen lassen oder manuell durchführen Wir erledigen dies diesmal manuell, da es wohl mehr Zeit kostet, einen entsprechenden Algorithmus zu programmieren als die Datensätze selbst in die Tabelle einzutragen.<\/p>\n Es kommt noch hinzu, dass für die verschiedenen Altersklassen angegebenen Beiträge nicht konsistent sind. Eine Rückfrage beim Auftraggeber ergab dann, dass es zum Beispiel auch Studentenbeiträge gibt. Allerdings war aus der Mitglieder-Tabelle nicht ersichtlich, ob ein Mitglied ein Student ist oder nicht. Diese nachträgliche Information könnte nun auch das Datenmodell etwas durcheinanderwerfen, denn wir wollen ja nur über die Eigenschaften der Tabelle tblMitglieder <\/b>und die Werte der Tabelle tblBeitragsklassen <\/b>den Beitrag eines Mitglieds ermitteln.<\/p>\n Also müssen wir wohl noch ein Feld einfügen, mit dem wir angeben, ob es sich bei dem Mitglied um einen Studenten, Schüler oder Auszubildenden handelt. Die Liste der Beiträge, die wir vom Verein erhielten, lieferte noch weitere zusätzliche Informationen: So kann ein Mitglied auch ein so genanntes Elternmitglied sein (also ein Mitglied, das ein Kind im Verein hat).<\/p>\n Jedes weitere Elternmitglied sollte die Hälfte des Beitrags für Elternmitglieder bezahlen. „Jedes weitere Elternmitglied“ Wie viele Eltern hat ein Kind Wir wollen nun nicht auch noch ein Feld einfügen, das festlegt, ob ein Mitglied ein weiteres Elternmitglied ist.<\/p>\n Wie aber wollen wir diesen Sachverhalt abbilden, ohne allzu große änderungen am Datenmodell vorzunehmen Wir fügen einfach ein weiteres Feld namens Elternmitglied <\/b>mit dem Datentyp Ja\/Nein <\/b>zur Tabelle tblMitglieder <\/b>hinzu und berücksichtigen dieses Feld auch in der Tabelle tblBeitragsklassen<\/b>. Wenn wir dann in der Tabelle tblFamilienmitglieder<\/b> die Zuordnung vornehmen, können wir mithilfe eines zusätzlichen Feldes namens Reihenfolge die Reihenfolge einstellen und im Falle mehrerer Familienmitglieder mit dem Attribut Familienmitglied <\/b>festlegen, ob diese 100 oder 50 EUR Beitrag zahlen müssen.<\/p>\n Die Tabelle tblBeitragsklassen <\/b>sieht nach dem manuellen Import wie in Bild 4 aus.<\/p>\n Bild 4: Tabelle mit dem Beitragsklassen<\/span><\/b><\/p>\n Allerdings stellte sich nach einem klärenden Gespräch heraus, dass es wohl sinnvoller ist, nur passive und aktive Erwachsene zu führen sowie die Kinder-Beitragsklassen – die übrigen Klassen sollten über Rabatte abgebildet werden.<\/p>\n Die nächste Aufgabe ist das Importieren der Familienmitglieder beziehungsweise deren Notation in der Tabelle tblFamilienmitglieder<\/b>. Das zugrunde liegende Feld ist das Feld FB<\/b>. Es enthält für alle Mitglieder, die zu einer Familie gehören, einen Eintrag der mit F <\/b>beginnt und die Nummer der Familie enthält – also beispielsweise F1<\/b>, F2 <\/b>oder F31<\/b>.<\/p>\n Wir wollen nun alle entsprechenden Einträge durchlaufen, ermitteln, welcher Beitrag der höchste in einer Familie ist und dieses Mitglied als Familienoberhaupt festlegen.<\/p>\n Die anderen werden dann über die Tabelle tblFamilienmitglieder <\/b>zu diesem Mitglied hinzugefügt. <\/p>\n Dazu erstellen wir eine Abfrage, welche uns die Daten aus der Importtabelle Mitglieder <\/b>und die der Tabelle tblMitglieder <\/b>zusammenführt – und zwar über das Feld Mitgliedsnummer <\/b>beziehungsweise Mitgl-Nr<\/b> (s. Bild 5).<\/p>\n Bild 5: Abfrageentwurf zur Ermittlung der Familienmitglieder<\/span><\/b><\/p>\n Das Ergebnis sieht wie in Bild 6 aus. Wir lesen nun in einer Prozedur nacheinander alle Familien ein, indem wir jeweils ein Recordset mit den Einträgen füllen, die einer Familie entsprechen und den passenden Wert im Feld FB <\/b>aufweisen (F1<\/b>, F2 <\/b>und so weiter).<\/p>\n Bild 6: Abfrage zur Ermittlung der Familienmitglieder<\/span><\/b><\/p>\n Diese durchlaufen wir mit der Prozedur aus Listing 1. Dabei ermitteln wir zunächst die eindeutigen Werte im Feld FB <\/b>(also F1<\/b>, F2<\/b>, …) und durchlaufen diese in einer äußeren Do While<\/b>-Schleife. In einer inneren Do While<\/b>-Schleife erstellen wir dann jeweils ein Recordset auf Basis der Abfrage qryFamilienbeitraegeImport<\/b>, wobei dieses nur die Datensätze für die aktuelle Familie liefert – und zwar in der absteigenden Reihenfolge im Feld Beitrag \/ €<\/b>. Wenn aktuell der erste Datensatz durchlaufen wird (rstQuelle.AbsolutePosition = 0<\/b>), erhalten wir den Datensatz zum Familienoberhaupt, also zum Mitglied mit dem höchsten Beitrag.<\/p>\n Listing 1: Ermitteln der Familienmitglieder<\/span><\/b><\/p>\n Den Primärschlüsselwert dieses Datensatzes merken wir uns in der Variablen lngFamilienoberhauptID<\/b>. Für die folgenden Einträge, deren Eigenschaft AbsolutePosition <\/b>größer als 0 <\/b>ist, tragen wir dann jeweils einen Datensatz in die Tabelle tblFamilienmitglieder <\/b>ein.<\/p>\n Dabei geben wir den Wert aus lngFamilienoberhauptID <\/b>als Wert des Feldes Familienoberhaupt<\/b> ein, den Wert des Feldes rstQuelle!MitgliedID <\/b>in das Feld FamilienmitgliedID <\/b>und den Wert der Eigenschaft AbsolutePosition <\/b>in das Feld Reihenfolge<\/b>. Das Ergebnis sieht wie in Bild 7 aus.<\/p>\n![\"Angabe](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_002.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_003.png\")
<\/p>\nPLZ: Wert(Ersetzen([Postlz];\"CH-\";\"\"))<\/pre>\n
OrtX: Wenn(IstNull([Ort]);Teil([Postlz];InStrRev<\/span>([Postlz];\" \")+1);[Ort])<\/pre>\nLand: Wenn(Wenn(InStr<\/span>([postlz];\"-\")>0;Links([postlz];InStr<\/span>([postlz];\"-\")-1);\"DE\")=''''CH'''';''''Schweiz'''';''''Deutschland'''')<\/pre>\nPublic Function <\/span>LandErmitteln(strPLZ As String<\/span>)\r\n Dim <\/span>strLaenderkuerzel As String<\/span>\r\n Dim <\/span>intPosStrich As Integer<\/span>\r\n Dim <\/span>strLand As String<\/span>\r\n intPosStrich = InStr<\/span>(strPLZ, \"-\")\r\n If <\/span>intPosStrich = 0 Then<\/span>\r\n strLand = \"Deutschland\"\r\n Else<\/span>\r\n strLaenderkuerzel = Left<\/span>(strPLZ, intPosStrich - 1)\r\n Select Case strLaenderkuerzel\r\n Case <\/span>\"CH\"\r\n strLand = \"Schweiz\"\r\n Case <\/span>\"NL\"\r\n strLand = \"Niederlande\"\r\n End Select<\/span>\r\n End If<\/span>\r\n LandErmitteln = strLand\r\nEnd Function<\/span><\/pre>\nLand: LandErmitteln([Postlz])<\/pre>\n
PLZ und Ort per VBA<\/h2>\n
Public Function <\/span>PLZErmitteln(strPLZ As String<\/span>)\r\n Dim <\/span>strLaenderkuerzel As String<\/span>\r\n Dim <\/span>intPosStrich As Integer<\/span>\r\n intPosStrich = InStr<\/span>(strPLZ, \"-\")\r\n If <\/span>Not<\/span> intPosStrich = 0 Then<\/span>\r\n strPLZ = Mid<\/span>(strPLZ, intPosStrich + 1)\r\n strPLZ = Val(strPLZ)\r\n End If<\/span>\r\n PLZErmitteln = strPLZ\r\nEnd Function<\/span><\/pre>\nPLZ: PLZErmitteln([Postlz])<\/pre>\n
OrtX: OrtErmitteln([Postlz];[Ort])<\/pre>\n
Public Function <\/span>OrtErmitteln(strPLZ As String<\/span>, strOrt As String<\/span>)\r\n Dim <\/span>strLaenderkuerzel As String<\/span>\r\n Dim <\/span>intPosStrich As Integer<\/span>\r\n Dim <\/span>intLeerzeichen As Integer<\/span>\r\n intPosStrich = InStr<\/span>(strPLZ, \"-\")\r\n If <\/span>Not<\/span> intPosStrich = 0 Then<\/span>\r\n intLeerzeichen = InStrRev<\/span>(strPLZ, \" \")\r\n If <\/span>Not<\/span> intLeerzeichen = 0 Then<\/span>\r\n strOrt = Mid<\/span>(strPLZ, InStrRev<\/span>(strPLZ, \" \"))\r\n End If<\/span>\r\n End If<\/span>\r\n OrtErmitteln = strOrt\r\nEnd Function<\/span><\/pre>\nAktives oder passives Mitglied<\/h2>\n
Public Function <\/span>AktivPassiv(strAktivPassiv As String<\/span>) As Boolean<\/span>\r\n If <\/span>InStr<\/span>(1, strAktivPassiv, \"P\") = 0 Then<\/span>\r\n AktivPassiv = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nAktiv: AktivPassiv([Ak\/Pa])<\/pre>\n
Geschlecht<\/h2>\n
Public Function <\/span>GeschlechtErmitteln(strGeschlecht As String<\/span>) As Long<\/span>\r\n Dim <\/span>lngGeschlechtID As Long<\/span>\r\n If <\/span>Not<\/span> InStr<\/span>(1, strGeschlecht, \"M\") = 0 Then<\/span>\r\n lngGeschlechtID = 1\r\n Else<\/span>\r\n lngGeschlechtID = 2\r\n End If<\/span>\r\n GeschlechtErmitteln = lngGeschlechtID\r\nEnd Function<\/span><\/pre>\nGeschlecht: GeschlechtErmitteln([Ak\/Pa])<\/pre>\n
Anreden ermitteln<\/h2>\n
Anrede: AnredeErmitteln([Ak\/Pa])<\/pre>\n
Public Function <\/span>AnredeErmitteln(strAnrede As String<\/span>) As Long<\/span>\r\n Dim <\/span>lngAnredeID As Long<\/span>\r\n If <\/span>Not<\/span> InStr<\/span>(1, strAnrede, \"M\") = 0 Then<\/span>\r\n lngAnredeID = 1\r\n Else<\/span>\r\n lngAnredeID = 2\r\n End If<\/span>\r\n AnredeErmitteln = lngAnredeID\r\nEnd Function<\/span><\/pre>\nBeitrag und Rabattklasse ermitteln<\/h2>\n
100,00= 40%=60,00\r\n100,00-20%\r\n100,00-30%\r\n100,00-30%=70,00\r\n100,00-40%=60,00\r\n110,00-20%\r\n110,00-20% =88,00\r\n110,00-20%=88,00\r\n110,00-30%=77,00\r\n110,00-30%=77,00\r\n135\r\n210,00\r\n30,00-20%\r\n30,00-30%\r\n30,00-30%=18,00\r\n95,00-20%\r\n95,00-30%\r\n95,00-30%=67,00\r\nEhrenmitglied\r\nFördermitglied\r\nHo236\/30,00-30%\r\nSpende<\/pre>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_004.png\")
<\/p>\nFamilienmitglieder<\/h2>\n
![\"Abfrageentwurf](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_006.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_005.png\")
<\/p>\nPublic Sub <\/span>Familienmitglieder()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstQuelle As <\/span>DAO.Recordset\r\n Dim <\/span>rstFamilien As <\/span>DAO.Recordset\r\n Dim <\/span>lngFamilienoberhauptID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstFamilien = db.OpenRecordset(\"SELECT DISTINCT FB FROM Mitglieder\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstFamilien.EOF\r\n Set<\/span> rstQuelle = db.OpenRecordset(\"SELECT * FROM qryFamilienbeitraegeImport WHERE FB = ''''\" & rstFamilien!FB _\r\n & \"'''' ORDER BY [Beitrag \/ €] DESC\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstQuelle.EOF\r\n If <\/span>rstQuelle.AbsolutePosition = 0 Then<\/span>\r\n lngFamilienoberhauptID = rstQuelle!MitgliedID\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblFamilienmitglieder(FamilienoberhauptID, FamilienmitgliedID, \" _\r\n & \"Reihenfolge) VALUES(\" & lngFamilienoberhauptID & \", \" & rstQuelle!MitgliedID & \", \" _\r\n & rstQuelle.AbsolutePosition & \")\", dbFailOnError\r\n End If<\/span>\r\n rstQuelle.MoveNext<\/span>\r\n Loop<\/span>\r\n rstFamilien.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2017_06\/pic_1107_007.png\")
<\/p>\n