Wer die Beiträge eines Vereins von Hand berechnet, muss für jedes Mitglied Alter, Beitragsart und Beitragssatz nachschlagen. Bei einem Eintritt oder Austritt im Laufe des Jahres kommt die Berechnung des anteiligen Beitrags hinzu, und bei Familien soll der Beitrag gedeckelt werden. Das ist aufwendig und fehleranfällig. Wie wir aus den Mitgliedschaften und den Beitragssätzen die Forderungen eines Beitragsjahres berechnen, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Die Regeln im Überblick<\/h2>\n
Die Beispieldatenbank VereinsverwaltungBeitraegeBerechnen.accdb<\/b> baut auf der Datenbank aus dem Beitrag Vereinsverwaltung: Mitglieder, Bankverbindungen und Mandate (www.access-im-unternehmen.de\/1630)<\/b> auf.<\/p>\n
Hinzu kommt das Modul mdlBeitraege<\/b> mit den Funktionen und Prozeduren dieses Beitrags. Die Berechnung folgt fünf Regeln:<\/p>\n Für die Regeln erweitern wir das Datenmodell um vier Felder. Die Tabelle tblBeitragsarten<\/b> erhält die Felder AlterVon<\/b> und AlterBis<\/b>, die den Altersbereich einer Beitragsart festlegen (siehe Bild 1).<\/p>\n Bild 1: Die neuen Alters-Felder in der Tabelle tblBeitragsarten<\/span><\/b><\/p>\n Die Tabelle tblOptionen<\/b> erhält das Feld FamilienHoechstbetrag<\/b> (siehe Bild 2). Die Tabelle tblFamilien<\/b> erhält das Feld Deckel<\/b> vom Datentyp Ja\/Nein<\/b>, mit dem wir für jede Familie festlegen, ob der Familiendeckel gilt. Damit stehen die Altersgrenzen, der Höchstbetrag und die Entscheidung je Familie in den Daten und nicht im Code. Die Beispieldaten enthalten die Beitragsarten Kinder<\/b> (0<\/b> bis 13<\/b> Jahre), Jugendliche<\/b> (14<\/b> bis 17<\/b> Jahre), Erwachsene<\/b> (18<\/b> bis 64<\/b> Jahre) und Senioren<\/b> (ab 65<\/b> Jahren). Der Höchstbetrag beträgt 150,00<\/b> Euro, der Altersstichtag ist der 31.12.2026<\/b>.<\/p>\n Bild 2: Das neue Feld FamilienHoechstbeitrag in der Tabelle tblOptionen<\/span><\/b><\/p>\n Das Alter in vollen Jahren am Stichtag liefert die Funktion AlterAm<\/b> im Modul mdlBeispieldaten<\/b>. Die Prozeduren zum Anlegen der Beispieldaten verwenden sie bereits. Wir haben sie auf öffentlich umgestellt. Welche Beitragsart zu einem Alter gehört, ermittelt die Funktion BeitragsartFuerAlter<\/b> (siehe Listing 1).<\/p>\n Listing 1: Die Beitragsart zu einem Alter ermitteln<\/span><\/b><\/p>\n Die Funktion sucht mit DLookup<\/b> die Beitragsart, deren Altersbereich das übergebene Alter einschließt. Findet DLookup<\/b> keine Beitragsart, liefert die Funktion Nz<\/b> den Wert 0<\/b>. Das geschieht, wenn kein Altersbereich das Alter enthält, etwa bei einer Lücke zwischen zwei Bereichen. Für ein Alter von 14<\/b> Jahren liefert die Funktion die BeitragsartID<\/b> 2<\/b>, also die Beitragsart Jugendliche<\/b>.<\/p>\n Den Beitragssatz zu einer Beitragsart liefert die Funktion JahresbeitragAm<\/b> (siehe Listing 2).<\/p>\n Listing 2: Den gültigen Jahresbeitrag zu einem Stichtag ermitteln<\/span><\/b><\/p>\n Sie arbeitet wie die Abfrage qryBeitragssaetzeAmStichtag<\/b> aus dem Beitrag Vereinsverwaltung: Datenmodell (www.access-im-unternehmen.de\/1629)<\/b>, fragt aber nur eine Beitragsart ab.<\/p>\n Die Funktion setzt das Datum im Format JJJJ-MM-TT<\/b> zwischen zwei Rautenzeichen (#<\/b>) in die Bedingung ein.<\/p>\n Dieses Format legt die Reihenfolge von Jahr, Monat und Tag fest. Ein offener Beitragssatz hat im Feld GueltigBis<\/b> den Wert NULL<\/b>, deshalb prüfen wir das Feld zusätzlich mit IS NULL<\/b>. Im Direktbereich prüfen wir den Beitragswechsel der Erwachsenen mit der BeitragsartID<\/b> 3<\/b>:<\/p>\n Für die Berechnung verwenden wir den 1. Januar<\/b> des Beitragsjahres als Stichtag. Ändert der Verein den Beitragssatz im Laufe des Jahres, gilt für das ganze Jahr der Beitragssatz vom Jahresbeginn.<\/p>\n Tritt ein Mitglied im Beitragsjahr ein oder aus, zahlt es nur für die Monate seiner Mitgliedschaft.<\/p>\n Wie viele Monate das sind, ermittelt die Funktion MonateImJahr<\/b> (siehe Listing 3). Sie erwartet den Eintritt, den Austritt und das Beitragsjahr. Der Parameter varAustritt<\/b> hat den Datentyp Variant<\/b>, weil das Feld Austritt<\/b> der Tabelle tblMitgliedschaften<\/b> den Wert NULL<\/b> enthalten kann.<\/p>\n Listing 3: Die Monate einer Mitgliedschaft im Beitragsjahr zählen<\/span><\/b><\/p>\n Die Funktion beginnt mit dem Zeitraum 1<\/b> bis 12<\/b>. Liegt der Eintritt im Beitragsjahr, beginnt der Zeitraum im Eintrittsmonat. Liegt der Eintritt in einem späteren Jahr, gibt es keine Monate.<\/p>\n Die Funktion endet dann mit dem Wert 0<\/b>. Liegt der Austritt in einem früheren Jahr, endet sie ebenfalls mit 0<\/b>. Liegt der Austritt im Beitragsjahr, endet der Zeitraum im Austrittsmonat. Das Ergebnis sind die Monate vom ersten bis zum letzten Monat einschließlich.<\/p>\n Zwei Aufrufe im Direktbereich zeigen die Rechnung:<\/p>\n Das erste Mitglied ist am 10.05.2019<\/b> eingetreten und tritt am 30.06.2026<\/b> aus. Es zahlt daher sechs Monate.<\/p>\n Das zweite Mitglied tritt am 15.03.2026<\/b> ein und ist weiterhin Mitglied.<\/p>\n Es zahlt daher zehn Monate. Aus den Monaten ergibt sich der Anteil des Jahresbeitrags: Für ein Mitglied mit einem Jahresbeitrag von 60,00<\/b> Euro und sechs Monaten sind das 30,00<\/b> Euro.<\/p>\n Die Prozedur ForderungenAnlegen<\/b> rundet den Anteil mit der Funktion fctRound<\/b> auf zwei Nachkommastellen (die Funktion finden Sie im Modul mdlTools<\/b>).<\/p>\n Diese verwenden wir, da die VBA-Funktion Round nicht kaufmännisch rundet, sondern das sogenannte Bankers Rounding nutzt.<\/p>\n Eine Familie zahlt höchstens den Betrag, den der Verein als Höchstbetrag festlegt, im Beispiel 150,00<\/b> Euro im Jahr.<\/p>\n Zunächst berechnen wir die Forderungen ohne den Deckel.<\/p>\n Dazu setzen wir das Feld Deckel<\/b> in der Tabelle tblFamilien<\/b> bei allen Familien auf Nein<\/b> und legen die Forderungen mit der Prozedur ForderungenAnlegen<\/b> an, die wir weiter unten beschreiben.<\/p>\n Die Forderungen der drei Familien summieren sich dann auf 180,00<\/b> Euro (Mueller), 156,00<\/b> Euro (Schmidt) und 120,00<\/b> Euro (Weber, siehe Bild 3).<\/p>\n Bild 3: Die Forderungen der drei Familien ohne Familiendeckel im Formular frmFamilienForderungen<\/span><\/b><\/p>\n Die Familien Mueller und Schmidt überschreiten den Höchstbetrag. Die Prozedur FamiliendeckelAnwenden<\/b> kürzt die Forderungen der Familie, bis die Summe den Höchstbetrag erreicht (siehe Listing 4). Sie erwartet die FamilieID<\/b> und das Beitragsjahr.<\/p>\n Listing 4: Die Forderungen einer Familie auf den Höchstbetrag kürzen<\/span><\/b><\/p>\n Die Prozedur endet ohne Änderung, wenn im Feld FamilienHoechstbetrag<\/b> der Wert NULL<\/b> oder 0<\/b> steht oder wenn die Familie im Feld Deckel<\/b> den Wert Nein<\/b> hat. Andernfalls öffnet sie die Forderungen der Familie, absteigend nach dem Feld Geburtsdatum<\/b> sortiert, sodass die jüngsten Mitglieder zuerst erscheinen.<\/p>\n In einem ersten Durchlauf summiert sie die Werte des Feldes Betrag<\/b>. Ist die Summe größer als der Höchstbetrag, geht sie die Forderungen in einem zweiten Durchlauf durch und kürzt sie jeweils um den Überschuss, der noch über dem Höchstbetrag liegt, höchstens aber um den Betrag der Forderung.<\/p>\n Die Kürzung schreibt die Prozedur mit einer UPDATE<\/b>-Anweisung, in der sie das Dezimaltrennzeichen vom Komma (,<\/b>) auf den Punkt (.<\/b>) umstellt.<\/p>\n Bei der Familie Mueller beträgt der Überschuss 30,00<\/b> Euro. Hans, das jüngste Mitglied, zahlt 24,00<\/b> Euro und wird auf 0,00<\/b> Euro gekürzt. Die restlichen 6,00<\/b> Euro kürzt die Prozedur bei Jens von 36,00<\/b> auf 30,00<\/b> Euro.<\/p>\n Bei der Familie Schmidt beträgt der Überschuss 6,00<\/b> Euro. Die Prozedur kürzt ihn bei Emma, deren Forderung von 36,00<\/b> auf 30,00<\/b> Euro sinkt. Die Familie Weber liegt unter dem Höchstbetrag, ihre Forderungen bleiben unverändert (siehe Bild 4).<\/p>\n Bild 4: Die Forderungen der drei Familien mit dem Familiendeckel<\/span><\/b><\/p>\n Legen wir die Forderungen eines Beitragsjahres ein zweites Mal an, etwa nach einer Änderung der Beitragssätze, sollen die alten Forderungen nicht stehen bleiben.<\/p>\n Die Prozedur ForderungenLoeschen<\/b> entfernt deshalb vorab die Forderungen des Jahres (siehe Listing 5).<\/p>\n Listing 5: Die offenen Forderungen eines Beitragsjahres entfernen<\/span><\/b><\/p>\n Die DELETE<\/b>-Anweisung entfernt nur Forderungen mit dem Status<\/b> Offen<\/b>, die in keiner Position eines Lastschriftlaufs stehen. Forderungen, die bereits eingezogen werden oder bezahlt sind, bleiben unverändert. Ein Aufruf im Direktbereich löscht die Forderungen für 2026<\/b>:<\/p>\n Die Prozedur ForderungenAnlegen<\/b> setzt die fünf Regeln um (siehe Listing 6). Sie erwartet das Beitragsjahr als Parameter und ruft zu Beginn ForderungenLoeschen<\/b> auf.<\/p>\n Listing 6: Die Forderungen eines Beitragsjahres anlegen<\/span><\/b><\/p>\n Die Prozedur bildet aus dem Feld Altersstichtag<\/b> der Tabelle tblOptionen<\/b> den Stichtag des Beitragsjahres, indem sie Monat und Tag übernimmt und das Jahr ersetzt. Dann geht sie alle Mitgliedschaften durch. Für jede Mitgliedschaft zählt sie die Monate im Beitragsjahr. Hat die Mitgliedschaft keine Monate oder besitzt sie für das Beitragsjahr bereits eine Forderung, überspringt die Prozedur sie.<\/p>\n Andernfalls bestimmt sie die Beitragsart aus dem Alter, den Jahresbeitrag am 1. Januar<\/b> und den Betrag nach den Monaten. Die ermittelte Beitragsart schreibt sie zusätzlich in das Feld BeitragsartID<\/b> der Tabelle tblMitgliedschaften<\/b>, damit das Formular frmMitglieder<\/b> die aktuelle Beitragsart anzeigt.<\/p>\n Zum Schluss wendet sie den Familiendeckel auf jede Familie an.<\/p>\n Wegen ForderungenLoeschen<\/b> und der Prüfung auf vorhandene Forderungen können wir die Prozedur mehrmals für dasselbe Beitragsjahr aufrufen, ohne dass Forderungen doppelt entstehen. Die offenen Forderungen berechnet sie dabei neu, Forderungen in einem Lastschriftlauf oder mit einem anderen Status<\/b> lässt sie unverändert.<\/p>\n Wir starten sie im Direktbereich: <\/p>\n In den Beispieldaten entstehen 40<\/b> Forderungen mit einer Gesamtsumme von 2.100,00<\/b> Euro. Ohne den Familiendeckel wären es 2.136,00<\/b> Euro gewesen.<\/p>\n Die drei Mitglieder, die zum 30.06.2026<\/b> austreten, zahlen anteilig: Die beiden Mitglieder der Beitragsart Erwachsene<\/b> zahlen je 30,00<\/b> Euro, das Mitglied der Beitragsart Senioren<\/b> zahlt 24,00<\/b> Euro. Die Summe je Beitragsjahr zeigt die Abfrage qryForderungenProJahr<\/b>:<\/p>\n Für das Beitragsjahr 2026<\/b> zeigt die Spalte Anzahl<\/b> den Wert 40<\/b> und die Spalte Summe<\/b> den Wert 2.100,00<\/b> Euro.<\/p>\n Bisher starten wir die Prozeduren im Direktbereich. Für die tägliche Arbeit im Verein erweitern wir das Formular frmFamilienForderungen<\/b>.<\/p>\n Mit dem erweiterten Formular legen wir das Beitragsjahr fest, legen die Forderungen an oder löschen sie und bestimmen je Familie, ob der Deckel gilt (siehe Bild 5).<\/p>\n Bild 5: Das Formular frmFamilienForderungen mit Beitragsjahr, Schaltflächen und dem Kontrollkästchen Deckel<\/span><\/b><\/p>\n Die Meldung unter den Schaltflächen liefert die Funktion ForderungenText<\/b> im Modul mdlBeitraege<\/b>. Sie beschreibt Anzahl und Summe der Forderungen eines Beitragsjahres (siehe Listing 7).<\/p>\n Listing 7: Anzahl und Summe der Forderungen eines Beitragsjahres als Text<\/span><\/b><\/p>\n Die Funktion zählt mit DCount<\/b> die Forderungen des Beitragsjahres und summiert mit DSum<\/b> ihre Beträge. Nz<\/b> ersetzt eine fehlende Summe durch 0<\/b>, denn für ein Jahr ohne Forderungen liefert DSum<\/b> den Wert Null<\/b>.<\/p>\n Nach dem Anlegen der Forderungen für 2026<\/b> liefert die Funktion den Text 40 Forderungen, 2.100,00 Euro<\/b>, ohne Forderungen den Text 0 Forderungen, 0,00 Euro<\/b>.<\/p>\n Zuerst bereiten wir die Daten vor. Fügen Sie der Tabelle tblFamilien<\/b> das Feld Deckel<\/b> vom Datentyp Ja\/Nein<\/b> hinzu und tragen Sie bei der Eigenschaft Standardwert<\/b> den Wert Ja<\/b> ein.<\/p>\n Die vorhandenen Familien erhalten dabei zunächst den Wert Nein<\/b>. Setzen Sie sie mit einer Aktualisierungsabfrage auf Ja<\/b>:<\/p>\n Öffnen Sie danach die Abfrage qryFamilienForderungen<\/b> in der Entwurfsansicht und fügen Sie aus der Tabelle tblFamilien<\/b> das Feld Deckel<\/b> hinter dem Feld Familienname<\/b> ein.<\/p>\n Das Kontrollkästchen im Formular ist an dieses Feld gebunden. Das Formular erweitern wir in diesen Schritten:<\/p>\n Listing 8: Die Ereignisprozeduren der beiden Schaltflächen<\/span><\/b><\/p>\n<\/ul>\n Beide Prozeduren verlassen sich darauf, dass ein Beitragsjahr im Textfeld steht, und rufen dann ForderungenAnlegen<\/b> oder ForderungenLoeschen<\/b> auf.<\/p>\n Danach zeigt das Bezeichnungsfeld lblHinweis<\/b> das Ergebnis von ForderungenText<\/b>, und Requery<\/b> baut die Liste neu auf.<\/p>\n Das Kontrollkästchen chkDeckel<\/b> ändert nur die Einstellung der Familie. Die Forderungen berechnet erst ein Klick auf Forderungen anlegen<\/b> neu.<\/p>\n Forderungen, die in einem Lastschriftlauf stehen oder nicht mehr den Status<\/b> Offen<\/b> haben, bleiben dabei unverändert.<\/p>\n Die Wirkung zeigt die Familie Mueller. Ohne Haken bei Deckel<\/b> ergibt ForderungenAnlegen 2026<\/b> für die Familie 180,00<\/b> Euro und insgesamt 2.130,00<\/b> Euro, mit Haken 150,00<\/b> Euro und \n
![\"Die](\"..\/fileadmin\/_temp_\/2026_06\/pic_1634_001.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2026_06\/pic_1634_002.png\")
<\/p>\nDie Beitragsart nach dem Alter bestimmen<\/h2>\n
Public Function <\/span>BeitragsartFuerAlter(ByVal lngAlter As Long<\/span>) As Long<\/span>\r\n ' Liefert die Beitragsart, deren Altersbereich das Alter enthaelt\r\n BeitragsartFuerAlter = Nz(DLookup(\"BeitragsartID\", \"tblBeitragsarten\", _\r\n \"AlterVon<=\" & lngAlter & \" AND AlterBis>=\" & lngAlter), 0)\r\nEnd Function<\/span><\/pre>\nDen Jahresbeitrag am Stichtag ermitteln<\/h2>\n
Public Function <\/span>JahresbeitragAm(ByVal lngBeitragsartID As Long<\/span>, ByVal datStichtag As Date<\/span>) As Currency<\/span>\r\n ' Liefert den Jahresbeitrag, der an einem Stichtag gilt\r\n Dim <\/span>strDatum As String<\/span>\r\n strDatum = \"#\" & Format(datStichtag, \"yyyy-mm-dd\") & \"#\"\r\n JahresbeitragAm = Nz(DLookup(\"Jahresbeitrag\", \"tblBeitragssaetze\", _\r\n \"BeitragsartID=\" & lngBeitragsartID & \" AND GueltigAb<=\" & strDatum & _\r\n \" AND (GueltigBis>=\" & strDatum & \" OR GueltigBis IS NULL)\"), 0)\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> JahresbeitragAm(3, #6\/30\/2025#)\r\n55\r\nDebug.Print<\/span> JahresbeitragAm(3, #1\/1\/2026#)\r\n60<\/pre>\nAnteilige Beiträge bei Eintritt und Austritt<\/h2>\n
Public Function <\/span>MonateImJahr(ByVal datEintritt As Date<\/span>, ByVal varAustritt As Variant<\/span>, ByVal lngJahr As Long<\/span>) As Long<\/span>\r\n ' Zaehlt die Monate der Mitgliedschaft im Jahr, angefangene Monate zaehlen voll\r\n Dim <\/span>lngVon As Long<\/span>\r\n Dim <\/span>lngBis As Long<\/span>\r\n lngVon = 1\r\n lngBis = 12\r\n If <\/span>Year(datEintritt) > lngJahr Then<\/span> Exit Function<\/span>\r\n If <\/span>Year(datEintritt) = lngJahr Then<\/span> lngVon = Month(datEintritt)\r\n If <\/span>Not<\/span> IsNull(varAustritt) Then<\/span>\r\n If <\/span>Year(varAustritt) < lngJahr Then<\/span> Exit Function<\/span>\r\n If <\/span>Year(varAustritt) = lngJahr Then<\/span> lngBis = Month(varAustritt)\r\n End If<\/span>\r\n If <\/span>lngBis >= lngVon Then<\/span> MonateImJahr = lngBis - lngVon + 1\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> MonateImJahr(#5\/10\/2019#, #6\/30\/2026#, 2026)\r\n6\r\nDebug.Print<\/span> MonateImJahr(#3\/15\/2026#, Null, 2026)\r\n10<\/pre>\nDen Familiendeckel anwenden<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_06\/pic_1634_004.png\")
<\/p>\nPublic Sub <\/span>FamiliendeckelAnwenden(ByVal lngFamilieID As Long<\/span>, ByVal lngJahr As Long<\/span>)\r\n ' Kuerzt die Forderungen einer Familie mit Deckel, die juengsten zuerst\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>curHoechst As Currency<\/span>\r\n Dim <\/span>curSumme As Currency<\/span>\r\n Dim <\/span>curUeberschuss As Currency<\/span>\r\n Dim <\/span>curKuerzung As Currency<\/span>\r\n curHoechst = Nz(DLookup(\"FamilienHoechstbetrag\", \"tblOptionen\"), 0)\r\n If <\/span>curHoechst = 0 Then<\/span> Exit Sub<\/span>\r\n If Not<\/span> Nz(DLookup(\"Deckel\", \"tblFamilien\", _\r\n \"FamilieID=\" & lngFamilieID), True<\/span>) Then Exit Sub<\/span>\r\n Set<\/span> rst = CurrentDb.OpenRecordset(\"SELECT tblBeitragsforderungen.ForderungID, \" & _\r\n \"tblBeitragsforderungen.Betrag FROM (tblBeitragsforderungen INNER JOIN \" & _\r\n \"tblMitgliedschaften ON tblBeitragsforderungen.MitgliedschaftID = \" & _\r\n \"tblMitgliedschaften.MitgliedschaftID) INNER JOIN tblPersonen ON \" & _\r\n \"tblMitgliedschaften.PersonID = tblPersonen.PersonID \" & _\r\n \"WHERE tblPersonen.FamilieID = \" & lngFamilieID & _\r\n \" AND tblBeitragsforderungen.Beitragsjahr = \" & lngJahr & _\r\n \" ORDER BY tblPersonen.Geburtsdatum DESC\", dbOpenSnapshot)\r\n Do Until rst.EOF\r\n curSumme = curSumme + rst!Betrag\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n curUeberschuss = curSumme - curHoechst\r\n If <\/span>curUeberschuss > 0 Then<\/span>\r\n rst.MoveFirst\r\n Do Until rst.EOF Or curUeberschuss <= 0\r\n curKuerzung = IIf(rst!Betrag < curUeberschuss, rst!Betrag, curUeberschuss)\r\n CurrentDb.Execute \"UPDATE tblBeitragsforderungen SET Betrag = Betrag - \" & _\r\n Replace<\/span>(CStr(curKuerzung), \",\", \".\") & \" WHERE ForderungID = \" & _\r\n rst!ForderungID, dbFailOnError\r\n curUeberschuss = curUeberschuss - curKuerzung\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n End If<\/span>\r\n rst.Close\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2026_06\/pic_1634_005.png\")
<\/p>\nDie Forderungen eines Beitragsjahres anlegen<\/h2>\n
Public Sub <\/span>ForderungenLoeschen(ByVal lngJahr As Long<\/span>)\r\n ' Entfernt die offenen Forderungen eines Beitragsjahres, die in keiner Position stehen\r\n CurrentDb.Execute \"DELETE FROM tblBeitragsforderungen WHERE Beitragsjahr = \" & _\r\n lngJahr & \" AND Status = 'Offen' AND ForderungID NOT IN (SELECT \" & _\r\n \"ForderungID FROM tblLastschriftpositionen)\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\nForderungenLoeschen 2026<\/pre>\n
Public Sub <\/span>ForderungenAnlegen(ByVal lngJahr As Long<\/span>)\r\n ' Legt die Forderungen eines Beitragsjahres an und wendet den Familiendeckel an\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstForderung As <\/span>DAO.Recordset\r\n Dim <\/span>datStichtag As Date<\/span>\r\n Dim <\/span>lngMonate As Long<\/span>\r\n Dim <\/span>lngBeitragsartID As Long<\/span>\r\n Dim <\/span>curJahresbeitrag As Currency<\/span>\r\n ForderungenLoeschen lngJahr\r\n datStichtag = DLookup(\"Altersstichtag\", \"tblOptionen\")\r\n datStichtag = DateSerial(lngJahr, Month(datStichtag), Day(datStichtag))\r\n Set<\/span> rst = CurrentDb.OpenRecordset(\"SELECT tblMitgliedschaften.MitgliedschaftID, \" & _\r\n \"tblMitgliedschaften.Eintritt, tblMitgliedschaften.Austritt, \" & _\r\n \"tblPersonen.Geburtsdatum FROM tblMitgliedschaften INNER JOIN tblPersonen \" & _\r\n \"ON tblMitgliedschaften.PersonID = tblPersonen.PersonID \" & _\r\n \"ORDER BY tblMitgliedschaften.MitgliedschaftID\", dbOpenSnapshot)\r\n Set<\/span> rstForderung = CurrentDb.OpenRecordset(\"tblBeitragsforderungen\", dbOpenDynaset)\r\n Do Until rst.EOF\r\n lngMonate = MonateImJahr(rst!Eintritt, rst!Austritt, lngJahr)\r\n If lngMonate > 0 And DCount(\"*\", \"tblBeitragsforderungen\", \"MitgliedschaftID=\" & _\r\n rst!MitgliedschaftID & \" AND Beitragsjahr=\" & lngJahr) = 0 Then\r\n lngBeitragsartID = BeitragsartFuerAlter(AlterAm(rst!Geburtsdatum, datStichtag))\r\n curJahresbeitrag = JahresbeitragAm(lngBeitragsartID, DateSerial(lngJahr, 1, 1))\r\n rstForderung.AddNew<\/span>\r\n rstForderung!MitgliedschaftID = rst!MitgliedschaftID\r\n rstForderung!Beitragsjahr = lngJahr\r\n rstForderung!Betrag = fctRound(curJahresbeitrag * lngMonate \/ 12, 2)\r\n rstForderung.Update\r\n CurrentDb.Execute \"UPDATE tblMitgliedschaften SET BeitragsartID = \" & _\r\n lngBeitragsartID & \" WHERE MitgliedschaftID = \" & _\r\n rst!MitgliedschaftID, dbFailOnError\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n rstForderung.Close\r\n Set<\/span> rst = CurrentDb.OpenRecordset(\"SELECT FamilieID FROM tblFamilien\", dbOpenSnapshot)\r\n Do Until rst.EOF\r\n FamiliendeckelAnwenden rst!FamilieID, lngJahr\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\nEnd Sub<\/span><\/pre>\nForderungenAnlegen 2026<\/pre>\n
SELECT Beitragsjahr, Count(*) AS Anzahl,\r\n Sum(Betrag) AS Summe\r\nFROM tblBeitragsforderungen GROUP BY Beitragsjahr;<\/pre>\n
Die Forderungen im Formular verwalten<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2026_06\/pic_1634_006.png\")
<\/p>\nPublic Function <\/span>ForderungenText(ByVal lngJahr As Long<\/span>) As String<\/span>\r\n ' Beschreibt Anzahl und Summe der Forderungen eines Beitragsjahres\r\n Dim <\/span>strBedingung As String<\/span>\r\n strBedingung = \"Beitragsjahr=\" & lngJahr\r\n ForderungenText = DCount(\"*\", \"tblBeitragsforderungen\", strBedingung) & _\r\n \" Forderungen, \" & Format(Nz(DSum(\"Betrag\", \"tblBeitragsforderungen\", _\r\n strBedingung), 0), \"#,##0.00\") & \" Euro\"\r\nEnd Function<\/span><\/pre>\nUPDATE tblFamilien SET Deckel = True;<\/pre>\n
\n
Private Sub <\/span>btnForderungenAnlegen_Click()\r\n If <\/span>IsNull(Me.txtBeitragsjahr) Then<\/span> Exit Sub<\/span>\r\n ForderungenAnlegen Me.txtBeitragsjahr\r\n Me.lblHinweis.Caption = ForderungenText(Me.txtBeitragsjahr)\r\n Me.Requery\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>btnForderungenLoeschen_Click()\r\n If <\/span>IsNull(Me.txtBeitragsjahr) Then<\/span> Exit Sub<\/span>\r\n ForderungenLoeschen Me.txtBeitragsjahr\r\n Me.lblHinweis.Caption = ForderungenText(Me.txtBeitragsjahr)\r\n Me.Requery\r\nEnd Sub<\/span><\/pre>\n