<\/p>\n
In den ersten beiden Teilen der Beitragsreihe haben wir gezeigt, wie Sie die Daten einer Tabelle in Form einer Kreuztabelle ausgeben können. Das ist natürlich auch per Kreuztabellenabfrage möglich, aber wir haben in diesem Fall das Webbrowser-Steuerelement mit einer entsprechenden HTML-Seite verwendet. Der Hintergrund ist, dass wir so Funktionen zum direkten Bearbeiten der Einträge hinzufügen können – vorausgesetzt, dass die Kreuztabelle nur die Werte einer Kombination anzeigt und nicht etwa Domänenfunktionen wie Summen oder Mittelwerte. Wir wollen also die bereits vorhandene Darstellung noch um Funktionen zum Bearbeiten sowie zum Hinzufügen neuer Spalten oder Zeilen erweitern.<\/b><\/p>\n
Ausgangspunkt ist die in den bereits genannten Beiträgen HTML-Kreuztabelle 1: Basics <\/b>(www.access-im-unternehmen.de\/1161<\/b>) und HTML-Kreuztabelle 2: Werte bearbeiten <\/b>(www.access-im-unternehmen.de\/1162<\/b>) erarbeitete Lösung. Hier wollen wir nun folgende Erweiterungen hinzufügen:<\/p>\n Für das Anlegen neuer Zeilen und Spalten haben wir uns weiter oben vorgenommen, rechts neben den Spaltenüberschriften und unter den Zeilenüberschriften jeweils ein Plus-Zeichen anzuzeigen, über das wir eine neue Zeile oder Spalte hinzufügen können. Wir könnten dann, wenn der Benutzer auf eines der beiden Plus-Zeichen klickt, einfach die neue Zeile hinzufügen. Aber geht das wirklich so einfach Nein: Denn unser Algorithmus aus der Prozedur KreuztabelleAnlegen <\/b>fügt nur Spalten und Zeilen an für Höhen- oder Breitenangaben, zu denen es auch bereits mindestens eine Preisangabe gibt. Dementsprechend haben wir auch gar keine Möglichkeit, Daten so in der Tabelle tblMaterialpreise <\/b>zu speichern, dass diese allein in der Anzeige einer neuen Zeile oder Spalte münden, ohne selbst einen Preis für die Kombination aus Höhe und Breite zu enthalten.<\/p>\n Also müssen wir uns einen alternativen Weg ausdenken, der wie folgt aussieht könnte: Wenn der Benutzer einen Preis für eine Kombination aus Höhe und Breite angeben möchte, von denen entweder die Höhe oder die Breite oder auch beides noch nicht vorhanden ist, muss er eben einen neuen Datensatz in der Tabelle tblMaterialpreise <\/b>einfügen, der die gewünschten Werte für Höhe und Breite enthält.<\/p>\n Letztlich wäre es aber intuitiver, wenn der Benutzer einfach auf ein Plus-Zeichen zum Erstellen einer neuen Zeile oder Spalte klickt und dann durch einen Klick auf die entstehenden Zellen mit dem Minus-Zeichen den neuen Preis eingibt.<\/p>\n Was aber benötigen wir, um dies zu realisieren Richtig, wir müssten die verfügbaren Werte für die Höhen und Breiten in jeweils einer weiteren Tabelle vorhalten. In der aktuellen Konstellation ist das auch möglich, denn wir gehen ja erstmal von einem einzigen Material aus. In der Praxis ist unser Ansatz aber natürlich zu kurz gedacht – wir werden auch verschiedene Materialien berücksichtigen müssen, die wir in einer weiteren Tabelle speichern, die etwa tblMaterialien <\/b>heißt. Auf diese Tabelle verweisen wir dann von der Tabelle tblMaterialpreise <\/b>aus per Fremdschlüsselfeld. Ebenso können wir auf diese Tabelle dann von den beiden Tabellen zum Speichern von Höhen und Breiten verweisen. Also legen wir diese Tabellen an. Auf das Hinzufügen neuer Zeilen und Spalten kommen wir später zurück – vorher sind noch einige Vorbereitungen und Erweiterungen zu erledigen.<\/p>\n Die Tabelle tblMaterialien <\/b>soll die verschiedenen Materialien aufnehmen, damit wir die Materialpreise nicht nur in Abhängigkeit der Kombinationen von Höhe und Breite, sondern auch in Abhängigkeit von verschiedenen Materialien erfassen können, also etwa 17 mm und 19 mm dicke Spanplatten. Die Tabelle enthält zwei Felder: Das Feld MaterialID <\/b>ist das Primärschlüsselfeld, das Feld Bezeichnung <\/b>legt den Namen des Materials fest. Für dieses Feld legen wir einen eindeutigen Index fest, damit jede Bezeichnung nur einmal eingegeben werden kann (siehe Bild 1).<\/p>\n Bild 1: Die Tabelle tblMaterialien<\/span><\/b><\/p>\n Die Tabelle zum Speichern der Höhen heißt tblHoehen<\/b>. Sie enthält ein Primärschlüsselfeld namens HoeheID<\/b>, das Feld Hoehe <\/b>zum Angeben der Höhe und das Fremdschlüsselfeld MaterialID<\/b>, über das die Höhe einem Datensatz der Tabelle tblMaterialien <\/b>zugeordnet wird. Für die beiden Felder Hoehe <\/b>und MaterialID <\/b>legen wir einen eindeutigen, zusammengesetzten Schlüssel fest. So verhindern wir, dass für ein Material die gleiche Höhe doppelt angelegt wird (siehe Bild 2). <\/p>\n Bild 2: Die Tabelle tblHoehen<\/span><\/b><\/p>\n Die Tabelle tblBreiten <\/b>bauen wir analog zur Tabelle tblHoehen <\/b>auf.<\/p>\n Schließlich wollen wir der Tabelle tblMaterialpreise <\/b>noch ein Fremdschlüsselfeld namens MaterialID <\/b>hinzufügen, mit dem wir den entsprechenden Eintrag der Tabelle tblMaterialien <\/b>auswählen. Auch hier müssen wir das neue Feld Material-ID <\/b>in den eindeutigen Index integrieren. Die neue Version der Tabelle sieht nun wie in Bild 3 aus.<\/p>\n Bild 3: Die angepasste Tabelle tblMaterialpreise<\/span><\/b><\/p>\n Das Datenmodell enthält nun vier Tabellen, die wie in Bild 4 miteinander verknüpft sind.<\/p>\n Bild 4: Aktueller Stand des Datenmodells<\/span><\/b><\/p>\n Nun fügen wir einige Einträge zur Tabelle tblMaterialien<\/b> hinzu, zum Beispiel Spanplatte 17 mm <\/b>und Spanplatte 19 mm<\/b>. Anschließend verbinden wir alle Datensätze der Tabelle tblMaterialpreise<\/b>, die wir bisher angelegt haben, über das Feld MaterialID <\/b>mit dem ersten der beiden neu angelegten Datensätze der Tabelle tblMaterialien<\/b>. Das Ergebnis sieht in der Tabelle tblMaterialpreise <\/b>dann etwa wie in Bild 5 aus.<\/p>\n Bild 5: Inhalt der Tabelle tblMaterialpreise<\/span><\/b><\/p>\n Außerdem fügen wir in den beiden Tabellen tblHoehen <\/b>und tblBreiten <\/b>die Werte ein, die bereits in der Tabelle tblMaterialpreise <\/b>vorliegen.<\/p>\n An dieser Stelle fragen wir uns auch: Sollten wir nicht die Felder Hoehe <\/b>und Breite <\/b>der Tabelle tblMaterialpreise <\/b>mit den entsprechenden Datensätzen der Tabelle tblHoehen <\/b>und tblBreiten <\/b>verknüpfen Und würde es dann nicht sogar Sinn machen, hier einmal auf einen Autowert in den Primärschlüsselfeldern der beiden Tabellen tblHoehen <\/b>und tblBreiten <\/b>zu verzichten und direkt die Werte der Höhen und Breiten in das Primärschlüsselfeld einzutragen Dann hätten wir die für uns interessanten Werte direkt in den gebundenen Spalten der Fremdschlüsselfelder und müssten gar keine Lookup-Abfragen tätigen, um auf die Werte der Tabellen tblHoehen <\/b>und tblBreiten <\/b>zugreifen – diese würden dann lediglich zur Beschränkung der möglichen Werte dienen, die in den Fremdschlüsselfeldern Hoehe <\/b>und Breite <\/b>eingegeben beziehungsweise ausgewählt werden können.<\/p>\n Das erledigen wir schließlich, indem wir die Beziehungen wie in Bild 6 hinzufügen. Vorher haben wir die Primärschlüsselfelder HoeheID <\/b>und BreiteID <\/b>aus den Tabellen tblHoehen <\/b>und tblBreiten <\/b>entfernt und die Felder Hoehe <\/b>und Breite <\/b>in Primärschlüsselfelder ohne Autowert umgewandelt.<\/p>\n Bild 6: Neue Verknüpfungen im Datenmodell<\/span><\/b><\/p>\n Damit wir neue Daten zum Spielen haben, fügen wir der Tabelle tblMaterialien<\/b> einen zweiten Datensatz hinzu (siehe Bild 7).<\/p>\n Bild 7: Neuer Datensatz in der Tabelle tblMaterialien<\/span><\/b><\/p>\n Außerdem fügen wir in den beiden Tabellen tblHoehen <\/b>und tblBreiten <\/b>einige neue Datensätze mit Werten für die neue Materialart ein. Zur Unterscheidung von den Datensätzen für die bereits vorhandene Materialart nutzen wir hier kleinere Werte (100 bis 300) – siehe Bild 8.<\/p>\n Bild 8: Neue Werte für Höhe und Breite für das zuletzt hinzugefügte Material<\/span><\/b><\/p>\n Schließlich legen wir einige neue Datensätze in der Tabelle tblMaterialpreise <\/b>für das neue Material an (siehe Bild 9).<\/p>\n Bild 9: Materialpreise für neues Material<\/span><\/b><\/p>\n Wenn wir nun das Formular mit der Kreuztabelle öffnen, sieht dieses wie in Bild 10 aus. Hier werden nun alle Maße und alle Preise angezeigt – sowohl für die 17 mm als auch für die 19 mm dicken Spanplatten. Leider kann man diese aktuell nur dadurch auseinanderhalten, dass wir für die eine Spanplatte die kleineren Höhen und Breiten und für die andere die größeren festgelegt haben.<\/p>\n Bild 10: Kreuztabelle mit neuen Daten<\/span><\/b><\/p>\n Damit nur die Werte für eines der Materialien angezeigt werden, fügen wir dem Formular nun ein Kombinationsfeld hinzu, mit dem der Benutzer das Material auswählen kann. Das neue Kombinationsfeld nennen wir cboMaterial-ID<\/b>. Für seine Eigenschaft Datensatzherkunft <\/b>legen wir die folgende Abfrage fest:<\/p>\n Damit nur das Feld Bezeichnung <\/b>im Kombinationsfeld angezeigt wird und nicht das Primärschlüsselfeld Material-ID<\/b>, stellen wir die Eigenschaft Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein.<\/p>\n <\/p>\n Nun benötigen wir noch eine Ereignisprozedur, die nach der Auswahl eines neuen Eintrags im Kombinationsfeld die Kreuztabelle neu füllt. Der dazu aufgerufenen Prozedur KreuztabelleErstellen <\/b>müssen wir auch noch an irgendeiner Stelle die Information mitgeben, für welches Material das Webbrowser-Steuerelement die Preise anzeigen soll.<\/p>\n Die Ereignisprozedur implementieren wir wie folgt:<\/p>\n Hier haben wir bereits vorgegriffen, auf welche Art wir das betroffene Material übergeben – nämlich als Parameter der Prozedur KreuztabelleErstellen<\/b>. Diese erweitern wir um den entsprechenden Parameter. Außerdem fügen wir der Abfrage, welche die anzuzeigenden Daten für die Kreuztabelle in der Prozedur KreuztabelleErstellen <\/b>ermittelt, ein WHERE<\/b>-Kriterium mit dem Wert des Parameters hinzu. Das sieht dann gekürzt wie folgt aus:<\/p>\n Außerdem müssen wir noch die Prozedur anpassen, die beim öffnen des Formulars das Webbrowser-Steuerelement füllt und dazu die Prozedur KreuztabelleErstellen <\/b>aufruft:<\/p>\n Damit sorgen wir nun dafür, dass erstens beim Anzeigen des Formulars, was auch das Ereignis Form_Timer <\/b>auslöst (siehe erster Teil der Beitragsreihe) der erste Eintrag des Kombinationsfeldes eingestellt wird und zweitens dafür, dass die Prozedur KreuztabelleErstellen <\/b>mit dem Primärschlüsselwert des gewählten Eintrags aufgerufen wird. Dies führt dann beispielsweise zu einer Ansicht wie in Bild 11.<\/p>\n Bild 11: Preise nur für die gewählte Materialart<\/span><\/b><\/p>\n Wenn wir nun mit dem Kombinationsfeld den zweiten Eintrag auswählen, geschieht allerdings etwas Unerwartetes – siehe Bild 12. Die Kreuztabelle für die neu ausgewählte Materialart wird unten angefügt! Dies können wir allerdings leicht ändern. Dazu fügen wir vor der Anweisung, mit der wir das neue Tabellenelement anlegen, einen Befehl ein, der die Eigenschaft innerHTML <\/b>des body<\/b>-Elements auf eine leere Zeichenkette einstellt:<\/p>\n Bild 12: Zwei Kreuztabellen untereinander<\/span><\/b><\/p>\n Damit können wir dann über das Kombinationsfeld leicht zwischen den Materialarten wechseln.<\/p>\n Nun folgt ein weiterer wichtiger Schritt: Wir haben ja bereits die Tabellen tblHoehen <\/b>und tblBreiten <\/b>angelegt, damit wir auch schon Höhen und Breiten eingeben können, für die der Benutzer vielleicht noch gar keine Preise festgelegt hat. Dementsprechend werden die Höhen und Breiten auch beim Anzeigen der Spalten und Zeilen in der Kreuztabelle noch nicht berücksichtigt – dort berücksichtigen wir nur die Werte, die bereits in der Tabelle tblMaterialpreise <\/b>enthalten sind.<\/p>\n Das wollen wir aber nun ändern, damit auch die noch nicht mit Preisen versehenen Kombinationen aus Höhe und Breite bereits angezeigt und dann vom Benutzer in der Kreuztabelle bearbeitet werden können.<\/p>\n Dazu müssen wir wiederum nur zwei Zeilen in der Prozedur KreuztabelleErstellen <\/b>anpassen. Dabei handelt es sich um die Erstellung der ersten beiden Recordsets, in denen wir lediglich die Tabelle tblMaterialpreise <\/b>durch die Tabellen tblHoehen <\/b>und tblBreiten <\/b>ersetzen müssen:<\/p>\n Wenn wir in der Tabelle tblHoehen <\/b>nun eine neue Höhe von 400 mm für das Material mit 19 mm Dicke und in der Tabelle tblBreiten <\/b>eine neue Breite von 400 mm für das gleiche Material einstellen, sollten eine leere Zeile und eine leere Spalte dafür angezeigt werden (siehe Bild 13).<\/p>\n Bild 13: Neue Höhe und Breite<\/span><\/b><\/p>\n Wenn wir nun das Formular mit der Kreuztabelle öffnen, sieht das Ergebnis wie in Bild 14 aus. Das Ergebnis haben wir uns genau so vorgestellt!<\/p>\n Bild 14: Leere Zeilen und Spalten<\/span><\/b><\/p>\n Um die Einträge zu ändern, müssen wir ebenfalls änderungen vornehmen. Wenn wir etwa einen neuen Preis für die Kombination 400\/100 vornehmen wollen, erhalten wir die Fehlermeldung aus Bild 15. Der Fehler tritt in dieser Zeile in der Prozedur m_div_onfocusout <\/b>auf:<\/p>\n Bild 15: Fehler beim Versuch, einen neuen Preis einzugeben<\/span><\/b><\/p>\n Logisch – wir versuchen hier einen Datensatz in die Tabelle tblMaterialpreise <\/b>einzutragen, ohne die MaterialID <\/b>anzugeben. Die gehört aber zum zusammengesetzten, eindeutigen Index der Tabelle. Dazu erweitern wir zunächst die Klasse clsDivWrapper <\/b>um eine entsprechende Variable:<\/p>\n über die folgende Property Let<\/b>-Prozedur kann man den Wert dieser Variablen füllen:<\/p>\n Das Füllen erledigen wir beim Erstellen der Kreuztabelle in der Prozedur KreuztabelleErstellen<\/b>:<\/p>\n Außerdem integrieren wir die Variable m_MaterialID <\/b>in die Abfrage, die soeben zum Fehler geführt hat, indem wir sie in die Liste der beim Anlegen zu füllenden Felder hinzufügen:<\/p>\n Wenn Sie einen der vorhandenen Einträge ändern, löst dies überraschenderweise keinen Fehler aus. Kein Wunder: Der Datensatz ist bereits vorhanden und wir ändern ja nur den Preis für den Datensatz mit dem aus m_Div.id <\/b>ermittelten Primärschlüsselwert. Wir müssen also keine änderungen vornehmen:<\/p>\n Gleiches gilt übrigens für das Löschen eines Datensatzes durch Entfernen des entsprechenden Eintrags in der Kreuztabelle.<\/p>\n Nun kommt ein interessanter Teil: Wir wollen endlich die Plus-Symbole in die oberste Zeile und die linke Spalte integrieren, mit denen wir dem Benutzer ermöglichen wollen, neue Breiten und Höhen anzulegen.<\/p>\n In der Zwischenzeit hat sich die Idee allerdings in eine noch praktischere Richtigung gewechselt: Wir fügen dort etwa den Text [Neu] <\/b>ein und lassen den Benutzer einfach den Wert für die neue Höhe und Breite eingeben. Nach dem Verlassen der jeweiligen Zelle soll der entsprechende Datensatz in der Tabelle tblHoehe <\/b>beziehungsweise tblBreite <\/b>gespeichert werden und an der richtigen Stelle zwischen den übrigen Spalten- und Zeilenköpfen einsortiert werden.<\/p>\n Die Befehle für das Hinzufügen des Eintrags [Neu] <\/b>unter den letzten Zeilenkopf fügen wir wie folgt an das Ende der Prozedur KreuztabelleErstellen <\/b>ein:<\/p>\n Die hier verwendete Variable objDivNeueBreite <\/b>deklarieren wir wie folgt im Modulkopf:<\/p>\n Die neuen Zeilen fügen zunächst eine neue Zeile an die Tabelle an und fügen dieser eine Zelle hinzu. Der Klassenname wird auf rowHeader <\/b>eingestellt, damit auch der Inhalt dieser Zelle fett angezeigt wird.<\/p>\n Dann legen wir ein neues Div<\/b>-Element an, das wir mit der Variablen objDivNeueBreite <\/b>referenzieren. Wir stellen wieder contentEditable <\/b>auf true <\/b>ein, damit der Benutzer den Text dieser Zelle bearbeiten kann. Schließlich erhält das div<\/b>-Element noch den Text [Neue Breite]<\/b>. Das Ergebnis sieht wie in Bild 16 aus.<\/p>\n Bild 16: Text zum Anlegen einer neuen Breite<\/span><\/b><\/p>\n Nun fehlt noch eine Ereignisprozedur, die bei änderung dieses Textes die neue Breite in der Tabelle tblBreiten<\/b> speichert und die Anzeige der Kreuztabelle aktualisiert. Diese legen wir für die Objektvariable objDivNeueBreite <\/b>über die beiden Kombinationsfelder im oberen Teil des Codefensters der Klasse Form_frmKreuztabelleHTML<\/b> an und füllen diese wie in Listing 1.<\/p>\n Listing 1: Prozedur, die nach dem Anlegen einer neuen Breite ausgelöst wird<\/span><\/b><\/p>\n Die Prozedur prüft zunächst in einer If…Then<\/b>-Bedingung, ob sich der eingegebene Text tatsächlich vom ursprünglichen Text [Neue Breite] <\/b>unterscheidet.<\/p>\n Ist dies der Fall, prüft die Routine in einer untergeordneten If…Then<\/b>-Bedingung, ob der Text des div<\/b>-Elements nicht numerisch oder leer ist. Anderenfalls würde die Prozedur eine entsprechende Meldung anzeigen und den ursprünglichen Wert [Neue Breite] <\/b>wieder einstellen.<\/p>\n War die Eingabe jedoch gültig, wird der Text per INSERT INTO<\/b>-Anweisung in das Feld Breite <\/b>der Tabelle tblBreiten <\/b>eingetragen, und zwar im Kontext des aktuell mit cboMaterialID <\/b>ausgewählten Materials. Danach wird die Kreuztabelle mit KreuztabelleErstellen <\/b>neu erstellt.<\/p>\n Fehler bei bereits vorhandene Breiten<\/p>\n Beim Experimentieren mit dem neuen Feature haben wir einmal eine Breite eingegeben, die zwar noch nicht für das Material Spanplatte 19 mm <\/b>vorhanden war, aber schon für Spanplatte 17 mm<\/b>. Dies löste dann einen Fehler wegen einer Primärschlüsselverletzung aus (siehe Bild 17).<\/p>\n Bild 17: Fehler durch eine Primärschlüsselverletzung<\/span><\/b><\/p>\n Auch das ist nicht verwunderlich. Wir haben zwar noch den zusammengesetzten, eindeutigen Schlüssel mit den beiden Feldern Breite <\/b>und MaterialID <\/b>der Tabelle tblBreiten <\/b>aus der vorherigen Version herübergerettet, aber gleichzeitig das Feld Breite <\/b>als Primärschlüsselfeld behalten – und wenn dort ein Wert auftaucht, der bereits vorhanden ist, löst dies den oben genannten Fehler aus. <\/p>\n Also müssen wir hier noch etwas am Tabellendesign ändern: Die beiden Felder Breite <\/b>und MaterialID <\/b>der Tabelle tblBreiten <\/b>müssen als gemeinsamer Primärschlüssel definiert werden.<\/p>\n Das gelingt allerdings nicht so einfach: Als Erstes müssen wir bestehenden Beziehung für das Primärschlüsselfeld zwischen den Tabellen tblBreiten <\/b>und tblMaterialpreise <\/b>im Beziehungen-Fenster entfernen.<\/p>\n Danach können wir das Primärschlüsselfeld in einen aus den beiden Feldern Breite <\/b>und MaterialID <\/b>bestehenden Primärschlüssel ändern (siehe Bild 18). Den noch vorhandenen eindeutigen Schlüssel aus diesen beiden Feldern können Sie nun entfernen.<\/p>\n Bild 18: Zusammengesetzter Primärschlüssel<\/span><\/b><\/p>\n Anschließend stellen wir im Beziehungen-Fenster die Beziehung zwischen den beiden Tabellen tblMaterialpreise <\/b>und tblBreiten <\/b>über die beiden Felder Breite <\/b>und Material-ID <\/b>wieder her.<\/p>\n Nun können wir etwa für das Material Spanplatte 19 mm <\/b>die Breite 700 mm neu anlegen, obwohl diese bereits für das Material Spanplatte 17 mm <\/b>vorhanden ist.<\/p>\n Nun wollen wir analog zur neuen Zeile mit einem neuen Wert für die Breite noch einen Eintrag mit dem Text [Neue Höhe] <\/b>als letzten Spaltenkopf der obersten Zeile hinzufügen.<\/p>\n Dazu müssen wir erst einmal die Stelle finden, an der wir den entsprechenden Code eintragen. Die neue Zelle soll in einer neuen Spalte der ersten Zeile landen. Wo legen wir diese im Code der Prozedur KreuztabelleAnlegen <\/b>an Direkt in der ersten Do While<\/b>-Schleife!<\/p>\n Also platzieren wir die neuen Anweisungen direkt hinter der Loop<\/b>-Anweisung dieser Schleife:<\/p>\n In diesem Fall fügen wir keine neue Zeile hinzu wie bei der Zelle für die neue Breite, sondern nur eine neue Zelle. Diese versehen wir mit der Klasse ColumnHeader<\/b> und verfahren ansonsten wie bei der vorherigen Zelle. Die hier verwendete Objektvariable objDivNeueHoehe <\/b>müssen wir natürlich auch im Kopf der Formularklasse deklarieren:<\/p>\n Schließlich legen wir auch noch eine Ereignisprozedur an, die durch das Ereignis onfocusout <\/b>des Objekts obj-DivNeueHoehe <\/b>ausgelöst wird. Diese übernimmt grundsätzlich die gleichen Aufgaben wie objDivNeueBreite_onfocusout<\/b>, legt aber einen neuen Datensatz in der Tabelle tblHoehen <\/b>an.<\/p>\n Wenn Sie nicht nur die Werte in der übersicht anschauen und bearbeiten möchten, können wir noch eine Funktion oben draufsetzen. Dabei handelt es sich um das Aktivieren eines der Einträge per Doppelklick.<\/p>\n Damit können Sie etwa für einen der Einträge zwischen den Spalten- und Zeilenköpfen ein Detailformular mit dem kompletten Datensatz der zugrunde liegenden Tabelle tblMaterialpreise <\/b>aufrufen. Wir wollen es an dieser Stelle etwas einfacher halten und nach einem Doppelklick lediglich ein Meldungsfenster mit dem Primärschlüsselwert des angeklickten Elements anzeigen.<\/p>\n\n
Neue Zeilen und Spalten anlegen<\/h2>\n
Tabelle zum Speichern der Materialien<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_006.png\")
<\/p>\nTabellen zum Speichern von Höhen und Breiten<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_007.png\")
<\/p>\nMaterialpreis nach Material<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_008.png\")
<\/p>\n![\"Aktueller](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_009.png\")
<\/p>\nMaterial anlegen<\/h2>\n
![\"Inhalt](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_010.png\")
<\/p>\nHöhen und Breiten verknüpfen<\/h2>\n
![\"Neue](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_011.png\")
<\/p>\nWerte für neues Material hinzufügen<\/h2>\n
![\"Neuer](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_013.png\")
<\/p>\n![\"Neue](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_014.png\")
<\/p>\n![\"Materialpreise](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_016.png\")
<\/p>\n![\"Kreuztabelle](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_017.png\")
<\/p>\nSELECT MaterialID, Bezeichnung FROM tblMaterialien \r\nORDER BY Bezeichnung;<\/pre>\n
Private Sub <\/span>cboMaterialID_AfterUpdate()\r\n KreuztabelleErstellen Me!cboMaterialID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>KreuztabelleErstellen(lngMaterialID As Long<\/span>)\r\n ...\r\n Set<\/span> rstSpaltenkoepfe = db.OpenRecordset( _\r\n \"SELECT DISTINCT Hoehe FROM tblMaterialpreise WHERE MaterialID = \" _\r\n & lngMaterialID & \" ORDER BY Hoehe\", dbOpenDynaset)\r\n ...\r\n Set<\/span> rstZeilen = db.OpenRecordset( _\r\n \"SELECT DISTINCT Breite FROM tblMaterialpreise WHERE MaterialID = \" _\r\n & lngMaterialID & \" ORDER BY Breite\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstZeilen.EOF\r\n ...\r\n Set<\/span> rstWerte = db.OpenRecordset( _\r\n \"SELECT MaterialpreisID, Preis, Hoehe FROM tblMaterialpreise WHERE MaterialID = \" _\r\n & lngMaterialID & \" AND Breite = \" & rstZeilen!Breite & \" ORDER BY Hoehe\", dbOpenDynaset)\r\n ...\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Timer()\r\n ...\r\n Me!cboMaterialID = Me!cboMaterialID.ItemData(0)\r\n KreuztabelleErstellen Me!cboMaterialID\r\nEnd Sub<\/span><\/pre>\n![\"Preise](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_018.png\")
<\/p>\n![\"Zwei](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_019.png\")
<\/p>\nPrivate Sub <\/span>KreuztabelleErstellen(lngMaterialID As Long<\/span>)\r\n ...\r\n objDocument.body.innerHTML = \"\"\r\n Set<\/span> objTable = objDocument.createElement(\"Table\")\r\n ...<\/pre>\nProzedur anpassen, damit auch nicht verwendete Werte in der Kreuztabelle erscheinen<\/h2>\n
Private Sub <\/span>KreuztabelleErstellen(lngMaterialID As Long<\/span>)\r\n ...\r\n Set<\/span> rstSpaltenkoepfe = db.OpenRecordset( _\r\n \"SELECT DISTINCT Hoehe FROM tblHoehen WHERE MaterialID = \" _\r\n & lngMaterialID & \" ORDER BY Hoehe\", dbOpenDynaset)\r\n ...\r\n Set<\/span> rstZeilen = db.OpenRecordset( _\r\n \"SELECT DISTINCT Breite FROM tblBreiten WHERE MaterialID = \" _\r\n & lngMaterialID & \" ORDER BY Breite\", dbOpenDynaset)\r\n ...\r\nEnd Sub<\/span><\/pre>\n![\"Neue](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_022.png\")
<\/p>\n![\"Leere](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_020.png\")
<\/p>\nändern von Einträgen<\/h2>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_023.png\")
<\/p>\ndb.Execute \"INSERT INTO tblMaterialpreise(Preis, Hoehe, Breite) VALUES(\" _\r\n & CCur(Abs(strText)) & \",\" & m_Hoehe & \", \" & m_Breite & \")\", dbFailOnError<\/pre>\n
Private <\/span>m_MaterialID As Long<\/span><\/pre>\nPublic Property Let <\/span>MaterialID(lng As Long<\/span>)\r\n m_MaterialID = lng\r\nEnd Property<\/span><\/pre>\nIf <\/span>Not<\/span> rstWerte.NoMatch Then<\/span>\r\n ...\r\n objDivWrapper.MaterialID = lngMaterialID\r\n ...\r\nElse<\/span>\r\n ...\r\n objDivWrapper.MaterialID = lngMaterialID\r\n ...\r\nEnd If<\/span><\/pre>\ndb.Execute \"INSERT INTO tblMaterialpreise(Preis, Hoehe, Breite, MaterialID) VALUES(\" _\r\n & CCur(Abs(strText)) & \",\" & m_Hoehe & \", \" & m_Breite & \", \" & m_MaterialID & \")\", _\r\n dbFailOnError<\/pre>\n
Anpassen der änderung eines Preises in Abhängigkeit vom Material<\/h2>\n
db.Execute \"UPDATE tblMaterialpreise SET Preis = \" & CCur(Abs(strText)) _\r\n & \" WHERE MaterialpreisID = \" & m_Div.id, dbFailOnError<\/pre>\n
Anlegen neuer Höhen und Breiten über die Kreuztabelle<\/h2>\n
Private Sub <\/span>KreuztabelleErstellen(lngMaterialID As Long<\/span>)\r\n ...\r\n Set<\/span> objRow = objTable.insertRow\r\n Set<\/span> objCell = objRow.insertCell\r\n objCell.className = \"rowHeader\"\r\n Set<\/span> objDivNeueBreite = objDocument.createElement(\"Div\")\r\n objDivNeueBreite.contentEditable = \"true\"\r\n objCell.appendChild objDivNeueBreite\r\n objDivNeueBreite.innerText = \"[Neue Breite]\"\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents objDivNeueBreite As <\/span>MSHTML.HTMLDivElement<\/pre>\n![\"Text](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_024.png\")
<\/p>\nPrivate Sub <\/span>objDivNeueBreite_onfocusout()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strText As String<\/span>\r\n strText = objDivNeueBreite.textContent\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Not<\/span> (strText = \"[Neue Breite]\") Then<\/span>\r\n If <\/span>Not<\/span> IsNumeric(strText) And Not<\/span> Len<\/span>(strText) = 0 Then<\/span>\r\n MsgBox<\/span> \"Ungültiger Text: \" & strText\r\n objDivNeueBreite.textContent = \"[Neue Breite]\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(strText) > 0 Then<\/span>\r\n db.Execute \"INSERT INTO tblBreiten(Breite, MaterialID) VALUES(\" _\r\n & CCur(Abs(strText)) & \", \" _\r\n & Me!cboMaterialID & \")\", dbFailOnError\r\n KreuztabelleErstellen Me!cboMaterialID\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_025.png\")
<\/p>\n![\"Zusammengesetzter](\"..\/fileadmin\/_temp_\/2019_01\/pic_1174_026.png\")
<\/p>\nEintrag für neue Spalte hinzufügen<\/h2>\n
Private Sub <\/span>KreuztabelleErstellen(lngMaterialID As Long<\/span>)\r\n ...\r\n Do While<\/span> Not<\/span> rstSpaltenkoepfe.EOF\r\n Set<\/span> objCell = objRow.insertCell\r\n objCell.className = \"columnHeader\"\r\n objCell.innerText = rstSpaltenkoepfe!Hoehe\r\n rstSpaltenkoepfe.MoveNext<\/span>\r\n Loop<\/span>\r\n Set<\/span> objCell = objRow.insertCell\r\n objCell.className = \"columnHeader\"\r\n Set<\/span> objDivNeueHoehe = objDocument.createElement(\"Div\")\r\n objDivNeueHoehe.contentEditable = \"true\"\r\n objCell.appendChild objDivNeueHoehe\r\n objDivNeueHoehe.innerText = \"[Neue Höhe]\"\r\n ...\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents objDivNeueHoehe As <\/span>MSHTML.HTMLDivElement<\/pre>\nAktionen bei Doppelklick auf die Werte<\/h2>\n