<\/p>\n
Im Beitrag „Rechnungsverwaltung: Kundenadressen ausgliedern“ (www.access-im-unternehmen.de\/1470) verwalten wir zu jedem Kunden mehrere Adressen, die dem Kunden über ein Fremdschlüsselfeld in der Adresstabelle zugewiesen sind. Für jeden Kunden legen wir in dieser Tabelle eine Standardadresse fest. Damit ist einiger Pflegeaufwand verbunden, denn wir müssen sicherstellen, dass immer genau eine Adresse je Kunde als Standardadresse markiert ist. In diesem Beitrag schauen wir uns an, wie wir sicherstellen können, dass die Daten immer konsistent sind und wir nicht plötzlich mehrere Standardadressen je Kunde vorfinden – oder gar keine. <\/b><\/p>\nElemente der hier behandelten Konstellation<\/h2>\n
Die Konstellation, die wir in diesem Beitrag vorstellen, enthält folgende Elemente:<\/p>\n
Neben dem in der Einleitung vorgestellten Beispiel mit den Kunden und den zugeordneten Adressen (siehe Bild 1) gibt es noch weitere Beispiele:<\/p>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_001.png\")
<\/p>\n
Bild 1: Beispiel für eine 1:n-Beziehung mit Standardzuordnung<\/span><\/b><\/p>\n Übliche 1:n-Beziehungen, deren Pflege durch die Definition der Beziehung und der referenziellen Integrität mit oder ohne Löschweitergabe oder Aktualisierungsweitergabe geregelt ist, benötigen keinen zusätzlichen Aufwand – man legt einen Datensatz in der Detailtabelle an, beispielsweise tblAnreden<\/b>, und wenn man einen Datensatz in der Mastertabelle wie tblKunden <\/b>hinzufügt, wählt man einen der Datensätze aus der Detailtabelle aus.<\/p>\n Bei unserem Beispiel ist es im Prinzip genauso: Wir wählen für jeden Datensatz der Tabelle tblAdressen <\/b>über das Fremdschlüsselfeld KundeID <\/b>einen Datensatz aus der Tabelle tblKunden <\/b>aus.<\/p>\n Nun wollen wir jedoch angeben, welche der Adressen aus der Tabelle tblAdressen <\/b>die Standardadresse ist, die zum Beispiel beim Anlegen neuer Rechnungen oder Bestellungen auf Basis dieses Kunden herangezogen werden soll (siehe Bild 2).<\/p>\n Bild 2: Die 1:n-Beziehung mit Standardzuordnung im Formular<\/span><\/b><\/p>\n Wenn wir einem Kunden eine erste Adresse hinzufügen, soll diese direkt als Standardadresse markiert werden.<\/p>\n Das allein ist schon nicht einfach: Wir können nicht einfach den Standardwert des Feldes Standardadresse <\/b>auf Wahr <\/b>einstellen, denn wenn der Benutzer anschließend eine neue Adresse für diesen Kunden hinzufügt, würde das Feld Standardadresse <\/b>für diesen Kunden ebenfalls auf Wahr <\/b>eingestellt werden und wir hätten bereits zwei als Standardadresse markierte Adressen für diesen Kunden. Das Einstellen des Feldes Standardadresse <\/b>auf den Wert Wahr <\/b>entfällt also bereits.<\/p>\n Daraus lassen sich bereits erste Regeln für unser Vorhaben ableiten:<\/p>\n Davon abgesehen müssten wir eine Vorgehensweise etablieren, die beim Löschen einer der Adressen in Aktion tritt. Mit dieser müssen wir prüfen, ob einer der verbleibenden Adressdatensätze die Standardadresse für diesen Kunden ist und falls nicht, müssten wir eine der verbleibenden Adressen zur neuen Standardadresse machen.<\/p>\n Man könnte hier einfach die zuerst angelegte Adresse zur Standardadresse machen oder auch die zuletzt angelegte – oder auch eine ganz andere, beispielsweise eine, die besonders oft für Bestellungen oder Rechnungen verwendet wurde. Wir können auch den Benutzer fragen, welche Adresse die neue Standardadresse werden soll. Und wenn wir sie einfach festlegen, sollten wir dem Benutzer darüber informieren.<\/p>\n Der Benutzer könnte auf die Idee kommen, den Haken für das Feld Standardadresse <\/b>zu entfernen, weil er diese Adresse nicht mehr als Standardadresse verwenden möchte. Das wollen wir verhindern – der Benutzer soll die aktuelle Standardadresse nur durch Setzen einer neuen Standardadresse entfernen können.<\/p>\n Wenn der Benutzer eine neue Standardadresse einstellen möchte, soll das durch einfaches Aktivieren des Kontrollkästchens für das Feld Standardadresse <\/b>möglich sein. Wenn dies geschieht, müssen wir allerdings dafür sorgen, dass das Feld Standardadresse <\/b>für alle anderen Datensätze der Adresstabelle, die diesem Kunden zugeordnet sind, entfernt wird.<\/p>\n Schließlich wird es Situationen geben, in denen wir, beispielsweise zum Steuern der Darstellung in Formularen, die aktuelle Standardadresse für einen Kunden ermitteln müssen.<\/p>\n Damit wir die oben genannten Anforderungen einfach umsetzen können, wollen wir dazu einen flexibel einsetzbaren Satz an VBA-Funktionen bereitstellen, mit denen wir nicht nur die Standardadresse aus den Adressen eines Kunden, sondern auch die Standarddatensätze für andere Datenmodelle ermitteln können.<\/p>\n Welche Funktionen benötigen wir also dazu?<\/p>\n Diese Funktionen müssen wir nun noch so verknüpfen, dass sie sinnvoll in einer Anwendung einsetzbar sind. Außerdem müssen wir noch festlegen, zu welchen Zeitpunkten die Integrität dieser Daten geprüft werden soll – also beispielsweise, ob der aktuell angezeigte Kundendatensatz eine Standardadresse aufweist. Also schauen wir uns nun die Zeitpunkte an, zu denen wir auf die Daten zugreifen und diese ändern. Dies ist dann die Grundlage für die tatsächlich zu definierenden Funktionen zur Pflege der 1:n-Beziehung mit Standardzuordnung.<\/p>\n Wann also greifen wir tatsächlich auf die Standardzuordnungen zu? Wir sehen die folgenden Zeitpunkte:<\/p>\n Basierend auf diesen Anforderungen haben wir die folgenden Funktionen abgeleitet, die wir anschließend im Detail betrachten:<\/p>\n Die Funktion HoleStandardzuordnung <\/b>ermittelt mit der DLookup<\/b>-Funktion den Primärschlüsselwert des Datensatzes der Tabelle aus strTabelle<\/b>, dessen Fremdschlüsselfeld den Fremdschlüsselwert aus lngFKID<\/b> enthält, und gibt diesen als Funktionsergebnis zurück (siehe Listing 1).<\/p>\n Listing 1: Funktion zum Ermitteln der Standardzuordnung<\/span><\/b><\/p>\n Die Funktion SetzeStandardzuordnung <\/b>aktualisiert die mit strTabelle <\/b>übergebene Tabelle, indem Sie mit einer UPDATE<\/b>-Anweisung das Feld aus strStandardfeld <\/b>für den Datensatz auf den Wert -1<\/b> aktualisiert, der im Feld aus strPKFeld <\/b>den Wert aus lngPKID <\/b>aufweist (siehe Listing 2).<\/p>\n Listing 2: Funktion zum Setzen einer Standardzuordnung<\/span><\/b><\/p>\n Die Funktion EntferneStandardzuordnungen <\/b>stellt das Feld aus strStandardfeld <\/b>mit einer UPDATE<\/b>-Anweisung für alle Datensätze der Tabelle aus strTabelle <\/b>auf den Wert 0 <\/b>ein, deren Feld aus strFKFeld<\/b> den Wert aus lngFKID <\/b>aufweist (siehe Listing 3).<\/p>\n Listing 3: Funktion zum Entfernen von Standardzuordnungen<\/span><\/b><\/p>\n Die Funktion HoleErsteZuordnung <\/b>verwendet den Aufruf der DLookup<\/b>-Funktion, um den Wert des Feldes aus strPKFeld <\/b>aus dem ersten Datensatz der Tabelle aus strTabelle <\/b>zu holen, dessen Feld aus strFKFeld <\/b>den Wert aus lngFKID <\/b>enthält (siehe Listing 4).<\/p>\n [<\/p>\n Listing 4: Funktion zum Ermitteln der ersten Standardzuordnung<\/span><\/b><\/p>\n Die Funktion HoleOderSetzeStandardzuordnung <\/b>verwendet einige der zuvor bereits beschriebenen Funktionen (siehe Listing 5). Als Erstes versucht sie mit der Funktion HoleStandardzuordnung<\/b>, den Wert des Feldes strPKFeld <\/b>aus der Tabelle aus strTabelle <\/b>zu holen, die im Feld aus strFKFeld <\/b>den Wert aus lngFKID <\/b>enthält.<\/p>\n Listing 5: Funktion zum Holen der Standardzuordnung oder, falls nicht vorhanden, zum Setzen einer neuen Standardzuordnung<\/span><\/b><\/p>\n Liefert dies den Wert 0<\/b>, liest sie durch einen Aufruf der Funktion HoleErsteStandardzuordnung <\/b>den Wert des Feldes aus strPKFeld <\/b>des ersten Datensatzes aus der Tabelle aus strTabelle <\/b>ein, dessen Feld aus strFKFeld <\/b>den Wert aus lngFKID <\/b>enthält.<\/p>\n Liefert dies ebenfalls den Wert 0<\/b>, ist noch kein zugeordneter Datensatz in der Tabelle aus strTabelle <\/b>vorhanden. Dann liefert die Funktion den Wert 0 <\/b>zurück. Anderenfalls ruft die Prozedur die Funktion SetzeStandardzuordnung <\/b>auf, die in der Tabelle aus strTabelle <\/b>den Wert des Feldes strStandardfeld <\/b>für den Datensatz auf den Wert -1 <\/b>setzt, dessen Feld aus strPKFeld <\/b>den soeben ermittelten Wert aus lngPKID <\/b>aufweist. In jedem Fall wird der Wert aus lngPKID <\/b>als Funktionsergebnis zurückgeliefert.<\/p>\n Schließlich fehlt noch die Funktion MehrfacheStandardzuordnungenEntfernen<\/b>, die man regelmäßig aufrufen sollte, um eventuell entstandene Dubletten zu entfernen. Sie erstellt ein Recordset auf Basis einer SELECT<\/b>-Abfrage, welche die Werte des Fremdschlüsselfeldes aus strFKFeld <\/b>für alle Datensätze aus der Tabelle strTabelle <\/b>liefert, die für den gleichen Wert in strFKFeld <\/b>mehr als einen Datensatz aufweisen, für den das Feld aus strStandardfeld <\/b>den Wert -1 <\/b>enthält.<\/p>\n Dieses Recordset durchläuft die Tabelle, um mit der Funktion HoleStandardzuordnung<\/b> den Wert des Primärschlüsselfeldes aus dem Feld aus strPKFeld <\/b>für die angegebenen Parameter holt und diesen in lngErsteStandardzuordnungID <\/b>speichert. Dann entfernt sie alle Standardzuordnungen mit EntferneStandardzuordnungen <\/b>und fügt die mit der ID aus lngErsteStandardzuordnungID <\/b>wieder hinzu (siehe Listing 6).<\/p>\n Listing 6: Funktion zum Entfernen aller doppelten Standardzuordnungen<\/span><\/b><\/p>\n Die hier vorgestellten Funktionen verwenden wir in einer Lösung, die wir im Beitrag Rechnungsverwaltung: Kundenadressen ausgliedern <\/b>(www.access-im-unternehmen.de\/1470<\/b>) erläutert haben. Hier haben wir gleich mehrere Adresstabellen namens tblLieferadressen_Kunde <\/b>und tblRechnungsadressen_Kunde<\/b> wie im eingangs gezeigten Screenshot des Datenmodells zu sehen. In dieser Lösung fügen wir die Funktionen aus diesem Beitrag an verschiedenen Stellen hinzu. Details dazu finden Sie im genannten Beitrag.<\/p>\n An dieser Stelle schauen wir uns ein sehr einfaches Beispiel an. Dabei wollen wir Personen keine, eine oder mehrere E-Mail-Adressen zuordnen. Das Datenmodell umfasst nur zwei Tabellen: Die erste heißt tblPersonen <\/b>und enthält nur die Felder ID<\/b>, Vorname <\/b>und Nachname<\/b>.<\/p>\n Die zweite enthält die E-Mail-Adressen sowie ein Fremdschlüsselfeld zum Festlegen der Person, zu der die E-Mail-Adresse gehört und ein Ja\/Nein<\/b>-Feld namens StandardEMail<\/b>. Damit wollen wir festlegen, welche der E-Mail-Adressen eines Kunden standardmäßig verwendet werden soll (siehe Bild 3).<\/p>\n Bild 3: Datenmodell für ein einfaches Beispiel<\/span><\/b><\/p>\n Zum Verwalten der Daten verwenden wir ein Hauptformular namens frmPersonenEMails <\/b>und ein Unterformular namens sfmPersonenEMails<\/b>. Das Hauptformular zeigt die Daten der Tabelle tblPersonen <\/b>an. Das Unterformular liefert alle E-Mail-Adressen, die über das Feld PersonID <\/b>mit der Person aus dem Hauptformular verknüpft sind (siehe Bild 4).<\/p>\n Bild 4: Entwurf des Beispielformulars<\/span><\/b><\/p>\n Das Kontrollkästchen, das an das Feld StandardEMail <\/b>gebunden ist, haben wir chkStandardEMail <\/b>genannt, damit wir es unter VBA eindeutig von dem gebundenen Feld StandardEMail <\/b>unterscheiden können.<\/p>\n Wir gehen die Funktionen, die zum automatischen Verwalten der Standardzuordnung nötig sind, in der Reihenfolge durch, wie sie eingesetzt werden – beginnend mit leeren Tabellen. Wir fügen also zuerst im Hauptformular einen neuen Datensatz hinzu. Dann wechseln wir zum Unterformular, um eine erste E-Mail-Adresse anzulegen.<\/p>\n Wenn noch keine E-Mail-Adresse vorhanden ist, sollte der neue, leere Datensatz im Feld StandardEMail <\/b>bereits den Wert Wahr <\/b>als Standardwert enthalten. Dazu braucht es nicht viel: Wir müssen nur beim Anzeigen eines neuen Datensatzes im Unterformular eine Prozedur auslösen, die prüft, ob es für den aktuellen Datensatz im Hauptformular schon eine Standard-E-Mail-Adresse gibt.<\/p>\n Und dafür haben wir ja schon die richtige Funktion vorbereitet – HoleStandardzuordnung<\/b>. Wenn diese den Wert 0 <\/b>liefert, gibt es noch keine, und dann soll das Feld StandardEMail <\/b>auf Wahr <\/b>eingestellt werden.<\/p>\n Die Prozedur hinterlegen wir für die Ereigniseigenschaft Beim Anzeigen <\/b>des Unterformulars (siehe Listing 7). Sie holt den Wert der Funktion HoleStandardzuordnung <\/b>für die Tabelle tblEMailAdressen <\/b>für alle Datensätze, deren Feld PersonID <\/b>den Wert des Feldes ID <\/b>aus dem Hauptformular aufweist, und speichert diesen in der Variablen lngStandardEMailID<\/b>. Dann prüft sie, ob der Wert 0 <\/b>ist – falls ja, wird der Standardwert für das Steuerelement chkStandardEMail <\/b>auf True <\/b>eingestellt, anderenfalls auf False<\/b>. Deshalb sieht ein neuer, leerer Datensatz im Unterformular nun wie in Bild 5 aus.<\/p>\n Bild 5: Korrekter Standardwert für den ersten neuen Datensatz im Unterformular<\/span><\/b><\/p>\n Listing 7: Einstellen des Standardwertes für den aktuellen Datensatz im Unterformular<\/span><\/b><\/p>\n Wenn wir hier nun einen Datensatz anlegen und speichern, sollte das Kontrollkästchen chkStandardEMail <\/b>allerdings standardmäßig den Wert False <\/b>anzeigen. Und das ist auch der Fall – die Prozedur funktioniert also wie gewünscht (siehe Bild 6).<\/p>\n Bild 6: Der nächste Datensatz wird automatisch nicht als Standard vorgeschlagen.<\/span><\/b><\/p>\n Nun geben wir eine weitere E-Mail-Adresse ein und wollen diesen als Standard markieren. Das führt dazu, dass nun zwei Einträge als Standard markiert sind (siehe Bild 7).<\/p>\n Bild 7: Allerdings kann man aktuell noch mehrere Standarddatensätze für eine Person anlegen.<\/span><\/b><\/p>\n Damit kommen wir zur nächsten Technik.<\/p>\n Wenn der Benutzer einen anderen Datensatz als Standard setzen möchte, müssen wir eventuell schon gesetzten Standarddatensätze den Status als Standard entziehen.<\/p>\n Genauso wollen wir direkt verhindern, dass ein Standardwert entfernt wird, indem der Benutzer diesen abwählt.<\/p>\n Ein neuer Standardwert soll nur gewählt werden können, indem er diesen auswählt. Sollte der Benutzer dennoch den aktuellen Standardeintrag abwählen, soll er eine entsprechende Meldung erhalten und die Änderung soll unterbunden werden.<\/p>\n Um dies zu realisieren, hinterlegen wir eine Prozedur für die Eigenschaft Vor Aktualisierung <\/b>des Steuerelements chkStandardEMail<\/b>, die wie in Listing 8 aussieht.<\/p>\n Listing 8: Entfernen des Standardwertes für alle anderen Datensätze<\/span><\/b><\/p>\n Die Prozedur wertet den aktuellen Wert von chkStandardEMail <\/b>aus. Ist dieser True<\/b>, soll der Wert des Feldes StandardEMail <\/b>für alle anderen E-Mails dieser Person auf False <\/b>eingestellt werden. Dazu rufen wir die Prozedur EntferneStandardzuordnungen <\/b>auf und übergeben die entsprechenden Daten.<\/p>\n Zuvor speichern wir noch den aktuellen Wert, den wir mit der Funktion HoleStandardzuordnung <\/b>ermitteln, in der Variablen lngLetzterStandardeintragID<\/b>. Wozu wir das machen, erläutern wir später:<\/p>\n Hat chkStandardEMail <\/b>den Wert False<\/b>\/-1<\/b>, stellen wir den Parameter Cancel <\/b>auf True <\/b>ein, damit die Änderung rückgängig gemacht wird. Außerdem geben wir eine Meldung aus, wie die Vorgehensweise zum Auswählen eines neuen Standardwertes ist. Damit können wir nun bequem jeweils einen anderen Eintrag als Standardwert auswählen. Und wenn wir chkStandardEMail <\/b>für einen Eintrag anklicken, der bereits angeklickt ist, erhalten wir die Meldung aus Bild 8. Nach dem Bestätigen der Meldung ist der abgewählte Eintrag wieder aktiviert.<\/p>\n Bild 8: Meldung, wenn man versucht, eine Standardzuordnung abzuwählen.<\/span><\/b><\/p>\n Wenn wir das Kontrollkästchen für einen neuen, leeren Eintrag anklicken, wird dieses aktiviert, was korrekt ist, denn durch das Anklicken wird der neue, leere Datensatz angelegt. In diesem Fall leert die Prozedur chkStandardEMail_BeforeUpdate <\/b>ebenfalls das Feld chkStandardEMail <\/b>für die übrigen Datensätze. Fügen wir danach eine neue E-Mail-Adresse hinzu und speichern den Datensatz, hat der Code richtig gearbeitet.<\/p>\n Allerdings kann es auch sein, dass wir den neuen und noch nicht gespeicherten Datensatz durch Drücken der Escape<\/b>-Taste wieder verwerfen. Dann haben wir plötzlich keinen Standarddatensatz mehr (siehe Bild 9).<\/p>\n Bild 9: Alle Standardmarkierungen sind entfernt.<\/span><\/b><\/p>\n Das ist logisch, denn wir haben den Status von den vorhandenen Einträgen entfernt und durch das Abbrechen des Anlegens des neuen Datensatzes ist auch der als Standard definierte Datensatz weg.<\/p>\n Wir müssen für diesen Fall also eine Vorsichtsmaßnahme treffen. Und hier kommt die Variable lngLetzterStandardeintragID <\/b>ins Spiel, die wir in der BeforeUpdate<\/b>-Ereigniseigenschaft mit dem vorherigen Standardwert gefüllt haben.<\/p>\n Wenn der Benutzer dann die Escape<\/b>-Taste betätigt, wird das Ereignis Bei Rückgängig <\/b>ausgelöst. Hier können wir prüfen, ob gerade ein neuer Datensatz verworfen wird und die Standardzuordnung wieder auf den in lngLetzterStandardeintragID <\/b>gespeicherten Datensatz einstellen.<\/p>\n Die entsprechende Prozedur prüft zuerst mit Me.NewRecord <\/b>auf einen neuen Datensatz. Dann untersucht sie, ob ein Wert für lngLetzterStandardeintragID <\/b>gesetzt wurde. Ist das der Fall, stellen wir den Standarddatensatz wieder auf den zuvor gespeicherten Datensatz ein.<\/p>\n Dazu nutzt die Prozedur die Routine SetzeStandardzuordnung <\/b>und übergibt mit dem letzten Parameter den Primärschlüsselwert des einzustellenden Datensatzes. Außerdem stellt sie lngLetzterStandardeintragID <\/b>wieder auf den Wert 0 <\/b>ein:<\/p>\n Das gleiche Problem tritt übrigens auch auf, wenn wir einen anderen Datensatz als Standardzuordnung definieren und vor dem Speichern des geänderten Datensatzes die \n
Pflege von 1:n-Beziehungen mit Standardzuordnung<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_002.png\")
<\/p>\n\n
Entfernen des Status als Standardadresse<\/h2>\n
Setzen des Status als Standardadresse<\/h2>\n
Ermitteln der aktuellen Standardadresse<\/h2>\n
VBA-Funktionen zum einfachen Umsetzen der Anforderungen<\/h2>\n
\n
Zeitpunkte des Zugriffs auf die 1:n-Beziehung mit Standardzuordnung<\/h2>\n
\n
Funktionen zum Verwalten der Standardzuordnungen<\/h2>\n
\n
Standardzuordnung holen<\/h2>\n
Public Function <\/span>HoleStandardzuordnung(strTabelle As String<\/span>, strStandardfeld As String<\/span>, strPKFeld As String<\/span>, _\r\n strFKFeld As String<\/span>, lngFKID As Long<\/span>) As Long<\/span>\r\n Dim <\/span>lngPKID As Long<\/span>\r\n lngPKID = Nz(DLookup(strPKFeld, strTabelle, strFKFeld & \" = \" & lngFKID & \" AND \" & strStandardfeld & \" = -1\"), 0)\r\n HoleStandardzuordnung = lngPKID\r\nEnd Function<\/span><\/pre>\nStandardzuordnung setzen<\/h2>\n
Public Sub <\/span>SetzeStandardzuordnung(strTabelle As String<\/span>, strStandardfeld As String<\/span>, strPKFeld As String<\/span>, lngPKID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE \" & strTabelle & \" SET \" & strStandardfeld & \" = -1 WHERE \" & strPKFeld & \" = \" & lngPKID, _\r\n dbFailOnError\r\nEnd Sub<\/span><\/pre>\nStandardzuordnungen entfernen<\/h2>\n
Public Sub <\/span>EntferneStandardzuordnungen(strTabelle As String<\/span>, strStandardfeld As String<\/span>, strFKFeld As String<\/span>, _\r\n lngFKID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE \" & strTabelle & \" SET \" & strStandardfeld & \" = 0 WHERE \" & strFKFeld & \" = \" & lngFKID, _\r\n dbFailOnError\r\nEnd Sub<\/span><\/pre>\nErste Zuordnung holen<\/h2>\n
Public Function <\/span>HoleErsteZuordnung(strTabelle As String<\/span>, strPKFeld As String<\/span>, strFKFeld As String<\/span>, _\r\n lngFKID As Long<\/span>) As Long<\/span>\r\n HoleErsteZuordnung = Nz(DLookup(strPKFeld, strTabelle, strFKFeld & \" = \" & lngFKID), 0)\r\nEnd Function<\/span><\/pre>\nStandardadresse holen oder setzen, falls nicht vorhanden<\/h2>\n
Public Function <\/span>HoleOderSetzeStandardzuordnung(strTabelle As String<\/span>, strStandardfeld As String<\/span>, strPKFeld As String<\/span>, _\r\n strFKFeld As String<\/span>, lngFKID As Long<\/span>) As Long<\/span>\r\n Dim <\/span>lngPKID As Long<\/span>\r\n lngPKID = HoleStandardzuordnung(strTabelle, strStandardfeld, strPKFeld, strFKFeld, lngFKID)\r\n If <\/span>lngPKID = 0 Then<\/span>\r\n lngPKID = HoleErsteStandardzuordnung(strTabelle, strPKFeld, strFKFeld, lngFKID)\r\n If <\/span>Not<\/span> lngPKID = 0 Then<\/span>\r\n Call<\/span> SetzeStandardzuordnung(strTabelle, strStandardfeld, strPKFeld, lngPKID)\r\n End If<\/span>\r\n End If<\/span>\r\n HoleOderSetzeStandardadresse = lngPKID\r\nEnd Function<\/span><\/pre>\nMehrfache Standardzuordnungen entfernen<\/h2>\n
Public Function <\/span>MehrfacheStandardzuordnungenEntfernen(strTabelle As String<\/span>, strStandardfeld As String<\/span>, _\r\n strPKFeld As String<\/span>, strFKFeld As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngErsteStandardzuordnungID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT \" & strFKFeld & \" FROM \" & strTabelle & \" WHERE \" & strStandardfeld _\r\n & \" = -1 GROUP BY \" & strFKFeld & \" HAVING Count(*) > 1\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n lngErsteStandardzuordnungID = HoleStandardzuordnung(strTabelle, strStandardfeld, strPKFeld, _\r\n strFKFeld, rst(strFKFeld))\r\n Call<\/span> EntferneStandardzuordnungen(strTabelle, strStandardfeld, strFKFeld, rst(strFKFeld))\r\n Call<\/span> SetzeStandardzuordnung(strTabelle, strStandardfeld, strPKFeld, lngErsteStandardzuordnungID)\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Function<\/span><\/pre>\nFunktionen zur Verwaltung von Standardzuordnungen in der Praxis<\/h2>\n
![\"Datenmodell](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_003.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_004.png\")
<\/p>\nStandardzuordnung beim Anlegen des ersten Datensatzes<\/h2>\n
![\"Korrekter](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_005.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Dim <\/span>lngStandardEMailID As Long<\/span>\r\n lngStandardEMailID = HoleStandardzuordnung(\"tblEMailAdressen\", \"StandardEMail\", \"ID\", \"PersonID\", Nz(Me.Parent!ID, 0))\r\n If <\/span>lngStandardEMailID = 0 Then<\/span>\r\n Me!chkStandardEMail.DefaultValue = True<\/span>\r\n Else<\/span>\r\n Me!chkStandardEMail.DefaultValue = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Der](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_006.png\")
<\/p>\nAnderen Eintrag als Standard einstellen<\/h2>\n
![\"Allerdings](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_007.png\")
<\/p>\nPrivate Sub <\/span>chkStandardEMail_BeforeUpdate(Cancel As Integer<\/span>)\r\n Select Case Me!chkStandardEMail\r\n Case <\/span>-1\r\n lngLetzterStandardeintragID = HoleStandardzuordnung(\"tblEMailAdressen\", \"StandardEMail\", \"ID\", _\r\n \"PersonID\", Nz(Me.Parent!ID, 0))\r\n Call<\/span> EntferneStandardzuordnungen(\"tblEMailAdressen\", \"StandardEMail\", \"PersonID\", Me!PersonID)\r\n Case <\/span>0\r\n Cancel = True<\/span>\r\n MsgBox<\/span> \"Wählen Sie eine andere Adresse als Standard aus, um diese abzuwählen.\", _\r\n vbOKOnly + vbExclamation, \"Abwahl nicht möglich\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>lngLetzterStandardeintragID As Long<\/span><\/pre>\n![\"Meldung,](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_008.png\")
<\/p>\nStandard für neuen Eintrag setzen und wieder verwerfen<\/h2>\n
![\"Alle](\"..\/fileadmin\/_temp_\/2023_06\/pic_1469_009.png\")
<\/p>\nPrivate Sub <\/span>Form_Undo(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> lngLetzterStandardeintragID = 0 Then<\/span>\r\n Call<\/span> SetzeStandardzuordnung( _\r\n \"tblEMailAdressen\", _\r\n \"StandardEMail\", \"ID\", _\r\n lngLetzterStandardeintragID)\r\n lngLetzterStandardeintragID = 0\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n