<\/p>\n
Im Beitrag „Kreuztabelle per HTML“ 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 im bereits genannten Beitrag HTML-Kreuztabelle 1: Basics <\/b>(www.access-im-unternehmen.de\/1161<\/b>) genannte Ansicht aus Bild 1. Hier wollen wir nun folgende Erweiterungen hinzufügen:<\/p>\n
![\"Diese](\"..\/fileadmin\/_temp_\/2018_06\/pic_1162_011.png\")
<\/p>\n
Bild 1: Diese Ansicht soll um Bearbeitungsfunktionen erweitert werden.<\/span><\/b><\/p>\n Um die erste Aufgabe zu erfüllen, müssen wir die unter den Spaltenüberschriften und rechts von den Zeilenüberschriften befindlichen Zellen, die bereits Werte anzeigen, mit eindeutigen Markierungen versehen. Da jeder Datensatz einen Wert der Tabelle tblMaterialpreise <\/b>repräsentiert, können wir hier mit dem Primärschlüsselwert der entsprechenden Datensätze arbeiten. Dieser landet dann in Form des Attributs id <\/b>in einem div<\/b>-Element, welches im td<\/b>-Element steckt und den eigentlichen Zahlenwert einschließt. Außerdem wollen wir hier die Grundlage für die Bearbeitbarkeit der Elemente legen, indem wir für das gleiche div<\/b>-Element das Attribut contentEditable <\/b>auf den Wert true <\/b>einstellen:<\/p>\n Diese änderungen erreichen wir leicht, indem wir die Prozedur KreuztabelleErstellen<\/b>, welche das HTML-Dokument aus objDocument <\/b>mit dem HTML-Inhalt füllt. Allerdings führen wir gleich noch ein paar weitere Schritte durch, welche die Funktion zum Bearbeiten der Inhalte vervollständigen.<\/p>\n Die neue Version der Prozedur KreuztabellenErstellen<\/b> finden Sie in Listing 1.<\/p>\n Listing 1: Ausschnitt aus der Prozedur KreuztabelleErstellen<\/span><\/b><\/p>\n Hier verwenden wir ein Collection<\/b>-Objekt, das wir im allgemeinen Teil des Klassenmoduls des Formulars deklarieren wollen:<\/p>\n Die Prozedur Kreuztabellen <\/b>deklariert dann auch ein paar neue Elemente. Das erste ist ein Objekt des Typs clsDivWrapper<\/b>. Was das ist, erläutern wir gleich weiter unten:<\/p>\n Außerdem deklarieren wir eine Variable des Typs HTML-Div-Element <\/b>namens objDiv<\/b>:<\/p>\n Damit das Collection<\/b>-Objekt einsatzbereit ist, füllen wir es mit einer neuen Collection:<\/p>\n Die folgenden Abschnitte sind unverändert, daher haben wir sie im Listing nicht abgebildet. Die Magie bereiten wir in der inneren der beiden verschachtelten Do While<\/b>-Schleifen vor. Hier erstellen wir mit der createElement<\/b>-Methode von objDocument <\/b>zunächst ein neues Objekt des Typs HTMLDivElement <\/b>und referenzieren es mit der Variablen objDiv<\/b>. Dann stellen wir dessen Attribut id <\/b>auf den Primärschlüsselwert des aktuellen Datensatzes des Recordsets rstWerte <\/b>ein sowie das Attribut contentEditable <\/b>auf den Wert true<\/b>.<\/p>\n Außerdem hängen wir das frisch erstellte Element mit der appendChild<\/b>-Methode an das Objekt objDiv <\/b>an.<\/p>\n Was dann geschieht, erklärt sich erst später vollständig, wenn wir die Klasse clsDivWrapper <\/b>erläutern, die einen Großteil der Arbeit erledigt: Wir erstellen ein neues Objekt auf Basis der Klasse clsDivWrapper <\/b>und weisen dessen Eigenschaft Div<\/b> das HTMLDivElement<\/b>-Objekt aus objDiv <\/b>zu. Danach hängen wir das Objekt objDivWrapper <\/b>an die Auflistung colDivs <\/b>an:<\/p>\n Damit kommen wir zum Inhalt und der Funktion der Klasse clsDivWrapper<\/b>.<\/p>\n In der Prozedur KreuztabelleErstellen <\/b>haben wir die Vorbereitung erschaffen und zu jedem Div<\/b>-Element mit einem Wert des Feldes Preis <\/b>der Tabelle tblMaterialpreise <\/b>eine Instanz der Klasse clsDivWrapper <\/b>erstellt und diese in der global deklarierten Variablen colDivs <\/b>gespeichert. Diese Klasse nun soll die fehlende Aufgabe übernehmen, nämlich das Speichern geänderter Werte in der Kreuztabelle.<\/p>\n Dazu legen Sie ein neues Klassenmodul namens clsDivWrapper <\/b>an, dem Sie zunächst zwei Deklarationen hinzufügen:<\/p>\n Die Variable strText <\/b>soll den aktuell in der Zelle der Kreuztabelle befindlichen Text speichern, die Variable m_Div <\/b>nimmt den von der Prozedur KreuztabelleErstellen <\/b>übergebenen Verweis auf das Objekt des Typs HTMLDivElement <\/b>auf. Die Deklaration haben wir um das Schlüsselwort WithEvents <\/b>ergänzt, da wir für dieses Objekt ein oder mehrere Ereignisprozeduren implementieren wollen.<\/p>\n Damit wir der Klasse wie in der KreuztabelleErstellen <\/b>programmiert den Verweis auf objDiv <\/b>übergeben können, definieren wir eine Property Set<\/b>-Prozedur, die wie folgt aussieht:<\/p>\n Nun müssen wir aus den verschiedenen Ereignissen, die für das Element m_Div <\/b>zur Verfügung stehen, die für uns interessanten herausfinden.<\/p>\n <\/p>\n Die Ereignisse finden Sie, wenn Sie im linken Kombinationsfeld des Klassenmoduls den Eintrag m_Div <\/b>auswählen und dann das rechte Kombinationsfeld öffnen (siehe Bild 2).<\/p>\n Bild 2: Implementieren der Ereignisse für m_Div<\/span><\/b><\/p>\n Wir entscheiden uns für die folgenden beiden Ereignisse:<\/p>\n Das Ereignis onkeyup <\/b>nutzen wir, um nach der Eingabe eines jeden Zeichens den aktuellen Inhalt des div<\/b>-Elements, den wir über die Eigenschaft textContent <\/b>ermitteln, in die Variable strText <\/b>schreiben:<\/p>\n Das Ereignis onfocusout <\/b>soll nach dem Verlassen des Feldes den aktuellen Inhalt in den entsprechenden Datensatz der Tabelle tblMaterialpreise <\/b>eintragen.<\/p>\n Den aktuellen Inhalt können wir nun der Variablen strText<\/b> entnehmen, allerdings müssen wir vor dem ändern des Datensatzes natürlich prüfen, ob der Wert auch tatsächlich geändert wurde. Nur in diesem Fall enthält strText <\/b>nämlich einen Inhalt – anderenfalls ist es leer:<\/p>\n Mit den aktuellen Einstellungen können Sie nun nach dem erneuten öffnen des Formulars die Werte der vorhandenen Datensätze ändern (siehe Bild 3).<\/p>\n Bild 3: änderungen an den Daten werden direkt in die Tabelle geschrieben<\/span><\/b><\/p>\n Wenn es in einer Zeile\/Spalte beispielsweise nur einen Wert gibt wie im Fall der rechten, unteren Zelle mit dem Wert 1450<\/b>, kann der Benutzer die fehlenden Werte aktuell noch nicht durch einfaches Anklicken der leeren Felder hinzufügen.<\/p>\n Dazu müssten wir bei den leeren Feldern statt eines leeren tr<\/b>-Elements (<td><\/td><\/b>) auch ein div<\/b>-Element hinzufügen und dieses beispielsweise mit einem Minus-Zeichen als Symbol für den fehlenden Wert hinterlegen. Dafür passen wir einfach den Else<\/b>-Teil der If…Then<\/b>-Bedingung innerhalb der inneren Do While<\/b>-Schleife wie folgt an:<\/p>\n Damit sollten doch hoffentlich alle leeren Felder erfasst sein Das Ergebnis nach dem nächsten öffnen des Formulars liefert leider ein anderes Ergebnis (siehe Bild 4). Dadurch, dass das Recordset rstWerte <\/b>nur die vorhandenen Werte erfasst, was bei den letzten Werten für den Spaltenkopf mit der überschrift 1200 <\/b>leider bei einigen Feldern nicht der Fall ist, werden hier auch keine Minus-Zeichen mehr angezeigt. Also müssen wir offensichtlich die Schleife ein wenig anpassen.<\/p>\n Bild 4: Minus-Zeichen statt leerer Felder – leider nicht überall<\/span><\/b><\/p>\n Die änderung ist recht einfach: Wir durchlaufen einfach nicht mehr das Recordset rstWerte<\/b>, sondern das Recordset rstSpaltenkoepfe <\/b>– dieses enthält ja einen Datensatz für jede Spalte.<\/p>\n Bei jedem Durchlauf durchsuchen wir das Recordset rstWerte <\/b>nach einem Datensatz, dessen Wert im Feld Hoehe <\/b>mit dem Wert des entsprechenden Feldes des Recordsets rstSpaltenkoepfe <\/b>übereinstimmt.<\/p>\n Finden wir einen solchen Datensatz, wird die Zelle mit dem Wert gefüllt, anderenfalls mit dem Minus-Zeichen. Außerdem legen wir als ID <\/b>den Wert 0<\/b> fest, damit wir beim Anklicken wissen, dass es sich um eine leere Zelle handelt. Schließlich ist noch eine weitere, wichtige änderung nötig: Wir müssen der Klasse clsDivWrapper <\/b>noch mitteilen, für welche Höhe und welche Breite der neue Wert gespeichert werden muss. Dazu definieren wir in der Klasse clsDivWrapper <\/b>zwei neue private Variablen sowie die beiden passenden Property Let<\/b>-Prozeduren:<\/p>\n Im folgenden Ausschnitt der Prozedur KreuztabelleErstellen <\/b>können wir dann diese beiden Werte aus den Recordsets auslesen und in die Eigenschaften Hoehe <\/b>und Breite <\/b>eintragen:<\/p>\n Beim nächsten öffnen des Formulars erscheinen nun zumindest schon einmal Minus-Zeichen für alle fehlenden Werte (siehe Bild 5).<\/p>\n Bild 5: Minus-Zeichen für alle leeren Felder<\/span><\/b><\/p>\n Damit sich nun auch etwas tut, wenn der Benutzer eines der Minus-Zeichen durch einen Zahlenwert ersetzt, passen wir noch die Methode m_Div_onfocusout <\/b>der Klasse clsDivWrapper<\/b> an. Diese sieht anschließend wie in Listing 2 aus. Nach der Prüfung, ob der Text überhaupt einen Wert enthält, also eine änderung stattgefunden hat, fügen wir eine weitere If…Then<\/b>-Bedingung ein.<\/p>\n Listing 2: Neue Version der Prozedur m_Div_onfocusout<\/span><\/b><\/p>\n Hier prüfen wir, ob die Eigenschaft ID <\/b>einen Wert ungleich 0 <\/b>aufweist. In diesem Fall ändern wir den Datensatz wie bisher schon erfolgt. Anderenfalls führen wir eine INSERT INTO<\/b>-Abfrage aus, welche einen neuen Datensatz in der Tabelle tblMaterialpreise <\/b>einfügt und dabei nicht nur den Wert des Feldes Preis<\/b>, sondern auch die Höhe und die Breite berücksichtigt, welche die Prozedur KreuztabelleErstellen <\/b>über die Eigenschaften Hoehe <\/b>und Breite <\/b>an die Klasse übergeben hat.<\/p>\n Ein weiterer wichtiger Schritt ist, dass wir anschließend ermitteln, wie der Primärschlüsselwert des neuen Datensatzes lautet und diesen für das Attribut id <\/b>des Div<\/b>-Elements aus m_Div <\/b>eintragen. Auf diese Weise kann bei einer nachfolgenden Bearbeitung direkt der richtige Datensatz ermittelt werden. Würden wir dies nicht tun, würde der Wert bei 0 <\/b>bleiben. Wenn wir dann erneut versuchen, den Wert zu diesem Element zu bearbeiten, würde die UPDATE<\/b>-Anweisung versuchen, einen Datensatz zu ändern, der den Primärschlüsselwert 0 <\/b>hat – der ist aber nicht vorhanden.<\/p>\n Wenn Sie etwa mit der Tabulator-Taste durch die Felder navigieren und dabei eines der Felder verlassen, dass mit dem Minus-Zeichen gefüllt ist, tritt ein Fehler in der Prozedur m_Div_onkeyup <\/b>auf, weil Len(strText) <\/b>größer als 0 <\/b>ist und m_Div.id <\/b>gleich 0<\/b>, wodurch der Else<\/b>-Teil der inneren If…Then<\/b>-Bedingung angesteuert wird.<\/p>\n Beim Ausführen der INSERT INTO<\/b>-Abfrage soll dann das Minus-Zeichen (–<\/b>) für das Währungsfeld Preis <\/b>eingetragen werden, was den Fehler auslöst. Warum aber wird das Ereignis überhaupt ausgelöst, obwohl wir ja gar keinen neuen Preis eingegeben haben Nun: Wenn wir die Tabulator-Taste nutzen, ist das ja auch ein Tastendruck, der von dieser Prozedur registriert wird.<\/p>\n Wir müssten also eine Möglichkeit finden, um zu prüfen, ob der Benutzer tatsächlich ein Zeichen eingegeben oder nur eine Taste wie die Tabulator-Taste gedrückt hat. Bei den entsprechenden Ereignisprozeduren von Access wäre dies kein Problem, diese liefern ja eine Nummer für die gedrückte Taste per Parameter.<\/p>\n Die hier verwendete Ereignisprozedur hat jedoch gar keine Parameter. Wie kommen wir dann an die gedrückte Taste<\/p>\n Die Antwort ist: Es gelingt uns unter VBA nicht wie gewünscht. Das ist auch kein Problem, denn es gibt immer mehrere Wege, ein Problem zu lösen.<\/p>\n In diesem Fall haben wir bisher in der Prozedur m_Div_onfocusout <\/b>geprüft, ob strText <\/b>eine Zeichenkette enthält. Wir ändern die Strategie, die nicht funktioniert hat, indem wir in der Klasse clsDivWrapper <\/b>eine neue lokale Variable namens m_TextOld <\/b>einführen:<\/p>\n Diese können wir über die folgende öffentliche Property Let<\/b>-Variable füllen:<\/p>\n Diese Eigenschaft füllen wir beim Anlegen der Klassen in der Methode KreuztabelleErstellen<\/b>:<\/p>\n Auf diese Weise speichern wir den initial eingetragenen Text für jede Zelle in der Variablen m_TextOld<\/b>.<\/p>\n Die Ereignisprozedur m_Div_onfocusout <\/b>passen wir nun so an, dass nicht mehr geprüft wird, ob strText <\/b>überhaupt einen Wert enthält, sondern ob strText <\/b>sich von m_TextOld <\/b>unterscheidet. Außerdem strukturieren wir die \n
Tabellenelemente mit ID und der Eigenschaft contentEditable versehen<\/h2>\n
<table>\r\n <tbody>\r\n <tr>\r\n <td class=\"columnHeader rowHeader\"><\/td>\r\n <td class=\"columnHeader\">700<\/td>\r\n <td class=\"columnHeader\">800<\/td>\r\n ...\r\n <\/tr>\r\n <tr>\r\n <td class=\"rowHeader\">800<\/td>\r\n <td>\r\n <div id=\"10\" contenteditable=\"true\">12<\/div>\r\n <\/td>\r\n <td>\r\n <div id=\"7\" contenteditable=\"true\">64<\/div>\r\n <\/td>\r\n <td>\r\n <div id=\"6\" contenteditable=\"true\">72<\/div>\r\n <\/td>\r\n ...\r\n <\/tr>\r\n ...\r\n <\/tbody>\r\n<\/table><\/pre>\n
änderung der Prozedur KreuztabelleErstellen<\/h2>\n
Private Sub <\/span>KreuztabelleErstellen()\r\n ...\r\n Dim <\/span>objDivWrapper As <\/span>clsDivWrapper\r\n Dim <\/span>objDiv As <\/span>MSHTML.HTMLDivElement\r\n Set<\/span> colDivs = New<\/span> Collection\r\n ...\r\n Set<\/span> rstZeilen = db.OpenRecordset(\"SELECT DISTINCT Breite FROM tblMaterialpreise ORDER BY Breite\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstZeilen.EOF\r\n Set<\/span> objRow = objTable.insertRow\r\n rstSpaltenkoepfe.MoveFirst\r\n Set<\/span> objCell = objRow.insertCell\r\n objCell.innerText = rstZeilen!Breite\r\n objCell.className = \"rowHeader\"\r\n Set<\/span> rstWerte = db.OpenRecordset(\"SELECT MaterialpreisID, Preis, Hoehe FROM tblMaterialpreise WHERE Breite = \" _\r\n & rstZeilen!Breite & \" ORDER BY Hoehe\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstWerte.EOF\r\n If <\/span>rstSpaltenkoepfe!Hoehe = rstWerte!Hoehe Then<\/span>\r\n Set<\/span> objCell = objRow.insertCell\r\n Set<\/span> objDiv = objDocument.createElement(\"Div\")\r\n objDiv.id = rstWerte!MaterialpreisID\r\n objDiv.contentEditable = \"true\"\r\n objCell.appendChild objDiv\r\n objDiv.innerText = rstWerte!Preis\r\n Set<\/span> objDivWrapper = New<\/span> clsDivWrapper\r\n Set<\/span> objDivWrapper.Div = objDiv\r\n colDivs.Add objDivWrapper\r\n rstWerte.MoveNext<\/span>\r\n Else<\/span>\r\n Set<\/span> objCell = objRow.insertCell\r\n End If<\/span>\r\n rstSpaltenkoepfe.MoveNext<\/span>\r\n Loop<\/span>\r\n rstZeilen.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>colDivs As <\/span>Collection<\/pre>\nDim <\/span>objDivWrapper As <\/span>clsDivWrapper<\/pre>\nDim <\/span>objDiv As <\/span>MSHTML.HTMLDivElement<\/pre>\nSet<\/span> colDivs = New<\/span> Collection<\/pre>\nSet<\/span> objDiv = objDocument.createElement(\"Div\")\r\nobjDiv.id = rstWerte!MaterialpreisID\r\nobjDiv.contentEditable = \"true\"\r\nobjCell.appendChild objDiv<\/pre>\nobjDiv.innerText = rstWerte!Preis\r\nSet<\/span> objDivWrapper = New<\/span> clsDivWrapper\r\nSet<\/span> objDivWrapper.Div = objDiv\r\ncolDivs.Add objDivWrapper<\/pre>\nPrivate <\/span>WithEvents m_Div As <\/span>MSHTML.HTMLDivElement\r\nPrivate <\/span>strText As String<\/span><\/pre>\nPublic Property Set<\/span> <\/span>Div(Div As <\/span>MSHTML.HTMLDivElement)\r\n Set<\/span> m_Div = Div\r\nEnd Property<\/span><\/pre>\n![\"Implementieren](\"..\/fileadmin\/_temp_\/2018_06\/pic_1162_002.png\")
<\/p>\n\n
Private Sub <\/span>m_Div_onkeyup()\r\n strText = m_Div.textContent\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>m_Div_onfocusout()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Len<\/span>(strText) > 0 Then<\/span>\r\n db.Execute \"UPDATE tblMaterialpreise SET Preis = \" & strText & \" WHERE MaterialpreisID = \" & m_Div.id, dbFailOnError\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"änderungen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1162_003.png\")
<\/p>\nFehlende Datensätze anlegen<\/h2>\n
If <\/span>rstSpaltenkoepfe!Hoehe = rstWerte!Hoehe Then<\/span>\r\n ...\r\nElse<\/span>\r\n Set<\/span> objCell = objRow.insertCell\r\n ''''neu für leere Felder\r\n Set<\/span> objDiv = objDocument.createElement(\"Div\")\r\n objDiv.id = \"0\"\r\n objDiv.contentEditable = \"true\"\r\n objCell.appendChild objDiv\r\n objDiv.innerText = \"-\"\r\n Set<\/span> objDivWrapper = New<\/span> clsDivWrapper\r\n objDivWrapper.Hoehe = rstSpaltenkoepfe!Hoehe\r\n objDivWrapper.Breite = rstZeilen!Breite \r\n Set<\/span> objDivWrapper.Div = objDiv\r\n colDivs.Add objDivWrapper\r\nEnd If<\/span><\/pre>\n![\"Minus-Zeichen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1162_004.png\")
<\/p>\nPrivate <\/span>m_Hoehe As Long<\/span>\r\nPrivate <\/span>m_Breite As Long<\/span>\r\nPublic Property Let <\/span>Hoehe(lng As Long<\/span>)\r\n m_Hoehe = lng\r\nEnd Property<\/span>\r\nPublic Property Let <\/span>Breite(lng As Long<\/span>)\r\n m_Breite = lng\r\nEnd Property<\/span><\/pre>\nDo While<\/span> Not<\/span> rstSpaltenkoepfe.EOF\r\n rstWerte.FindFirst \"Hoehe = \" & rstSpaltenkoepfe!Hoehe\r\n If <\/span>Not<\/span> rstWerte.NoMatch Then<\/span>\r\n Set<\/span> objCell = objRow.insertCell\r\n Set<\/span> objDiv = objDocument.createElement(\"Div\")\r\n objDiv.id = rstWerte!MaterialpreisID\r\n objDiv.contentEditable = \"true\"\r\n objCell.appendChild objDiv\r\n objDiv.innerText = rstWerte!Preis\r\n Set<\/span> objDivWrapper = New<\/span> clsDivWrapper\r\n Set<\/span> objDivWrapper.Div = objDiv\r\n colDivs.Add objDivWrapper\r\n rstWerte.MoveNext<\/span>\r\n Else<\/span>\r\n Set<\/span> objCell = objRow.insertCell\r\n Set<\/span> objDiv = objDocument.createElement(\"Div\")\r\n objDiv.id = \"0\"\r\n objDiv.contentEditable = \"true\"\r\n objCell.appendChild objDiv\r\n objDiv.innerText = \"-\"\r\n Set<\/span> objDivWrapper = New<\/span> clsDivWrapper\r\n objDivWrapper.Hoehe = rstSpaltenkoepfe!Hoehe\r\n objDivWrapper.Breite = rstZeilen!Breite\r\n Set<\/span> objDivWrapper.Div = objDiv\r\n colDivs.Add objDivWrapper\r\n End If<\/span>\r\n rstSpaltenkoepfe.MoveNext<\/span>\r\nLoop<\/span><\/pre>\n![\"Minus-Zeichen](\"..\/fileadmin\/_temp_\/2018_06\/pic_1162_005.png\")
<\/p>\nPrivate Sub <\/span>m_Div_onfocusout()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngMaterialpreisID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Len<\/span>(strText) > 0 Then<\/span>\r\n If <\/span>Not<\/span> m_Div.id = 0 Then<\/span>\r\n db.Execute \"UPDATE tblMaterialpreise SET Preis = \" & strText & \" WHERE MaterialpreisID = \" & m_Div.id, _\r\n dbFailOnError\r\n Else<\/span>\r\n db.Execute \"INSERT INTO tblMaterialpreise(Preis, Hoehe, Breite) VALUES(\" & strText & \",\" & m_Hoehe _\r\n & \", \" & m_Breite & \")\", dbFailOnError\r\n lngMaterialpreisID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n m_Div.id = lngMaterialpreisID\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nFehler nach Verlassen eines Feldes mit Minus-Zeichen<\/h2>\n
Private <\/span>m_TextOld As String<\/span><\/pre>\nPublic Property Let <\/span>TextOld(str As String<\/span>)\r\n m_TextOld = str\r\nEnd Property<\/span><\/pre>\nIf <\/span>Not<\/span> rstWerte.NoMatch Then<\/span>\r\n ... \r\n objDivWrapper.TextOld = objDiv.innerText\r\n ...\r\nElse<\/span>\r\n ...\r\n objDivWrapper.TextOld = objDiv.innerText\r\n ...\r\nEnd If<\/span><\/pre>\n