<\/p>\n
Normalerweise verwenden Sie 1:n-Beziehungen, um die Datensätze zweier Tabellen zu verknüpfen und so Kombinationen aus diesen Datensätzen zu ermöglichen. Oder Sie nutzen die Beziehung für die Verknüpfung mit einer Lookup-Tabelle, welche die Werte für ein Feld liefert. Es geht aber noch anders: Wir wäre es, wenn Sie etwa für ein Feld, dass nur bestimmte Zahlenwerte annehmen können soll, auch eine per 1:n-Beziehung verknüpfte Tabelle hinterlegen Dieser Beitrag zeigt, welchen praktischen Zweck dies hat und wie Sie dies umsetzen.<\/b><\/p>\n
Im Beitrag HTML-Kreuztabelle 2: Werte bearbeiten <\/b>(www.access-im-unternehmen.de\/1162<\/b>) haben wir eine Tabelle namens tblMaterialpreise <\/b>verwendet, um die Preise für ein Material mit bestimmten Maßen, in diesem Fall Höhe und Breite, zu definieren. Um schon Werte für Höhe und Breite vorzudefinieren, die noch gar nicht in der Tabelle tblMaterialpreise <\/b>enthalten sind, haben wir zwei Tabellen namens tblHoehen <\/b>und tblBreiten <\/b>erstellt. Diese haben ein Primärschlüsselfeld namens HoeheID<\/b>\/BreiteID<\/b>, ein Feld für die Angabe des jeweiligen Wertes namens Hoehe<\/b>\/Breite <\/b>und ein Fremdschlüsselfeld namens MaterialID <\/b>zur Auswahl des Materials, auf das sich die Höhe oder Breite bezieht, enthalten (siehe Bild 1).<\/p>\n
![\"Bisherige](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_001.png\")
<\/p>\n
Bild 1: Bisherige Ausstattung der Tabellen tblMaterialpreise, tblHoehen und tblTiefen<\/span><\/b><\/p>\n Eigentlich wollte ich der Tabelle tblMaterialpreise <\/b>dann statt der bisher vorhandenen Felder Hoehe <\/b>und Breite<\/b>, welche die Angaben mit dem Datentyp Zahl <\/b>in Millimeter gespeichert haben, zwei Fremdschlüsselfelder namens HoeheID <\/b>und BreiteID <\/b>hinzufügen, die jeweils mit der Tabelle tblHoehen <\/b>beziehungsweise tblBreiten <\/b>verknüpft werden sollten. Auf diese Weise hätte man dann über ein Nachschlagefeld die jeweils für den Preis ausschlaggebenden Maße auswählen können.<\/p>\n Allerdings fiel mir dann auf, dass dies möglicherweise einfacher geht und auf eine andere Weise sogar noch Performance-Vorteile mit sich bringen könnte. Wenn ich die Verknüpfungen wie geplant realisieren würde, müsste Access immer, wenn die Werte der Tabelle tblMaterialpreise <\/b>mit den Werten für die Höhe und Breite ausgegeben werden sollen, die entsprechenden Informationen über die Verknüpfung aus den Tabellen tblHoehen <\/b>und tblBreiten <\/b>abfragen. Das ist aber in diesem Fall gar nicht nötig.<\/p>\n Wenn wir uns ansehen, welche Werte das Feld Hoehe <\/b>in der Tabelle tblHoehen <\/b>und das Feld Breite <\/b>in der Tabelle tblBreite <\/b>annehmen soll, könnte man annehmen, dass jeder Wert in jeder der beiden Tabellen nur einmal vorkommen soll. Das ist jedoch nicht der Fall, denn jeder Wert kann für jede Kombination mit dem über das Fremdschlüsselfeld MaterialID <\/b>maximal einmal vorkommen – bei zwei Materialien kann also auch zweimal der Wert 1.000 mm vorkommen.<\/p>\n Wenn die Unterscheidung über das Feld MaterialID <\/b>nicht wäre und wir die Werte nur für ein einziges Material angeben müssten, könnten wir die Tabellen tblHoehen <\/b>und tblBreiten <\/b>mit dem Feld Hoehe <\/b>beziehungsweise Breite <\/b>als Primärschlüsselfeld ausstatten. Da wir allerdings das Feld MaterialID <\/b>berücksichtigen müssen und wir einen zusammengesetzten, eindeutigen Index über die beiden Felder Hoehe <\/b>und MaterialID <\/b>beziehungsweise Breite <\/b>und MaterialID <\/b>haben, müssten wir aus diesen zusammengesetzten, eindeutigen Indizes einen zusammengesetzten Primärschlüssel machen. Das Ergebnis sieht wie in Bild 2 aus. Die noch in Indizes<\/b>-Fenster vorhandenen zusammengesetzten, eindeutigen Indizes aus den Feldern Hoehe <\/b>und MaterialID <\/b>beziehungsweise Breite <\/b>und MaterialID <\/b>entfernen wir.<\/p>\n Bild 2: Ersetzen des einfachen Primärschlüsselfeldes durch einen zusammengesetzten Primärschlüssel aus den übrigen Feldern<\/span><\/b><\/p>\n Dann haben wir aber auch leider kein einfaches Primärschlüsselfeld mehr, mit dem wir die noch zu erstellenden Fremdschlüsselfelder der Tabelle tblMaterialpreise<\/b> verknüpfen können. Aber das ist kein Problem: Wir erstellen einfach zwei Verknüpfungen!<\/p>\n Die erste legen wir auf dem gewohnten Wege an. Dazu nutzen wir das bereits in der Tabelle tblMaterialpreise <\/b>vorhandene Feld Hoehe <\/b>und wählen als neuen Datentyp in der Entwurfsansicht den Eintrag Nachschlagefeld <\/b>aus. Hier wählen wir die Tabelle tblHoehen <\/b>als Quelltabelle aus und das Feld Hoehe <\/b>als einziges ausgewähltes Feld.<\/p>\n Für dieses Feld legen wir eine aufsteigende Sortierung fest. Interessanterweise finden wir in dem Schritt, der normalerweise die Möglichkeit anbietet, referenzielle Integrität zu definieren, keine solche Einstellung (siehe Bild 3).<\/p>\n Bild 3: Fehlende Einstellung zum Festlegen referenzieller Integrität<\/span><\/b><\/p>\n Also verzichten wir zunächst darauf und schließen den Dialog über die Schaltfläche Fertigstellen<\/b>. Das Gleiche erledigen für analog für das Feld Breite <\/b>der Tabelle tblMaterialpreise <\/b>und die Tabelle tblBreiten<\/b>.<\/p>\n Schauen wir uns nun das Datenmodell im Beziehungen<\/b>-Fenster an, sieht dies wie in Bild 4 aus. Nun soll der Benutzer etwa für das Feld Hoehe <\/b>der Tabelle tblMaterialpreise <\/b>nur diejenigen Felder der Tabelle tblHoehen <\/b>auswählen können, die im Feld MaterialID <\/b>den gleichen Wert wie die Tabelle tblMaterialpreise <\/b>aufweist.<\/p>\n Bild 4: Datenmodell für die Zuordnung der Höhe und der Breite<\/span><\/b><\/p>\n Um dies zu gewährleisten, müssen wir dann auch noch eine Beziehung zwischen den beiden Feldern MaterialID <\/b>der Tabelle tblMaterialpreise <\/b>und MaterialID <\/b>der Tabelle tblHoehen <\/b>beziehungsweise tblBreiten <\/b>herstellen.<\/p>\n Wie erledigen wir das Wenn wir es probieren wie beim herkömmlichen Erstellen einer Beziehung zwischen zwei Tabellen im Beziehungen-Fenster, also durch das Ziehen des Fremdschlüsselfeldes der einen Tabelle auf die Zieltabelle, erhalten wir die Meldung aus Bild 5.<\/p>\n Bild 5: Meldung bei vorhandener Beziehung<\/span><\/b><\/p>\n Betätigen wir hier nun die Schaltfläche Ja<\/b>, erscheint der Dialog Beziehung bearbeiten <\/b>aus Bild 6. Hier fügen wir die zweite Beziehung hinzu, indem wir sowohl für die Tabelle tblHoehen <\/b>als auch für die Tabelle tblMaterialpreise <\/b>das Feld MaterialID <\/b>auswählen.<\/p>\n Bild 6: Doppelte Verknüpfung herstellen<\/span><\/b><\/p>\n Außerdem aktivieren wir hier die Option Mit referenzieller Integrität<\/b>. Das Gleiche erledigen wir für die Tabellen tblBreiten <\/b>und tblMaterialpreise<\/b>.<\/p>\n Wenn wir nun einige weitere Datensätze zur Tabelle tblHoehen <\/b>hinzufügen, die wir einem anderen Wert der Tabelle tblMaterialien<\/b> zuordnen, sieht diese Tabelle wie in Bild 7 aus.<\/p>\n Bild 7: Höhen für verschiedene Spanplattendicken<\/span><\/b><\/p>\n Was wollen wir damit erreichen Nun, wir wollen sehen, ob wir damit die Auswahl im Nachschlagefeld der Tabelle tblMaterialpreise <\/b>so einschränken können, dass nur die Werte der verknüpften Tabelle tblHoehen <\/b>im Nachschlagefeld Hoehe <\/b>angezeigt werden, die auch dem aktuell im Feld MaterialID <\/b>ausgewählten Material entsprechen. Das ist nicht der Fall, wie Bild 8 zeigt.<\/p>\n Bild 8: Die Auswahl der Höhen bietet zu viele Datensätze an.<\/span><\/b><\/p>\n Diese Einschränkung bekommen wir nur durch die Erstellung einer geeigneten Abfrage hin. Diese sieht im Entwurf wie in Bild 9 aus. Wir fügen der Abfrage die beiden Tabellen tblMaterialpreise <\/b>und tblHoehen <\/b>hinzu. Die beiden vorhandenen Beziehungen werden automatisch in den Abfrageentwurf übernommen. Was noch fehlt, ist die Anpassung der Datensatzherkunft des Nachschlagefeldes Hoehe <\/b>der Tabelle tblMaterialpreise<\/b>. Diese wollen wir so einrichten, dass diese nur solche Einträge der Tabelle tblHoehen <\/b>anzeigt, die den gleichen Wert im Feld MaterialID <\/b>aufweist wie der aktuelle Datensatz der Tabelle tblMaterialpreise<\/b>.<\/p>\n Bild 9: Formulierung der Datensatzherkunft des Nachschlagefeldes<\/span><\/b><\/p>\n Das realisieren wir durch die Formulierung der Eigenschaft wie folgt:<\/p>\n Wenn wir nun in die Datenblattansicht der Abfrage wechseln, sind die Datensätze im Nachschlagefeld Hoehe <\/b>zwar nach den Werten der Tabelle tblHoehen <\/b>für einen der beiden angegebenen Werte von MaterialID <\/b>gefiltert – allerdings immer nur für den Wert von MaterialID <\/b>für den oben befindlichen Datensatz (siehe Bild 10). <\/p>\n Bild 10: Für diesen Datensatz zeigt das Nachschlagefeld die richtigen Werte an …<\/span><\/b><\/p>\n Wenn wir zu einem Datensatz wechseln, der mit dem Eintrag Spanplatte 19 mm <\/b>der Tabelle tblMaterialien <\/b>verknüpft ist und hier das Nachschlagefeld für Hoehe <\/b>öffnen, erhalten wir wieder die Höhen für den Eintrag Spanplatte 17 mm <\/b>(siehe Bild 11).<\/p>\n Bild 11: … für den nächsten nicht mehr.<\/span><\/b><\/p>\n Das ändert sich allerdings, wenn wir nun auf die Schaltfläche F5 <\/b>zum Aktualisieren klicken. Dies aktualisiert nicht nur die Abfrage, sondern offensichtlich auch die Datensatzherkunft des Nachschlagefeldes entsprechend des Wertes des zuletzt markierten Datensatzes der Abfrage – auch wenn der Datensatzmarkierer danach wieder auf den ersten Datensatz zurückfällt. Bild 12 zeigt, dass das Nachschlagefeld nun den richtigen Datensatz anzeigt.<\/p>\n Bild 12: Nach der Aktualisierung klappt es dann.<\/span><\/b><\/p>\n Damit könnte man später im Formular eventuell leben – die Datensatzherkunft ließe sich ja direkt ansteuern und aktualisieren, ohne dass der aktuelle Datensatz verlassen werden muss. Aber was geschieht, wenn wir nun einen über die Abfrage qryMaterialpreiseHoehenBreiten <\/b>einen neuen Datensatz in der Tabelle tblMaterialpreise <\/b>hinzufügen Wenn wir den Datensatzzeiger auf einen neuen Datensatz einstellen, mit F5 <\/b>aktualisieren und dann wieder zum neuen, leeren Datensatz wechseln, ist das Nachschlagefeld leer (siehe Bild 13). Kein Wunder, denn das Feld MaterialID <\/b>ist leer und die Tabelle tblHoehen <\/b>hat keine Datensätze, in denen das Feld auch leer ist.<\/p>\n Bild 13: Beim Einfügen eines neuen Datensatzes, bei dem man zuvor mit F5 die Datensatzherkunft des Nachschlagefeldes aktualisiert hat, ist dieses leer.<\/span><\/b><\/p>\n Also wählen wir hier erst einen Wert für MaterialID <\/b>aus und aktualisieren dann mit F5<\/b>. Dadurch will Access den Datensatzzeiger auf den ersten Datensatz verschieben. Das gelingt allerdings nicht, da der neue Datensatz nicht vollständig ist – die beiden Felder Hoehe <\/b>und Breite <\/b>müssen mit Datensätzen der Tabellen tblHoehen <\/b>und tblBreiten <\/b>verknüpft werden. Also erhalten wir die Meldung aus Bild 14.<\/p>\n Bild 14: Fehlermeldung beim Verlassen eines unvollständigen Datensatzes<\/span><\/b><\/p>\n Nachdem wir diese bestätigt haben und nochmal das Nachschlagefeld aufklappen, finden wir dort die gewünschten Daten vor (siehe Bild 15). Da wir nun das gewünschte Ergebnis haben, nehmen wir zwei Schritte vor: <\/p>\n Bild 15: Korrekte Darstellung der gewünschten Daten nach Aktualisierung<\/span><\/b><\/p>\n Den ersten Schritt erledigen wir wie in Bild 16. Wir fügen die Tabelle tblBreiten <\/b>zum Abfrageentwurf hinzu und stellen die Eigenschaften im Bereich Nachschlagen <\/b>wie in der Abbildung ein.<\/p>\n Bild 16: Erweiterung der Abfrage um die Tabelle tblBreiten und Einstellung des Nachschlagefeldes<\/span><\/b><\/p>\n <\/p>\n Für den zweiten Teil erstellen wir ein neues Formular namens frmMaterialpreiseHoehenBreiten <\/b>und öffnen es in der Entwurfsansicht. Stellen Sie die Abfrage qryMaterialpreiseHoehenBreiten <\/b>als Datenherkunft für das Formular ein. Außerdem legen Sie für die Eigenschaft Standardansicht <\/b>den Wert Datenblatt <\/b>fest. Ziehen Sie alle Felder der Datenherkunft aus der Feldliste in den Entwurf des Formulars (siehe Bild 17).<\/p>\n Bild 17: Entwurf des Formulars frmMaterialpreiseHoehenBreiten<\/span><\/b><\/p>\n Wechseln Sie nun in die Datenblattansicht, verhält sich das Formular genauso wie die Abfrage. Sie zeigt für die Nachschlagefelder Hoehe <\/b>und Breite <\/b>die Werte an, die zu der MaterialID<\/b> passen, die für den beim öffnen oben angezeigten Datensatz ausgewählt ist.<\/p>\n Wir wollen nun, dass beim Wechseln des Wertes für das Feld MaterialID <\/b>oder auch beim Wechseln des Datensatzes die zur jeweiligen MaterialID <\/b>gehörenden Werte der beiden Tabellen tblHoehen <\/b>und tblTiefen <\/b>angezeigt werden.<\/p>\n Dazu müssen wir für zwei Ereignisprozeduren entsprechende Prozeduren hinterlegen. Das erste ist das Ereignis Beim Anzeigen <\/b>des Formulars, die beim Wechseln des Datensatzes ausgelöst wird, das zweite das Ereignis Nach Aktualisierung <\/b>des Nachschlagefeldes MaterialID<\/b>. Dieses benennen wir zuvor in cboMaterialID <\/b>um, genau wie wir die beiden Kombinationsfelder Hoehe <\/b>und Breite <\/b>in cboHoehe <\/b>und cboBreite <\/b>umbenennen. Beide resultierenden Ereignisprozeduren statten wir mit einem Aufruf der Prozedur NachschlagefelderAktualisieren <\/b>aus:<\/p>\n Diese sieht schließlich wie folgt aus:<\/p>\n Die Prozedur stellt jeweils eine SQL-Abfrage für die beiden Kombinationsfelder zusammen, deren Kriterium das Feld MaterialID <\/b>nach dem Wert des Kombinationsfeldes cboMaterialID <\/b>filtert.<\/p>\n Wenn wir das Formular frmMaterialpreiseHoehenBreiten <\/b>nun in der Datenblattansicht öffnen, funktioniert die Auswahl bereits wie gewünscht. In Bild 18 haben wir das öffnen der Auswahl für zwei Datensätze mit verschiedenen Einstellungen für das Feld MaterialID <\/b>dargestellt.<\/p>\n Bild 18: Die Kombinationsfelder ändern ihre Datensatzherkunft je nach Datensatz<\/span><\/b><\/p>\n Wenn wir allerdings eines der beiden Kombinationsfelder cboHoehe <\/b>oder cboBreite<\/b> für den neuen, leeren Datensatz öffnen, erhalten wir den Fehler aus Bild 19. Das ist logisch, denn wenn für cboMaterialID <\/b>kein Wert ausgewählt ist, stellt die Prozedur NachschlagefelderAktualisieren <\/b>eine Abfrage wie die folgende als Datensatzherkunft für das Kombinationsfeld cboHoehe <\/b>zusammen:<\/p>\n Bild 19: Fehler bei fehlender MaterialID<\/span><\/b><\/p>\n Hier fehlt der Vergleichswert. Wie wollen wir hier agieren Am einfachsten wäre es, wenn wir dem Benutzer in diesem Fall eine Meldung anzeigen, dass er zunächst einen Wert für das Feld Material-ID <\/b>auswählen muss und dann den Fokus auf das aufgeklappte Kombinationsfeld cboMaterialID <\/b>setzen. Das erledigen wir durch die folgende Ergänzung:<\/p>\n Wir prüfen hier also, ob cboMaterialID <\/b>den Wert Null <\/b>hat. Falls nicht, führen wir die bereits weiter oben erläuterten Schritte durch. Ist cboMaterialID <\/b>noch leer, zeigen wir die Meldung an, verschieben den Fokus auf cboMaterialID <\/b>und klappen dieses auf (siehe Bild 20).<\/p>\n Bild 20: Aufforderung zur Auswahl des Materials<\/span><\/b><\/p>\n Damit haben wir jedoch noch immer nicht alle Fehlerquellen abgedeckt. Wenn Sie nämlich für den neuen, leeren Datensatz das Material ausgewählt haben und dann, ohne diesen in Bearbeitung befindlichen Datensatz fertigzustellen und zu speichern, zu einem anderen Datensatz wechseln, erscheint die nächste Fehlermeldung (siehe Bild 21). <\/p>\n Bild 21: Fehlermeldung beim Verlassen des unvollständigen Datensatzes<\/span><\/b><\/p>\n Diese besagt, dass in der Tabelle tblMaterialpreise <\/b>kein passender Datensatz zur Auswahl der Kombinationsfelder für die Felder Breite <\/b>und MaterialID <\/b>gefunden werden konnte. Nach der Bestätigung der Meldung verweilt der Datensatzzeiger auf dem unvollständigen neuen Datensatz.<\/p>\n Das Problem ist, dass wir eine Beziehung zwischen den Tabellen tblMaterialpreise <\/b>und tblBreiten <\/b>definiert haben, wonach die Inhalte der Felder Breite <\/b>und MaterialID <\/b>in der Tabelle tblMaterialpreise <\/b>auch in der Tabelle tblBreiten <\/b>vorkommen müssen. Nun haben wir allerdings nur einen Wert für MaterialID <\/b>ausgewählt, aber nicht für die Breite. Da die Bedingung zum Speichern des Datensatzes nicht erfüllt ist, wird der Vorgang an dieser Stelle abgebrochen.<\/p>\n Auch diesen Fehler wollen wir abfangen und den Benutzer genauer darauf hinweisen, welche Eingabe noch fehlt. Dazu legen wir eine Ereignisprozedur für das Ereignis Bei Fehler <\/b>des Formulars an und füllen diese wie folgt auf:<\/p>\n Damit geben wir zunächst die Nummer des Fehlers mit der obigen Fehlermeldung im Direktbereich des VBA-Editors aus. Wie sich zeigt, handelt es sich um den Fehler mit der Nummer 3101<\/b>.<\/p>\n Diesen wollen wir nun gezielt abfangen und dafür eine eigene Fehlermeldung ausgeben. Das erledigen wir durch die folgenden Anpassungen der Ereignisprozedur Form_Error<\/b>:<\/p>\n Die Prozedur prüft, ob sie durch den Fehler mit der Nummer 3101<\/b> ausgelöst wurde.<\/p>\n In diesem Fall erscheint eine Meldung, die den Benutzer darauf hinweist, dass er die Höhe und die Breite eingeben muss und die den Fokus auf das erste der beiden Kombinationsfelder setzt, für das noch kein Wert ausgewählt wurde.<\/p>\n Eine weitere Restriktion für die Tabelle tblMaterialpreise <\/b>besagt, dass die Kombination der Werte für die Felder Hoehe<\/b>, Breite <\/b>und MaterialID <\/b>einzigartig sein muss. Geben wir nun eine bereits vorhandene Kombination ein, erscheint die durch den Fehler 3022 <\/b>ausgelöste Meldung. Auch diese wollen wir in der Ereignisprozedur Form_Error <\/b>behandeln, die wir dazu wie folgt erweitern:<\/p>\n Beim weiteren Testen stellen wir fest, dass die Meldung, die den Benutzer um die vorherige Auswahl des Materials bittet, immer beim Verschieben des Datensatzzeigers auf einen leeren, neuen Datensatz angezeigt wird. Unsere änderung an der Prozedur NachschlagefelderAktualisieren<\/b> funktioniert also nicht in allen Fällen wie gewünscht.<\/p>\n Die Meldung soll nämlich erst angezeigt werden, wenn der Benutzer eines der beiden Kombinationsfelder cboHoehe <\/b>oder cboBreite <\/b>aufklappt.<\/p>\n Also ändern wir die Prozedur NachschlagefelderAktualisieren <\/b>zunächst wieder auf die vorherige Version, bei der die Datensatzherkunft für die beiden Kombinationsfelder in dem Fall, dass MaterialID <\/b>noch nicht ausgewählt wurde, auf die fehlerhafte Datensatzherkunft, da ohne Vergleichswert, eingestellt wird:<\/p>\n Wie aber wirken wir dem Fehler entgegen, der nun beim Aufklappen eines der beiden Kombinationsfelder cboHoehe <\/b>oder cboBreite <\/b>ausgelöst wird Das erledigen wir wieder in der Prozedur Form_Error<\/b>.<\/p>\n Die Nummer des hier ausgelösten Fehlers lautet 3075<\/b>. Dafür legen wir einen neuen Zweig in der Select Case<\/b>-Bedingung an:<\/p>\n Wenn Sie nun das Formular in der Datenblattansicht öffnen und im neuen, leeren Datensatz versuchen, eines der beiden Kombinationsfelder cboHoehe <\/b>oder cboBreite <\/b>aufzuklappen, sollte die angegebene Meldung erscheinen – gefolgt vom Aufklappen des Kombinationsfeldes cboMaterialID<\/b>. Dies ist allerdings nicht der Fall.<\/p>\n Stattdessen reagiert Access recht merkwürdig: Es versucht wohl, das Kombinationsfeld cboMaterialID <\/b>zu markieren, das Aufklappen gelingt jedoch nicht – stattdessen wird das Kombinationsfeld cboHoehe <\/b>geöffnet, das aber den Wert 1 <\/b>anzeigt. Viel Zeit, diesen Fehler zu analysieren, bleibt nicht, denn kurz darauf stürzt Access auf dem Testrechner ab (siehe Bild 22).<\/p>\n Bild 22: Merkwürdige Reaktion des Formulars<\/span><\/b><\/p>\n Wenn wir allerdings einen Haltepunkt auf die Zeile mit der MsgBox<\/b>-Anweisung setzen und die folgenden Anweisungen langsam durchlaufen, arbeitet die Prozedur zunächst wie gewünscht. Sobald wir jedoch die Prozedur verlassen, tritt der Absturz wieder auf. Offensichtlich tritt irgendein Konflikt auf, wenn man, während ein Kombinationsfeld geöffnet ist, ein anderes Kombinationsfeld öffnet.<\/p>\n Was tun wir in solch einem Fall Wir entkoppeln die Fehlerbehandlung und die dadurch ausgelösten Aktionen. Sprich: Wir lassen erst die Ereignisprozedur Form_Error <\/b>durchlaufen und erledigen dort nur die nötigsten Schritte – also das Anzeigen der Meldung und das Unterbinden der Ausgabe der eingebauten Fehlermeldung durch Setzen von Response <\/b>auf den Wert acDataErrContinue<\/b>. Wie aber sorgen wir dann dafür, dass das Kombinationsfeld cboMaterialID <\/b>aufgeklappt wird, damit der Benutzer direkt die nötigen Informationen auswählen kann Dies erledigen wir in einer weiteren Ereignisprozedur, die durch das Ereignis Bei Zeitgeber <\/b>ausgelöst wird. Hinterlegen Sie für diese Ereigniseigenschaft die folgende Ereignisprozedur:<\/p>\n Die ersten beiden Anweisungen verschieben den Fokus auf das Steuer-element cboMaterialID <\/b>und klappen die Liste der Einträge auf. Die dritte stellt die Eigenschaft TimerInterval <\/b>auf den Wert 0 <\/b>ein. Damit wird das Ereignis nicht nochmals ausgelöst.<\/p>\n Damit das Ereignis Bei Zeitgeber <\/b>überhaupt feuert, müssen wir die Eigenschaft Zeitgeberintervall auf <\/b>einen Wert größer als 0 <\/b>einstellen. Dies erledigen wir ebenfalls in der Ereignisprozedur Bei Fehler<\/b>, indem wir Me.TimerInterval <\/b>auf den Wert 100 <\/b>einstellen, was einer Verzögerung von 100 Millisekunden bis zum nächsten Auslösen der Ereignisprozedur Form_Timer <\/b>entspricht:<\/p>\n Damit funktioniert das automatische Aufklappen des Kombinationsfeldes cboMaterialID <\/b>wie gewünscht und ohne Absturz der Anwendung.<\/p>\n Was noch geschehen kann, ist die nachträgliche änderung des Materials durch den Benutzer. In diesem Fall zeigen die Felder Hoehe <\/b>und Breite <\/b>unter Umständen Werte an, die für das gewählte Material gar nicht zur Verfügung stehen.<\/p>\n Wir müssen also bei Neuauswahl des Materials darauf hinweisen, dass die Höhe und die Breite gegebenenfalls neu ausgewählt werden müssen und dem Benutzer die Möglichkeit geben, dies gegebenenfalls abzubrechen.<\/p>\n Der erste Ansatz, den ich dazu verfolgte, war etwas naiv: Ich habe dabei zuerst geprüft, ob die beiden Kombinationsfelder cboHoehe <\/b>und cboBreite <\/b>gegebenenfalls bereits Werte enthalten, die auch für die neue mit cboMaterialID <\/b>ausgewählte Materialsorte vorhanden sind. Falls ja, wollte ich lediglich den Eintrag in den zugrunde liegenden Feldern Hoehe <\/b>und Breite <\/b>auf die entsprechenden Beiträge für die neue Materialsorte verschieben. Falls nicht, sollten die beiden Kombinationsfelder (oder auch nur eines davon) einfach geleert werden, damit der Benutzer hier die neue Höhe und die neue Breite auswählen kann.<\/p>\n Allerdings stellte es sich als unmöglich heraus, den Wert eines der Kombinationsfelder in dieser Konstellation auf den Wert Null <\/b>einzustellen oder einen anderen Wert, der einem leeren Kombinationsfeld entspricht. Normalerweise ist das aber möglich.<\/p>\n Warum gelingt es aber in diesem Fall nicht Bei Experimenten hiermit stellt sich als Erstes heraus, dass es wohl an der Abfrage qryMaterialpreiseHoeheBreite <\/b>als Datenherkunft für das Formular liegt, die ja die Tabelle tblMaterialpreise <\/b>mit den beiden jeweils über zwei Beziehungen mit der Haupttabellen verknüpften Tabellen tblHoehen <\/b>und tblBreiten <\/b>liegt.<\/p>\n Interessant ist vor allem die resultierende Fehlermeldung (siehe Bild 23). Interessanterweise funktioniert das Zuweisen des Wertes Null <\/b>an Kombinationsfelder, die an ein Feld einer herkömmlichen Tabelle gebunden sind, ohne diese Fehlermeldung, und auch hier wird ja kein Variant-Datentyp verwendet.<\/p>\n Bild 23: Fehlermeldung beim Versuch, eines der Nachschlagefelder der Abfrage qryMaterialpreiseHoehenBreiten zu leeren <\/span><\/b><\/p>\n An der doppelten Beziehung zwischen den Feldern Hoehe<\/b>\/Breite <\/b>und MaterialID <\/b>der Tabellen liegt es nicht – die haben wir testweise entfernt. Wenn wir die beiden Tabellen tblHoehen <\/b>und tblBreiten <\/b>aus der Abfrage qryMaterialpreiseHoehenBreiten <\/b>entfernen, gelingt das Leeren der Kombinationsfelder hingegen.<\/p>\n Es wäre also zu prüfen, ob das Formular auch noch funktioniert, wenn wir die Tabelle tblMaterialpreise <\/b>als Datenherkunft verwenden und die Einschränkungen für die Datensatzherkünfte der beiden Kombinationsfelder cboHoehen <\/b>und cboBreiten <\/b>jeweils per Code herstellen, statt diese von vornherein fest zu definieren.<\/p>\n Ein erster Test ergibt, dass dies funktioniert. Damit funktioniert dann auch die zu Beginn geplante Vorgehensweise, die in der Prozedur aus Listing 1 resultiert.<\/p>\n Listing 1: Prüfen der Inhalte von Höhe und Breite nach Auswahl eines neuen Materials<\/span><\/b><\/p>\nWert als Primärschlüssel<\/h2>\n
![\"Ersetzen](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_002.png\")
<\/p>\nVerknüpfungen erstellen<\/h2>\n
![\"Fehlende](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_003.png\")
<\/p>\n![\"Datenmodell](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_004.png\")
<\/p>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_005.png\")
<\/p>\n![\"Doppelte](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_006.png\")
<\/p>\n![\"Höhen](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_008.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_007.png\")
<\/p>\nEinschränkung per Abfrage<\/h2>\n
![\"Formulierung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_009.png\")
<\/p>\nSELECT Hoehe FROM tblHoehen WHERE tblMaterialpreise.MaterialID = tblHoehen.MaterialID;<\/pre>\n
![\"Für](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_010.png\")
<\/p>\n![\"...](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_011.png\")
<\/p>\n![\"Nach](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_012.png\")
<\/p>\nNeuen Datensatz in der Abfrage anlegen<\/h2>\n
![\"Beim](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_013.png\")
<\/p>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_014.png\")
<\/p>\n![\"Korrekte](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_015.png\")
<\/p>\n\n
![\"Erweiterung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_016.png\")
<\/p>\nFormular erstellen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_017.png\")
<\/p>\nPrivate Sub <\/span>cboMaterialID_AfterUpdate()\r\n NachschlagefelderAktualisieren\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Current()\r\n NachschlagefelderAktualisieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>NachschlagefelderAktualisieren()\r\n Dim <\/span>strSQLHoehe As String<\/span>\r\n Dim <\/span>strSQLBreite As String<\/span>\r\n strSQLHoehe = \"SELECT Hoehe FROM tblHoehen WHERE tblHoehen.MaterialID = \" & Me!cboMaterialID\r\n strSQLBreite = \"SELECT Breite FROM tblBreiten WHERE tblBreiten.MaterialID = \" & Me!cboMaterialID\r\n Me!cboHoehe.RowSource = strSQLHoehe\r\n Me!cboBreite.RowSource = strSQLBreite\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_018.png\")
<\/p>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_019.png\")
<\/p>\nSELECT Hoehe FROM tblHoehen WHERE tblHoehen.MaterialID = <\/pre>\n
Private Sub <\/span>NachschlagefelderAktualisieren()\r\n Dim <\/span>strSQLHoehe As String<\/span>\r\n Dim <\/span>strSQLBreite As String<\/span>\r\n If <\/span>Not<\/span> IsNull(Me!cboMaterialID) Then<\/span>\r\n ...\r\n Else<\/span>\r\n MsgBox<\/span> \"Bitte wählen Sie zuerst das Material aus.\"\r\n Me!cboMaterialID.SetFocus\r\n Me!cboMaterialID.Dropdown\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Aufforderung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_020.png\")
<\/p>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_021.png\")
<\/p>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Debug.Print<\/span> DataErr\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3101\r\n MsgBox<\/span> \"Bitte wählen Sie Werte für die Höhe und die Breite aus.\"\r\n If <\/span>IsNull(Me!cboHoehe) Then<\/span>\r\n Me!cboHoehe.SetFocus\r\n Me!cboHoehe.Dropdown\r\n Else<\/span>\r\n Me!cboBreite.SetFocus\r\n Me!cboBreite.Dropdown\r\n End If<\/span>\r\n Response = acDataErrContinue\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nNächster Fehler: Kombination bereits vorhanden<\/h2>\n
Private Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3022\r\n MsgBox<\/span> \"Die Kombination aus Höhe und Breite ist für das gewählte Material bereits vorhanden.\"\r\n Response = acDataErrContinue\r\n Case <\/span>3101\r\n ...\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nWillkürliche Anzeige der Meldungen<\/h2>\n
Private Sub <\/span>NachschlagefelderAktualisieren()\r\n Dim <\/span>strSQLHoehe As String<\/span>\r\n Dim <\/span>strSQLBreite As String<\/span>\r\n strSQLHoehe = \"SELECT Hoehe FROM tblHoehen WHERE tblHoehen.MaterialID = \" & Nz(Me!cboMaterialID, 0)\r\n strSQLBreite = \"SELECT Breite FROM tblBreiten WHERE tblBreiten.MaterialID = \" & Nz(Me!cboMaterialID, 0)\r\n Me!cboHoehe.RowSource = strSQLHoehe\r\n Me!cboBreite.RowSource = strSQLBreite\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3075\r\n MsgBox<\/span> \"Wählen Sie zunächst das Material aus.\"\r\n Me!cboMaterialID.SetFocus\r\n Me!cboMaterialID.Dropdown\r\n Response = acDataErrContinue\r\n ...\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Merkwürdige](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_022.png\")
<\/p>\nPrivate Sub <\/span>Form_Timer()\r\n Me!cboMaterialID.SetFocus\r\n Me!cboMaterialID.Dropdown\r\n Me.TimerInterval = 0\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3075\r\n MsgBox<\/span> \"Wählen Sie zunächst das Material aus.\"\r\n Me.TimerInterval = 100\r\n Response = acDataErrContinue\r\n ...\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nNachträgliche änderung des Materials<\/h2>\n
![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1175_023.png\")
<\/p>\nPrivate Sub <\/span>cboMaterialID_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>intResult As <\/span>VbMsgBoxResult\r\n Dim <\/span>lngHoeheAlt As Long<\/span>, lngBreiteAlt As Long<\/span>, lngHoeheNeu As Long<\/span>, lngBreiteNeu As Long<\/span>\r\n Dim <\/span>lngMaterialIDNeu As Long<\/span>\r\n Dim <\/span>lngMaterialIDAlt As Long<\/span>\r\n Dim <\/span>bolAendern As Boolean<\/span>\r\n lngMaterialIDNeu = Nz(Me!cboMaterialID)\r\n If <\/span>Not<\/span> lngMaterialIDNeu = Me!cboMaterialID.OldValue Then<\/span>\r\n lngMaterialIDAlt = Me!cboMaterialID.OldValue\r\n If <\/span>Not<\/span> IsNull(Me!cboHoehe) Then<\/span>\r\n lngHoeheAlt = Me!cboHoehe\r\n lngHoeheNeu = Nz(DLookup(\"Hoehe\", \"tblHoehen\", \"Hoehe = \" & lngHoeheAlt & \" AND MaterialID = \" _\r\n & lngMaterialIDNeu), 0)\r\n If <\/span>lngHoeheNeu = 0 Then<\/span>\r\n bolAendern = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>Not<\/span> IsNull(Me!cboBreite) Then<\/span>\r\n lngBreiteAlt = Me!cboBreite\r\n lngBreiteNeu = Nz(DLookup(\"Breite\", \"tblBreiten\", \"Breite = \" & lngBreiteAlt & \" AND MaterialID = \" _\r\n & lngMaterialIDNeu), 0)\r\n If <\/span>lngBreiteNeu Then<\/span>\r\n bolAendern = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>bolAendern = True<\/span> Then<\/span>\r\n intResult = MsgBox<\/span>(\"Mindestens eines der Felder Höhe oder Breite müssen neu eingegeben werden. _\r\n Fortsetzen\", vbYesNo)\r\n If <\/span>intResult = vbYes Then<\/span>\r\n NachschlagefelderAktualisieren\r\n If <\/span>lngHoeheNeu > 0 Then<\/span>\r\n Me!cboHoehe = lngHoeheNeu\r\n Else<\/span>\r\n Me!cboHoehe = Null\r\n End If<\/span>\r\n If <\/span>lngBreiteNeu > 0 Then<\/span>\r\n Me!cboBreite = lngBreiteNeu\r\n Else<\/span>\r\n Me!cboBreite = Null\r\n End If<\/span>\r\n Else<\/span>\r\n Me!cboMaterialID.Undo\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n