{"id":55001630,"date":"2026-12-01T00:00:00","date_gmt":"2026-11-09T18:54:13","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1630"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Vereinsverwaltung_Mitglieder_Bankverbindungen_und_Mandate","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Vereinsverwaltung_Mitglieder_Bankverbindungen_und_Mandate\/","title":{"rendered":"Vereinsverwaltung: Mitglieder, Bankverbindungen und Mandate"},"content":{"rendered":"

\"\"Eine IBAN mit falscher Prüfziffer fällt meist erst auf, wenn die Bank die Lastschriftdatei zurückweist. Dann ist der Einzug bereits verzögert. Wir prüfen die IBAN deshalb schon bei der Eingabe, bilden die Mandatsreferenz per Funktion und leiten den Folgetyp aus den bisherigen Lastschriften ab. Wie das in einem Formular für Mitglieder, Bankverbindungen und Mandate gelingt, zeigt der vorliegende Beitrag.<\/b><\/p>\n

Das Formular im Überblick<\/h2>\n

Die Beispieldatenbank VereinsverwaltungMitgliederUndMandate.accdb<\/b> baut auf der Datenbank aus dem Beitrag Vereinsverwaltung: Datenmodell (www.access-im-unternehmen.de\/1629)<\/b> auf.<\/p>\n

Kopieren Sie diese Datenbank und nennen Sie die Kopie VereinsverwaltungMitgliederUndMandate.accdb<\/b>.<\/p>\n

Das Hauptformular frmMitglieder<\/b> zeigt eine Person mit ihren Stammdaten. Darunter stehen zwei Unterformulare, die wir mit dem Präfix sfm<\/b> kennzeichnen: sfmMitgliedschaften<\/b> zeigt die Mitgliedschaften der Person, sfmBankverbindungen<\/b> ihre Bankverbindungen.<\/p>\n

Das Unterformular sfmBankverbindungen<\/b> enthält wiederum das Unterformular sfmMandate<\/b> mit den Mandaten zur Bankverbindung (siehe Bild 1).<\/p>\n

\"Das<\/p>\n

Bild 1: Das Formular frmMitglieder<\/span><\/b><\/p>\n

Wir bauen die Formulare von innen nach außen auf.<\/p>\n

Zuerst legen wir die Funktionen und Hilfsprozeduren an, die wir im Beitrag verwenden. Danach erstellen wir die Unterformulare sfmMandate<\/b>, sfmMitgliedschaften<\/b> und sfmBankverbindungen<\/b> und zuletzt das Hauptformular frmMitglieder<\/b>.<\/p>\n

Die Funktionen vorbereiten<\/h2>\n

Die Formulare rufen Funktionen auf, die in Standardmodulen enthalten sind. Die Prüfung der IBAN übernimmt die Funktion IstIban<\/b>.<\/p>\n

Sie stammt aus dem Beitrag Prüfziffern per VBA berechnen und prüfen (www.access-im-unternehmen.de\/1618)<\/b>. Wählen Sie Externe Daten|Neue Datenquelle|Aus Datenbank|Access<\/b> und importieren Sie aus der Beispieldatenbank dieses Beitrags die Module mdlPruefziffern<\/b> und mdlRegEx<\/b> in Ihre Datenbank.<\/p>\n

Die Funktion IstIban<\/b> akzeptiert die IBAN mit und ohne Leerzeichen.<\/p>\n

Die weiteren Funktionen legen Sie in einem neuen Standardmodul an, das Sie mdlMandate<\/b> nennen. Die erste Funktion, NeueMandatsreferenz<\/b>, bildet die Mandatsreferenz wie in den Beispieldaten aus dem Buchstaben M<\/b>, dem Jahr der Unterschrift, einem Bindestrich (–<\/b>) und der vierstellig aufgefüllten PersonID<\/b> (siehe Listing 1).<\/p>\n

Public Function <\/span>NeueMandatsreferenz(ByVal lngPersonID As Long<\/span>, ByVal datUnterschrift As Date<\/span>) As String<\/span>\r\n    ' Bildet die Referenz aus Jahr und PersonID, bei einer Kollision mit Zaehler\r\n    Dim <\/span>strBasis As String<\/span>\r\n    Dim <\/span>strReferenz As String<\/span>\r\n    Dim <\/span>lngZaehler As Long<\/span>\r\n    strBasis = \"M\" & Year(datUnterschrift) & \"-\" & Format(lngPersonID, \"0000\")\r\n    strReferenz = strBasis\r\n    Do While<\/span> DCount(\"*\", \"tblMandate\", \"Mandatsreferenz='\" & strReferenz & \"'\") > 0\r\n        lngZaehler = lngZaehler + 1\r\n        strReferenz = strBasis & \"-\" & lngZaehler\r\n    Loop<\/span>\r\n    NeueMandatsreferenz = strReferenz\r\nEnd Function<\/span><\/pre>\n
Listing 1: Eine eindeutige Mandatsreferenz bilden<\/span><\/b><\/p>\n
Die Funktion prüft mit DCount<\/b>, ob die Referenz bereits in der Tabelle tblMandate<\/b> steht.<\/p>\n
Falls ja, hängt sie einen Zähler an und prüft erneut. Die Referenz besteht nur aus Jahr und PersonID<\/b>.<\/p>\n
Legt eine Person im selben Jahr ein zweites Mandat an, würde der eindeutige Index idxMandatsreferenz<\/b> den doppelten Wert mit einem Fehler zurückweisen.<\/p>\n
Die Zählung vermeidet diesen Fehler. Im Direktbereich des VBA-Editors sehen wir die Referenzen für zwei Unterschriftsdaten.<\/p>\n
Die Datumsangaben stehen dort im amerikanischen Format, #3\/5\/2027#<\/b> ist der 5. März 2027:<\/p>\n
Debug.Print<\/span> NeueMandatsreferenz(1, #3\/5\/2027#)\r\nM2027-0001\r\nDebug.Print<\/span> NeueMandatsreferenz(1, #10\/1\/2019#)\r\nM2019-0001-1<\/pre>\n
In den Beispieldaten hat die Person mit der PersonID<\/b> 1<\/b> bereits die Referenz M2019-0001<\/b>. Im Jahr 2027<\/b> ist M2027-0001<\/b> frei.<\/p>\n
Im Jahr 2019<\/b> ergänzt die Funktion deshalb den Zähler 1<\/b>.<\/p>\n
Die zweite Funktion, Folgetyp<\/b>, leitet den Folgetyp eines Mandats aus den bisherigen Lastschriften ab (siehe Listing 2).<\/p>\n
Public Function <\/span>Folgetyp(ByVal lngMandatID As Long<\/span>) As String<\/span>\r\n    ' Leitet den Folgetyp aus den eingereichten Laeufen ab\r\n    Dim <\/span>strBedingung As String<\/span>\r\n    If <\/span>DLookup(\"Mandatsart\", \"tblMandate\", \"MandatID=\" & lngMandatID) = \"Einmalig\" Then<\/span>\r\n        Folgetyp = \"OOFF\"\r\n        Exit Function<\/span>\r\n    End If<\/span>\r\n    strBedingung = \"MandatID=\" & lngMandatID & \" AND LaufID IN \" & _\r\n        \"(SELECT LaufID FROM tblLastschriftlaeufe WHERE Status='Eingereicht')\"\r\n    If <\/span>DCount(\"*\", \"tblLastschriftpositionen\", strBedingung) = 0 Then<\/span>\r\n        Folgetyp = \"FRST\"\r\n    Else<\/span>\r\n        Folgetyp = \"RCUR\"\r\n    End If<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 2: Den Folgetyp eines Mandats ableiten<\/span><\/b><\/p>\n
Wir speichern ihn nicht, sondern berechnen ihn bei Bedarf. Er kennzeichnet in der Lastschriftdatei die erste (FRST<\/b>), eine wiederkehrende (RCUR<\/b>) oder eine einmalige Lastschrift (OOFF<\/b>).<\/p>\n
Hat das Mandat die Mandatsart Einmalig<\/b>, liefert die Funktion OOFF<\/b>. Andernfalls zählt sie die Positionen in der Tabelle tblLastschriftpositionen<\/b>, die zu diesem Mandat gehören und deren Lastschriftlauf (Tabelle tblLastschriftlaeufe<\/b>) den Status Eingereicht<\/b> hat.<\/p>\n
Gibt es keine, liefert sie FRST<\/b>. Gibt es mindestens eine, liefert sie RCUR<\/b>.<\/p>\n
Ein Lastschriftlauf mit dem Status Angelegt<\/b> zählt nicht, denn die Bank hat die Lastschriften noch nicht erhalten.<\/p>\n
Die Beispieldatenbank enthält noch keinen Lauf. Die Prozedur BeispiellaufAnlegen<\/b> erzeugt einen Lastschriftlauf mit dem Status Eingereicht<\/b> und fünf Positionen für die ersten fünf Mandate.<\/p>\n
Sie steht zusammen mit der Prozedur BeispiellaufLoeschen<\/b> im Modul mdlMandate<\/b> der Beispieldatenbank. Wir vergleichen den Folgetyp vorher und nachher im Direktbereich:<\/p>\n
Debug.Print<\/span> Folgetyp(1)\r\nFRST\r\nBeispiellaufAnlegen\r\nDebug.Print<\/span> Folgetyp(1)\r\nRCUR\r\nDebug.Print<\/span> Folgetyp(6)\r\nFRST<\/pre>\n
Das Mandat mit der MandatID<\/b> 1<\/b> hat nach dem Lauf den Folgetyp RCUR<\/b>. Das Mandat mit der MandatID<\/b> 6<\/b> gehört nicht zum Lauf, daher bleibt sein Folgetyp FRST<\/b>.<\/p>\n
Rufen Sie danach die Prozedur BeispiellaufLoeschen<\/b> auf, damit die Beispieldaten wieder dem Ausgangszustand entsprechen.<\/p>\n
Die dritte Funktion, HatGueltigesMandat<\/b>, ermittelt, ob eine Person für den Einzug infrage kommt (siehe Listing 3).<\/p>\n
Public Function <\/span>HatGueltigesMandat(ByVal lngPersonID As Long<\/span>) As Boolean<\/span>\r\n    ' Liefert, ob die Person mindestens ein aktives Mandat besitzt\r\n    HatGueltigesMandat = (DCount(\"*\", \"qryMandateUebersicht\", \"PersonID=\" & lngPersonID & \" AND Status='Aktiv'\") > 0)\r\nEnd Function<\/span><\/pre>\n
Listing 3: Prüfen, ob eine Person ein aktives Mandat hat<\/span><\/b><\/p>\n
Die Formulare in diesem Beitrag benötigt diese Funktion nicht. Sie dienen später dazu, die Personen für die Lastschriftdatei auszuwählen.<\/p>\n
Diesen Schritt behandeln wir in einem Folgebeitrag.<\/p>\n
Die Funktion zählt in der Abfrage qryMandateUebersicht<\/b> die Mandate der Person mit dem Status Aktiv<\/b>. In den Beispieldaten liefert sie für die Person mit der PersonID<\/b> 1<\/b> den Wert Wahr<\/b>.<\/p>\n
Das Unterformular sfmMandate<\/h2>\n
Das Unterformular sfmMandate<\/b> zeigt die Mandate einer Bankverbindung in einer Liste mit einer Zeile je Mandat (siehe Bild 2).<\/p>\n
\"Das<\/p>\n
Bild 2: Das Unterformular sfmMandate in der Entwurfsansicht<\/span><\/b><\/p>\n
Wir bauen es wie folgt Schritt für Schritt auf:<\/p>\n