<\/p>\n
Im vierten Teil der Artikelreihe zum Thema „Handyverwaltung“ setzten wir die Arbeit an den Formularen der Lösung fort. Dieser Teil kümmert sich um die Verwaltung der Mobilfunkgeräte. Dazu legen wir wieder ein Übersichtsformular und ein Detailformular an. Das Detailformular wird etwas anspruchsvoller, da wir darin auch die zum jeweiligen Mobilfunkgerät gehörende SIM-Karte verwalten wollen.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1706_Handyverwaltung.accdb<\/b>.<\/p>\nVorbereitungen<\/h2>\n
Den Teil des Datenmodells, den wir uns in diesem Teil der Artikelreihe ansehen, finden Sie in Bild 1. Diesmal geht es um die Mobilfunkgeräte, zu denen ja nicht nur Handys, sondern auch Tablets gehören. Nach aktuellem Stand muss man der Tabelle der Mobilfunkgerätearten (tblMobilfunkgeraetearten<\/b>) ja auch noch Uhren hinzurechnen (Stichwort AppleWatch<\/b>). Dies ist das erste Lookup-Feld, welches wir bei der Eingabe von Mobilfunkgeräten berücksichtigen müssen.<\/p>\n
Bild 1: Der Teil des Datenmodells, um den wir uns in diesem Artikel kümmern<\/p>\n Die zweite Art von zusätzlichen Daten betrifft die SIM-Karten, die in den Geräten stecken. Hierbei ist zu berücksichtigen, dass es Geräte gibt, in denen keine SIM-Karte steckt, aber auch SIM-Karten, die in keinem Gerät stecken. Der Regelfall wird aber sein, dass eine SIM-Karte auch einem Gerät zugeordnet ist.<\/p>\n Dem tragen wir durch eine Tabelle Rechnung, die wie eine Verknüpfungstabelle zur Herstellung einer m:n-Beziehung angezeigt wird und die tblMobilfunkgeraeteSIMKarten <\/b>benannt wird. Aber handelt es sich tatsächlich um eine m:n-Tabelle Immerhin gibt es ja noch eine weitere Einschränkung: jede SIM-Karte kann nämlich nur in einem einzigen Gerät stecken, und jedes Gerät kann auch nur eine SIM-Karte aufnehmen. (Ups: Stimmt das wirklich, oder gibt es vielleicht sogar Geräte, welche mehr als eine SIM-Karte aufnehmen – etwa, um verschiedene Netze abzudecken Wie auch immer: Wir werden diesen Fall außen vor lassen.)<\/p>\n Die Beziehungen zwischen der Tabelle tblMobilfunkgeraeteSIMKarten <\/b>und den Tabellen tblMobilfunkgeraete <\/b>und tblSIMKarten <\/b>sehen im Beziehungen-Fenster wie normale 1:n-Beziehungen aus. Wenn wir allerdings doppelt auf den Beziehungspfeil klicken, erkennen wir beispielsweise im Dialog zum Bearbeiten der Beziehung aus Bild 2, dass hier in der Tat eine 1:1-Beziehung angelegt wurde.<\/p>\n Bild 2: Die Beziehung wird als 1:1-Beziehung eingetragen.<\/p>\n Das ist auch kein Wunder, denn wir haben für die beiden Fremdschlüsselfelder der Verknüpfungstabelle, also für MobilfunkgeraetID <\/b>und SIMKarteID<\/b>, nicht etwa einen zusammengesetzten, eindeutigen Index angelegt, sondern jedes Fremdschlüsselfeld für sich mit einem eindeutigen Index versehen. Deshalb legt Access standardmäßig eine 1:1-Beziehung für diese Beziehungen an. Interessant ist jedoch, dass Access diese im Beziehungen-Fenster nicht als 1:1-Beziehung, sondern als 1:n-Beziehungen abbildet.<\/p>\n Nun, da wir uns dem Formular für die Mobilfunkgeräte zuwenden wollen, werfen wir einen genauen Blick auf die Tabelle tblMobilfunkgeraete <\/b>und stellen fest, dass diese doch noch ein wenig mager ausgestattet ist. MobilfunkgeraetID<\/b>, Bezeichnung<\/b>, Anschaffungspreis <\/b>und MobilfunkgeraeteartID <\/b>sind wohl doch etwas wenig Informationen. Als Erstes fehlt uns der Hersteller des Geräts. Ist es ein iPhone Ein Samsung Hier stellt sich die allerdings die Frage, ob wir den Hersteller gleich mit den Datensätzen der Tabelle tblMobilfunkgeraete <\/b>verknüpfen wollen. Immerhin gibt es ja auch noch die einzelnen Modelle und Baureihen der verschiedenen Geräte. Wollen wir also den Hersteller in der Tabelle speichern und auch noch die Angabe des Modells Das macht eigentlich keinen Sinn, denn es gibt ja jedes Modell auch nur von einem Hersteller. Wenn wir dann den Hersteller zu den Modellen speichern und nochmals zu den Mobilfunkgeräten, hätten wir redundante Daten, die später zu Inkonsistenzen führen könnten. Dann wäre ein Mobilfunkgerät beispielsweise ein iPhone, aber ein unaufmerksamer Benutzer stellt vielleicht als Hersteller des Geräts Samsung<\/b> ein.<\/p>\n Also gehen wir noch einen Schritt weiter und fügen der Tabelle tblMobilfunkgeraete <\/b>zunächst ein Fremschlüsselfeld namens ModellID <\/b>hinzu, welches seine Daten aus der Tabelle tblModelle <\/b>bezieht. Die Tabelle tblModelle <\/b>wiederum enthält beispielsweise Felder mit der Bezeichnung des Modells, der Angabe des Speicherplatzes des Modells und mehr.<\/p>\n Außerdem legen wir hier ein Fremdschlüsselfeld für den Hersteller namens HerstellerID <\/b>an. Den Hersteller wollen wir aus einer Lookup-Tabelle auswählen, die wir zunächst hinzufügen. Die Tabelle heißt tblHersteller <\/b>und enthält die Felder HerstellerID<\/b>, Bezeichnung<\/b>, Webseite<\/b>, EMailSupport <\/b>und TelefonSupport<\/b> – diese können Sie natürlich nach Bedarf erweitern. Für das Feld Bezeichnung <\/b>legen wir einen eindeutigen Index fest (siehe Bild 3).<\/p>\n Bild 3: Eindeutiger Index für das Feld Bezeichnung<\/p>\n Wir können der Tabelle auch gleich einige Datensätze hinzufügen, damit wir etwas Material zum Testen haben (siehe Bild 4).<\/p>\n Bild 4: Datensätze der Tabelle tblHersteller<\/p>\n Wenn wir schon dabei sind, einen genauen Blick auf das Datenmodell zu werfen, sollten wir auch noch schauen, ob das Fremdschlüsselfeld MobilfunkgeraeteartID <\/b>wirklich in die Tabelle tblMobilfunkgeraete <\/b>gehört. In der Tat sollten wir es wohl auch in die Tabelle tblModelle <\/b>verschieben, denn sonst hätten wir das gleiche Problem wie mit den Herstellern – ein iPhone ist nun einmal ein Smartphone und kein Tablet.<\/p>\n Genau das wäre aber bei fehlerhafter Eingabe in den aktuellen Stand der Tabelle tblMobilfunkgeraete <\/b>eine mögliche Kombination. Um uns möglichst wenig Arbeit zu machen, nutzen wir die Zwischenablage, um das Feld zu verschieben: Markieren Sie das Feld MobilfunkgeraeteartID <\/b>über den Datensatzmarkierer in der Entwurfsansicht der Tabelle tblMobilfunkgeraete<\/b>, betätigen Sie die Tastenkombination Strg + C<\/b>, wechseln Sie zum Entwurf der Tabelle tblModelle <\/b>und fügen Sie die Zeile dort nach vorheriger Markierung der Zielzeile mit der Tastenkombination Strg + V <\/b>ein. Dies kopiert das Feld mit allen Eigenschaften, also auch mit den Angaben zum Nachschlagefeld. Sie müssen lediglich im Beziehungen-Dialog die alte Beziehung zwischen der Tabelle tblMobilfunkgeraete <\/b>und tblMobilfunkgeraetearten <\/b>löschen, bevor Sie das Feld MobilfunkgeraeteartID <\/b>aus der Tabelle tblMobilfunkgeraete <\/b>entfernen können. Anschließend fügen Sie die passende Beziehung zwischen dem Feld MobilfunkgeraeteartID <\/b>der Tabelle tblModelle <\/b>und dem gleichnamigen Feld der Tabelle tblMobilfunkgeraetearten <\/b>hinzu.<\/p>\n Der aktuelle Zustand dieses Teils des Datenmodells sieht nun wie in Bild 5 aus.<\/p>\n Bild 5: Datenmodell der Tabellen rund um die Mobilfunkgeräte<\/p>\n Für die Hersteller bauen wir uns ein Haupt- und ein Unterformular, wobei beide Formulare wieder die gleiche Datenherkunft nutzen – eine Abfrage, welche die Daten der Tabelle tblHersteller <\/b>nach dem Feld Bezeichnung <\/b>sortiert. In diesem Fall haben wir einige Feinheiten eingebaut, durch die der im Haupt- und im Unterformular angezeigte Datensatz synchron gehalten wird. Das heißt, wenn Sie im Unterformular zwischen den Datensätzen navigieren, wird jeweils der passende Datensatz im Hauptformular angezeigt und umgekehrt.<\/p>\n Detailinformationen dazu finden Sie im Artikel Haupt- und Unterformular synchron<\/b>. Das Formular sieht anschließend wie in Bild 6 aus.<\/p>\n Bild 6: Verwaltung der Hersteller<\/p>\n Für die Verwaltung der Mobilfunkgeräte wollen wir diesmal wieder ein Übersichtsformular erstellen und ein Detailformular zur Anzeige der Einzelheiten der Geräte. Das Übersichtsformular bauen wir als Haupt- und Unterformular auf.<\/p>\n Das Unterformular sfmMobilfunkgeraeteUebersicht <\/b>verwendet die Abfrage qryMobilfunkgeraeteUebersicht<\/b> als Datenherkunft. Das Unterformular soll alle wichtigen Informationen über das Gerät anzeigen, also binden wir auch die verknüpften Tabellen wie tblModelle<\/b>, tblHersteller <\/b>und tblMobilfunkgeraetearten <\/b>ein. Den Entwurf der Abfrage finden Sie in Bild 7. Da in diesem Unterformular keine neuen Modelle, Hersteller oder Mobilfunkgerätearten zugewiesen werden sollen, fügen wir nicht die Nachschlagefelder der jeweiligen Tabellen hinzu, sondern nur die in den Tabellen enthaltenen Felder. Da wir in den Tabellendefinitionen die Bezeichnungen der enthaltenen Objekte, also etwa in der Tabelle tblMobilfunkgeraete<\/b>, tblModelle <\/b>oder tblHersteller <\/b>auch mit dem Feldnamen Bezeichnung <\/b>versehen haben, fügen wir den Feldern im Abfrageentwurf noch eine entsprechende Beschriftung hinzu, die dann beim Hinzufügen der Felder in die jeweiligen Formulare berücksichtigt wird. Dies erledigen wir über die Eigenschaft Beschriftung <\/b>im Eigenschaften-Fenster der entsprechenden Eigenschaft.<\/p>\n Bild 7: Datenherkunft des Unterformulars sfmMobilfunkgeraeteUebersicht<\/p>\n Wenn wir diese Abfrage dem Formular sfmMobilfunkgeraeteUebersicht <\/b>zuweisen und in der Entwurfsansicht die Feldliste einblenden, zeigt diese bei den mehrfach vorkommenden Feldern namens Bezeichnung jeweils zusätzlich den Tabellennamen an (siehe Bild 8). Wenn wir die Felder jedoch in den Detailbereich des Entwurfs ziehen, werden die Beschriftungen in den Bezeichnungsfeldern entsprechend der in der Eigenschaft Beschriftung <\/b>der Felder der Abfrage angepasst. Über das Unterformular direkt sollen keine Datensätze bearbeitet, hinzugefügt oder gelöscht werden, daher stellen wir die Eigenschaften Anfügen zulassen<\/b>, Löschen zulassen <\/b>und Bearbeitungen zulassen <\/b>auf den Wert Nein <\/b>ein.<\/p>\n Bild 8: Hinzufügen der Felder zum Entwurf des Formulars sfmMobilfunkgeraeteUebersicht<\/p>\n Wir brauchen nun nur noch die Eigenschaft Standardansicht <\/b>auf den Wert Datenblatt <\/b>einzustellen und können das Formular dann speichern und schließen.<\/p>\n In das Hauptformular frmMobilfunkgeraeteUebersicht <\/b>ziehen wir zunächst das Unterformular sfmMobilfunkgeraeteUebersicht<\/b>. Dann stellen wir die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>des Formulars auf Nein <\/b>und die Eigenschaft Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Außerdem soll das Unterformular-Steuerelement automatisch vergrößert werden, wenn der Benutzer das Hauptformular vergrößert. Dazu stellen wir die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>jeweils auf Beide <\/b>ein. Nicht vergessen, die Eigenschaften für das Bezeichnungsfeld zum Unterformular, die automatisch mit geändert werden, wieder auf Links <\/b>und Oben <\/b>einzustellen! <\/p>\n Außerdem fügen wir dem Formular drei Schaltflächen namens cmdDetailsAnzeigen<\/b>, cmdNeuesGeraet <\/b>und cmdGeraetLoeschen <\/b>hinzu. Der Entwurf des Hauptformulars sieht dann wie in Bild 9 aus.<\/p>\n Bild 9: Entwurf des Hauptformulars frmMobilfunkgeraeteUebersicht<\/p>\n Die Schaltfläche cmdDetailsAnzeigen<\/b> ruft die Prozedur aus Listing 1 auf. Diese ermittelt den Primärschlüsselwert des aktuell im Unterformular markierten Datensatzes und ruft dann das Formular frmMobilfunkgeraetDetails <\/b>auf, welches wir im Anschluss erstellen. Als Parameter übergeben wir mit der DoCmd.OpenForm<\/b>-Methode unter anderem eine Bedingung, welche festlegt, welchen Datensatz wir im zu öffnenden Formular anzeigen wollen. Durch das Setzen des Parameters WindowMode <\/b>auf den Wert acDialog <\/b>wird der Code der aufrufenden Prozedur erst weiter ausgeführt, wenn das geöffnete Formular den Fokus wieder abgibt, also geschlossen oder unsichtbar gemacht wurde.<\/p>\n Listing 1: Anzeigen der Details zu einem Mobilfunkgerät<\/p>\n Die Schaltfläche cmdNeuesGeraet <\/b>soll beim Anklicken ebenfalls dieses Formular aufrufen, allerdings nicht zur Anzeige eines bestehenden Datensatzes, sondern zum Anlegen eines neuen. Auch hier verwenden wir die Methode DoCmd.OpenForm<\/b>, übergeben hier jedoch für den Parameter DataMode <\/b>den Wert acFormAdd<\/b>. Damit zeigt das zu öffnende Formular gleich einen neuen, leeren Datensatz an (siehe Listing 2).<\/p>\n Listing 2: Anzeigen des Formulars frmMobilfunkgeraetdetails zum Anlegen eines neuen Geräts<\/p>\n Die dritte Schaltfläche namens cmdGeraetLoeschen<\/b> ruft die Prozedur aus Listing 3 auf. Diese ermittelt die Bezeichnung des zu löschenden Gerätes und schreibt sie in die Variable strGeraet<\/b>. Damit stattet sie die Meldung einer MsgBox<\/b>-Anweisung aus und fragt den Benutzer, ob er das aktuell markierte Gerät wirklich löschen will. Falls ja, ermittelt die Prozedur den Primärschlüsselwert des zu löschenden Geräts und führt eine entsprechende DELETE<\/b>-Abfrage mit der Execute<\/b>-Methode des aktuellen Database<\/b>-Objekts aus. Anschließend aktualisiert sie die im Unterformular angezeigten Daten mit der Requery<\/b>-Methode.<\/p>\n Listing 3: Löschen des aktuell markierten Mobilfunkgeräts<\/p>\n Die Prozedur SteuerelementeAktivieren, die in allen drei erwähnten Ereignisprozeduren aufgerufen wird, haben wir noch nicht beschrieben. Diese sorgt dafür, dass die Schaltflächen zum Anzeigen der Details und zum Löschen des aktuell markierten Elements deaktiviert werden, wenn gar kein Datensatz im Unterformular markiert ist (was aber auch nur dann vorkommt, wenn die Datenherkunft leer ist). <\/p>\n Diese Prozedur finden Sie in Listing 4. Sie prüft mit der RecordCount<\/b>-Eigenschaft des Recordset<\/b>-Objekts des Unterformulars, ob Datensätze vorhanden sind. Die Variable bolMobilfunkgeraetVorhanden <\/b>wir auf True <\/b>eingestellt, wenn die Anzahl ungleich 0 <\/b>ist, sonst auf False<\/b>. Dieser Wert wird dann der Eigenschaft Enabled<\/b> der beiden Schaltflächen cmdDetailsAnzeigen <\/b>und cmdMobilfunkgeraet-Loeschen <\/b>zugewiesen, welche dann wie in Bild 10 deaktiviert werden.<\/p>\n Bild 10: Das Formular frmMobilfunkgeraeteUebersicht in der Formularansicht<\/p>\n Fehlt noch die Prozedur Form_Load<\/b>, die beim Laden des Formulars ausgelöst wird und die Prozedur SteuerelementeAktivieren <\/b>einmal direkt beim Öffnen des Formulars aufruft:<\/p>\n Das Formular frmMobilfunkgeraetDetails <\/b>verwendet eine Abfrage basierend auf der Tabelle tblMobilfunkgeraetID <\/b>als Datenherkunft (siehe Bild 11).<\/p>\n Bild 11: Datenherkunft des Formulars frmMobilfunkgeraetdetails<\/p>\n Das Formular selbst zeigt alle Felder dieser Abfrage an und enthält zusätzlich eine Schaltlfäche namens cmdOK <\/b>(siehe Bild 12). Diese ruft die folgende Prozedur auf:<\/p>\n Bild 12: Entwurf des Formulars frmMobilfunkgeraetdetails<\/p>\n Das in der Tabelle tblMobilfunkgeraete <\/b>als Nachschlagefeld definierte Feld ModellID <\/b>wird hier automatisch als Kombinationsfeld angelegt. Für dieses wollen wir nun wiederum ein paar Funktionen hinterlegen – zum Beispiel, um den aktuellen Eintrag per Doppelklick auf das Kombinationsfeld zu öffnen.<\/p>\n Das Kombinationsfeld benennen wir daher zunächst in cboModellID <\/b>um. Dann legen wir eine Variable fest, mit der wir das zu öffnende Formular frmModelldetails <\/b>referenzieren wollen:<\/p>\n Schließlich fügen wir die Prozedur hinzu, die durch das Ereignis Beim Doppelklicken <\/b>des Kombinationsfeldes cboModellID <\/b>ausgelöst wird:<\/p>\n Die Prozedur speichert den Namen des zu öffnenden Formulars, also frmModelldetails<\/b>, in der Variablen strFormular<\/b>. Danach prüft sie, ob cboModellID <\/b>überhaupt einen Wert enthält. Ist dies der Fall, wird dieser beim folgenden Aufruf der DoCmd.OpenForm<\/b>-Methode als Vergleichswert der WhereCondition <\/b>übergeben.<\/p>\n Das nun geöffnete Formular weisen wir der Variablen objFrmModelldetails <\/b>zu und stellen dessen Eigenschaft OnUnload <\/b>auf [Event Procedure] <\/b>sowie Modal <\/b>auf True <\/b>ein. Erstere sorgt dafür, dass wir das Ereignis Beim Entladen <\/b>im aktuellen Klassenmodul implementieren können, zweiteres versetzt das Formular in den modalen Modus, sodass die übrigen Elemente der Anwendung erst wieder verwendet werden können, wenn der Benutzer das Formular frmModelldetails <\/b>wieder geschlossen hat.<\/p>\n Was aber, wenn wir noch gar keine Datensätze in der Tabelle tblModelle <\/b>eingegeben haben Dann zeigt das Kombinationsfeld cboModellID <\/b>auch noch keine Datensätze an und ein Doppelklick auf das Kombinationsfeld zeigt auch keine Wirkung, da wir ja auf den Wert Null <\/b>testen.<\/p>\n Also fügen wir noch einen Else-Zweig zur Bedingung hinzu und erweitern die Prozedur um eine Funktion zum Öffnen des Formulars frmModelldetails <\/b>zum Anlegen eines neuen, leeren Datensatzes. Da dann auf jeden Fall ein Formular geöffnet wird, können wir gleichzeitig die übrigen Anweisungen aus der If…Then<\/b>-Bedingung herausnehmen:<\/p>\n Das so zu öffnende Formular frmModelldetails <\/b>verwendet die Tabelle tblModelle <\/b>als Datenherkunft und zeigt alle Felder dieser Tabelle im Detailbereich an (siehe Bild 13). Dieses Formular enthält gleich zwei Kombinationsfelder.<\/p>\n Bild 13: Entwurf des Formulars frmModelldetails<\/p>\n Eines wollen wir mit dem gleichen Mechanismus ausstatten wie bereits das Kombinationsfeld cboModellID <\/b>im Formular frmMobilfunkgeraetDetails<\/b>. Dazu stellen wir zunächst die Namen dieser beiden Steuer-elemente auf cboHerstellerID <\/b>und cboGeraeteartID <\/b>ein.<\/p>\n Dann legen wir für das Kombinationsfeld cboHerstellerID <\/b>eine Ereignisprozedur für das Ereignis Beim Doppelklicken <\/b>an. Die Prozedur zum Öffnen von frmHersteller<\/b> sieht ähnlich aus wie die vorherige Prozedur:<\/p>\n Allerdings ist das Formular frmHersteller <\/b>dafür ausgelegt, eine Übersicht der Hersteller im Unterformular anzuzeigen und den aktuell markierten Hersteller im Detailbereich des Hauptformulars. Wir wollen also nicht einfach nur das Formular nach den Herstellern filtern, sondern das Formular mit allen Daten öffnen und den im Kombinationsfeld des aufrufenden Formulars gewählten Eintrag anzeigen.<\/p>\n Dazu übergeben wir die ID dieses Datensatzes per Öffnungsargument (OpenArgs<\/b>) an das aufgerufene Formular. Dazu fügen wir im Formular frmHersteller <\/b>eine Prozedur für das Ereignis hinzu, dass durch die Ereigniseigenschaft Beim Öffnen <\/b>ausgelöst wird und wie folgt gefüllt wird:<\/p>\n Dies zeigt dann direkt den im Kombinationsfeld gewählten Eintrag an. Sollte das Kombinationsfeld noch leer sein, verschiebt das Formular den Datensatzzeiger auf einen leeren, neuen Datensatz und setzt den Fokus auf das Textfeld Bezeichnung<\/b>.<\/p>\n Wenn der Benutzer nun einen neuen Datensatz in diesem Formular anlegt oder einen der bestehenden Datensätze auswählt und das Formular schließt, löst dies das Ereignis Beim Entladen <\/b>aus. Dazu haben wir im aufrufenden Formular ja bereits die Eigenschaft OnUnload <\/b>auf den Wert [Event Procedure] <\/b>eingestellt. Nun müssen wir das Ereignis noch implementieren, damit es auch ausgeführt wird, wenn der Benutzer das Formular schließt. Das Ereignis definieren wir wie folgt (um die leere Prozedur anzulegen, wählen Sie im linken Kombinationsfeld oben im Code-Fenster der Klasse Form_frmModelldetails <\/b>den Eintrag objFrmHersteller <\/b>und im rechten Kombinationsfeld den Wert Unload <\/b>aus):<\/p>\n Wenn das Formular nun geschlossen wird, stellt die Prozedur den Wert des Kombinationsfeldes cboHerstellerID <\/b>auf den Wert des aktuell im Formular frmHersteller<\/b> angezeigten Datensatzes ein. Erst danach wird dieses Formular dann endgültig geschlossen.<\/p>\n Im Detail sieht die Abfolge dann wie in Bild 14 aus. Ein Doppeklick auf das Kombinationsfeld cboModellID<\/b> im Formular frmMobilfunkgeraetdetails <\/b>öffnet das Formular frmModelldetails<\/b>, welches wiederum ein Kombinationsfeld namens cboHerstellerID <\/b>bereithält, um per Doppelklick das Formlar frmHersteller <\/b>zu öffnen.<\/p>\n![\"Der](\"..\/tl_files\/images\/pic_376_001.png\")
<\/a><\/p>\n<\/a><\/p>\nErweiterung des Datenmodells<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nMobilfunkgeräteart verschieben<\/h2>\n
<\/a><\/p>\nHersteller verwalten<\/h2>\n
<\/a><\/p>\nFormular zur Verwaltung der Mobilfunkgeräte<\/h2>\n
Das Unterformular sfm-Mobil-funk-geraete-Ueber-sicht<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nDas Hauptformular frm-Mobil-funk-geraete-Ueber-sicht<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cmdDetailsAnzeigen_Click()\r\n Dim <\/span>lngMobilfunkgeraetID As Long<\/span>\r\n lngMobilfunkgeraetID = Me!sfmMobilfunkgeraeteUebersicht.Form!MobilfunkgeraetID\r\n DoCmd.OpenForm \"frmMobilfunkgeraetdetails\", WindowMode:=acDialog, WhereCondition:=\"MobilfunkgeraetID = \" & lngMobilfunkgeraetID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNeuesGeraet_Click()\r\n DoCmd.OpenForm \"frmMobilfunkgeraetdetails\", WindowMode:=acDialog, DataMode:=acFormAdd\r\n Me!sfmMobilfunkgeraeteUebersicht.Form.Requery\r\n SteuerelementeAktivieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdGeraetLoeschen_Click()\r\n Dim <\/span>lngMobilfunkgeraetID As Long<\/span>\r\n Dim <\/span>strGeraet As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n strGeraet = Me!sfmMobilfunkgeraeteUebersicht.Form!Bezeichnung\r\n If <\/span>MsgBox<\/span>(\"Möchten Sie das Gerät '\" & strGeraet & \"' löschen\", vbCr<\/span>itical + vbOKCancel, \"Gerät löschen\") = vbOK Then<\/span>\r\n lngMobilfunkgeraetID = Me!sfmMobilfunkgeraeteUebersicht.Form!MobilfunkgeraetID\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblMobilfunkgeraete WHERE MobilfunkgeraetID = \" & lngMobilfunkgeraetID, dbFailOnError\r\n Me!sfmMobilfunkgeraeteUebersicht.Form.Requery\r\n SteuerelementeAktivieren\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSteuer-elemente aktivieren und deaktivieren<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>Form_Load()\r\n SteuerelementeAktivieren\r\nEnd Sub<\/span><\/pre>\nDas Formular frmMobilfunkgeraetdetails<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nPrivate Sub <\/span>cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>WithEvents objFrmModelldetails As <\/span>Form<\/pre>\nPrivate Sub <\/span>ModellID_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>strFormular As String<\/span>\r\n strFormular = \"frmModelldetails\"\r\n If <\/span>Not<\/span> IsNull(Me!cboModellID) Then<\/span>\r\n DoCmd.OpenForm strFormular, WhereCondition:=Me!cboModellID\r\n Set<\/span> objFrmModelldetails = Forms(strFormular)\r\n With<\/span> objFrmModelldetails\r\n .OnUnload = \"[Event Procedure]\"\r\n .Modal = True<\/span>\r\n End With<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboModellID_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>strFormular As String<\/span>\r\n strFormular = \"frmModelldetails\"\r\n If <\/span>Not<\/span> IsNull(Me!cboModellID) Then<\/span>\r\n DoCmd.OpenForm strFormular, WhereCondition:=\"ModellID = \" & Me!cboModellID\r\n Else<\/span>\r\n DoCmd.OpenForm strFormular, DataMode:=acFormAdd\r\n End If<\/span>\r\n Set<\/span> objFrmModelldetails = Forms(strFormular)\r\n With<\/span> objFrmModelldetails\r\n .OnUnload = \"[Event Procedure]\"\r\n .Modal = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDas Formular frmModelldetails<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cboHerstellerID_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>strFormular As String<\/span>\r\n strFormular = \"frmHersteller\"\r\n If <\/span>Not<\/span> IsNull(Me!cboHerstellerID) Then<\/span>\r\n DoCmd.OpenForm strFormular, OpenArgs:=Me!cboHerstellerID\r\n Else<\/span>\r\n DoCmd.OpenForm strFormular, OpenArgs:=0\r\n End If<\/span>\r\n Set<\/span> objFrmHersteller = Forms(strFormular)\r\n With<\/span> objFrmHersteller\r\n .OnUnload = \"[Event Procedure]\"\r\n .Modal = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n If <\/span>Me.OpenArgs > 0 Then<\/span>\r\n Me!sfmHersteller.Form.Recordset.FindFirst \"HerstellerID = \" & Me.OpenArgs\r\n Else<\/span>If Me.OpenArgs = 0 Then\r\n Me.Bezeichnung.SetFocus\r\n DoCmd.GoToRecord Record:=acNewRec\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objFrmHersteller_Unload(Cancel As Integer<\/span>)\r\n Me!cboHerstellerID = objFrmHersteller!HerstellerID\r\nEnd Sub<\/span><\/pre>\n