![\"Die](\"..\/tl_files\/images\/pic_384_001.png\")
<\/a><\/p>\nBild 1: Die an der Zuordnung von Handys und Verträgen zu den Personen beteiligten Tabellen<\/p>\n
Warum benötigen wir m:n-Beziehungen und keine einfachen Lookupfelder in den Tabellen tblMobilfunkgeraete <\/b>und tblVertraege<\/b> Bei den Mobilfunkgeräten gehen wir davon aus, dass die Geräte durchaus „vererbt“ werden können, beispielsweise von Familienmitglied zu Familienmitglied. Deshalb speichern wir mit Datum, wann welches Gerät von welcher Person genutzt wurde. Andersherum kann es auch sein, dass ein Familienmitglied gleich mehrere Geräte verwendet – beispielsweise ein Smartphone und ein Tablet oder zusätzlich noch eine Smartwatch. Bei den Verträgen wollen wir es ermöglichen, die Kosten aufzuteilen zwischen mehreren Personen – oder auch einer Person die Kosten von mehreren Verträgen aufzudrücken.<\/p>\nZuordnung von Mobilfunkgeräten zu Personen<\/h2>\n
Um die Mobilfunkgeräte einer Person zuzuordnen, gibt es zwei Möglichkeiten: Wir führen im Formular frmPersonendetails <\/b>in einem Unterformular eine Liste der Geräte dieser Person. Oder wir fügen zum Formular frmMobilfunkgeraetDetails <\/b>entsprechende Steuer-elemente hinzu, um die Zuordnung zu einer Person festzulegen.<\/p>\n
Wir beginnen mit dem Formular frmPersonendetails<\/b>. Zunächst legen wir eine Abfrage an, die wir als Datenherkunft für das noch zu erstellende Unterformular sfmPersonenMobilfunkgeraete <\/b>anlegen. Dieses enthält die Tabelle tblPersonenMobilfunkgeraete <\/b>als Datenquelle und liefert alle Felder, wobei die Abfrage die Datensätze absteigend nach dem Feld Startdatum <\/b>sortiert (siehe Bild 2).<\/p>\n
Bild 2: Abfrage als Datenherkunft des Unterformulars sfmPersonenMobilfunkgeraete<\/p>\n Diese Abfrage weisen wir nach dem Speichern dem neuen Unterformular sfmPersonenMobilfunkgeraete <\/b>als Datenherkunft zu.<\/p>\n Dem Detailbereich des Formularentwurfs weisen wir nun die drei Felder MobilfunkgeraetID<\/b>, Startdatum <\/b>und Enddatum<\/b> zu (siehe Bild 3). Außerdem stellen wir für die Eigenschaft Standardansicht <\/b>den Wert Datenblatt <\/b>fest.<\/p>\n Bild 3: Das Unterformular sfmPersonenMobilfunkgeraete<\/p>\n Danach speichern und schließen wir das Unterformular sfmPersonenMobilfunkgeraete<\/b> und öffnen das Formular frmPersonendetails <\/b>in der Entwurfsansicht. Die OK<\/b>-Schaltfläche ziehen wir ein wenig nach unten und fügen per Drag and Drop aus dem Navigationsbereich das Unterformular sfmPersonenMobilfunkgeraete <\/b>zum Entwurf des Formulars hinzu.<\/p>\n Das Ergebnis sieht wie in Bild 4 aus. Das Eigenschaftsfenster sollte für das Unterformular-Steuerelement gleich den Wert PersonID <\/b>in den beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>eingetragen haben.<\/p>\n Bild 4: Einbau des Unterformulars in das Hauptformular<\/p>\n Dadurch werden gleich beim Wechsel in die Formularansicht automatisch nur die Einträge der Tabelle tblPersonenMobilfunkgeraete <\/b>angezeigt, die auch der jeweiligen Person zugewiesen sind. Wenn Sie noch keine Werte von Hand in die Tabelle tblPersonenMobilfunkgeraete <\/b>eingetragen haben, dürfte das Unterformular jedoch noch leer sein.<\/p>\n Wenn Sie allerdings schon ein paar Datensätze in die Tabelle tblMobilfunkgeraete <\/b>eingegeben haben, lässt sich im Formular frmPersonendetails <\/b>zumindest schon einmal ein Datensatz über das Kombinationsfeld auswählen (siehe Bild 5).<\/p>\n Bild 5: Das Formular frmPersonendetails mit den zugeordneten Mobilfunkgeräten<\/p>\n Die Auswahl können wir nun noch mit anderen Funktionen kombinieren. So könnten wir beispielsweise dafür sorgen, dass das Feld Startdatum<\/b>, wenn es bei der Auswahl des Mobilfunkgeräts noch leer ist, mit dem aktuellen Datum gefüllt wird. Das erledigen wir, indem wir für das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes zur Auswahl des Mobilfunkgerätes eine entsprechende Ereignisprozedur hinterlegen. Dazu ändern wir zunächst den Namen des Kombinationsfeldes im Unterformular auf cboMobilfunk-geraetID <\/b>(wir wollen zumindest alle Elemente, für die wir Ereignisprozeduren anlegen, mit einem Präfix versehen, welches den Steuerelementtyp erkennen lässt). Anschließend legen wir die folgende Ereignisprozedur an:<\/p>\n Die Prozedur prüft, ob das Feld zum Speichern des Startdatums, welches wir ebenfalls mit einem entsprechenden Präfix versehen, leer ist. Falls ja, trägt es das aktuelle Datum als Startdatum ein.<\/p>\n Den Aufwand mit der Verknüpfungstabelle haben wir durchgeführt, damit wir es auch speichern können, wenn ein Gerät einen gewissen Zeitraum der einen Person zugeordnet ist und danach einer anderen Person zugeteilt wird. Diesen Vorgang müssen wir nun noch in unserer Lösung berücksichtigen.<\/p>\n Wenn beispielsweise der Person mit der ID 1 <\/b>das Gerät namens Beispielgerät zugeordnet ist und wir dieses Gerät nun der Person mit der ID 2 <\/b>zuordnen wollen (siehe Bild 6), müssen wir auch hier eingreigen: Sonst haben nämlich bald beide Personen das gleiche Gerät als aktives Gerät in ihrer Liste stehen. Was tun Wir müssen beim Auswählen des Gerätes auch noch prüfen, ob es bereits einer anderen Person zugeordnet ist. In diesem Falle benötigen wir weiteren Code, der nicht nur die Prüfung durchführt, sondern auch noch ein Meldungsfenster anzeigt, mit dem wir den Benutzer fragen, ob dieses Mobilfunkgerät den Besitzer wechseln soll. In diesem Fall nutzen wir dann nicht das Ereignis Nach Aktualisierung<\/b>, sondern Vor Aktualisierung<\/b>. Wenn sich der Benutzer nämlich entscheidet, das vergebene Gerät nicht einer anderen Person zuzuordnen, können wir dieser Ereignisprozedur über den Parameter Cancel <\/b>nämlich mitteilen, dass die Auswahl des Eintrags über das Kombinationsfeld abgebrochen wird.<\/p>\n Bild 6: Mobilfunkgerät von einem zum anderen Benutzer<\/p>\n Die Prozedur aus Listing 1 erledigt genau dies: Sie versucht zunächst, den Primärschlüsselwert eines Datensatzes der Tabelle tblPersonenMobilfunkgeraete <\/b>zu ermitteln, der bereits mit dem auszuwählenden Mobilfunkgerät verknüpft ist und bei dem das Feld Enddatum <\/b>zusätzlich noch leer ist.<\/p>\n Listing 1: übernehmen eines Mobilfunkgerätes durch einen anderen Nutzer<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nPrivate Sub <\/span>cboMobilfunkgeraetID_AfterUpdate()\r\n If <\/span>IsNull(Me!txtStartdatum) Then<\/span>\r\n Me!txtStartdatum = Date\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nMobilfunkgeräte übernehmen<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cboMobilfunkgeraetID_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>lngPersonID As Long<\/span>\r\n Dim <\/span>strPerson As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n lngPersonID = Nz(DLookup(\"PersonID\", \"tblPersonenMobilfunkgeraete\", \"MobilfunkgeraetID = \" & Me!cboMobilfunkgeraetID _\r\n & \" AND Enddatum IS NULL\"), 0)\r\n If <\/span>Not<\/span> lngPersonID = 0 Then<\/span>\r\n strPerson = DLookup(\"Vorname & ' ' & Nachname\", \"tblPersonen\", \"PersonID = \" & lngPersonID)\r\n intResult = MsgBox<\/span>(\"Das Gerät ist aktuell der Person '\" & strPerson & \"' zugeordnet. übernehmen\", vbYesNo)\r\n If <\/span>intResult = vbYes Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n strSQL = \"UPDATE tblPersonenMobilfunkgeraete SET Enddatum = \" & SQLDatum(Date) & \" WHERE PersonID = \" _\r\n & lngPersonID & \" AND Enddatum IS NULL\"\r\n db.Execute strSQL\r\n Else<\/span>\r\n Cancel = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t