<\/p>\n
Im Beitrag „HTML-Tabellen mit fester Kopfzeile“ haben wir gezeigt, wie Sie Daten aus einer bestimmten Abfrage in einem Webbrowser-Steuerelement so anzeigen, dass die Spaltenköpfe oben fixiert bleiben, während der Benutzer den Inhalt der Tabelle, also die eigentlichen Datensätze, nach unten scrollt. Wir wollen das Beispiel aus diesem Beitrag nun so erweitern, dass Sie die scrollbare HTML-Tabelle für beliebige Tabellen oder Abfragen als Datenquelle nutzen können. Diese sollen per Parameter beim Öffnen des Formulars festgelegt werden. Das Layout der Tabellen sowie die anzuzeigenden Daten sollen dann automatisch ermittelt werden – samt den enthaltenen Feldnamen oder –bezeichnungen als Spaltenköpfen.<\/b><\/p>\n
Das Ziel dieses Beitrags ist, die Lösung aus dem Artikel HTML-Tabellen mit fester Kopfzeile <\/b>(www.access-im-unternehmen.de\/1188<\/b>) so anzupassen, dass Sie damit Daten aus beliebigen Tabellen oder Abfragen in einer -scrollbaren HTML-Tabelle anzeigen können.<\/p>\n
Das Ergebnis soll dann etwa so aussehen, dass Sie wie in Bild 1 einfach die anzuzeigende Tabelle oder Abfrage aus einem Kombinationsfeld auswählen können, und das Webbrowser-Steuerelement eine Tabelle mit den Daten der gewählten Tabelle oder Abfrage anzeigt.<\/p>\n
![\"HTML-Tabelle](\"..\/fileadmin\/_temp_\/2019_03\/pic_1189_001.png\")
<\/p>\n
Bild 1: HTML-Tabelle mit Scrollbalken<\/span><\/b><\/p>\n Dazu benötigen wir zunächst einmal ein Kombinationsfeld, mit dem Sie die Datenquelle auswählen können.<\/p>\n Dieses fügen wir dem Kopf des Formulars wie in Bild 2 hinzu und stellen die Eigenschaft Name<\/b> auf cboDatenquelle <\/b>ein.<\/p>\n Bild 2: Hinzufügen des Kombinationsfeldes zur Auswahl der Datenquelle<\/span><\/b><\/p>\n Als Datensatzherkunft des Kombinationsfeldes verwenden wir die folgende Abfrage:<\/p>\n Diese Abfrage ermittelt alle Tabellen und Abfragen aus der Systemtabelle MSysObjects<\/b> und sortiert diese nach dem Namen. Das Kombinationsfeld zeigt die Einträge dann etwa wie in Bild 3 an.<\/p>\n Bild 3: Auswahl der Datenquelle für die HTML-Tabelle<\/span><\/b><\/p>\n Beim Öffnen des Formulars soll das Webbrowser-Steuerelement direkt die Daten der ersten Datenquelle des Kombinationsfeldes anzeigen.<\/p>\n Dazu sorgen wir dafür, dass direkt der erste Eintrag im Kombinationsfeld vorausgewählt wird, und zwar durch die zweite Zeile der Ereignisprozedur Form_Open<\/b>:<\/p>\n Durch Einstellen der Eigenschaft TimerInterval <\/b>auf den Wert 50 <\/b>wird 50 Millisekunden nach dem Öffnen des Formulars die folgende Form_Timer<\/b>-Prozedur ausgelöst:<\/p>\n Diese unterscheidet sich in einem Detail von der entsprechenden Prozedur, die wir im oben genannten Beitrag vorgestellt haben. Sie übergibt beim Aufruf der Funktion HTMLCode<\/b>, welche den HTML-Code für die Darstellung der Tabelle zusammensetzt, für den Parameter strDatenquelle <\/b>den Namen der Datenquelle.<\/p>\n Das Gleiche geschieht auch in der Prozedur, die der Benutzer durch einen Mausklick auf die Schaltfläche cmdAktualisieren <\/b>auslöst. Die Ereignisprozedur ruft ebenfalls die Funktion HTMLCode <\/b>mit dem Wert des Kombinationsfeldes cboDatenquelle <\/b>als Parameter auf. Diese Prozedur wird dazu wie folgt geändert:<\/p>\n Schließlich möchten wir auch, dass der Inhalt des Web-browser-Steuerelements auch beim Aktualisieren der ausgewählten Datenquelle über das Kombinationsfeld cboDatenquelle <\/b>aktualisiert wird, was wir mit der folgenden Ereignisprozedur realisieren:<\/p>\n Damit kommen wir zum interessanten Teil, nämlich dem Code, mit dem wir den HTML-Code abhängig von der gewählten Datenquelle zusammenstellen. Den ersten Teil dieser Funktion finden Sie in Listing 1.<\/p>\n Listing 1: Listing zum Zusammenstellen des HTML-Codes, Teil 1<\/span><\/b><\/p>\n Die Funktion erwartet den Namen der mit dem Kombinationsfeld ausgewählten Tabelle oder Abfrage als Parameter. Sie erstellt ein Database<\/b>-Objekt namens db <\/b>sowie ein Recordset<\/b>-Objekt namens rst<\/b>, welches die ersten 100 Datensätze der gewählten Datenquelle auswählt. Die Erstellung des HTML-Codes dauert für größere Datenmengen relativ lange, daher haben wir diese Beschränkung für die Beispieldatei eingefügt. Sie können TOP 100 <\/b>in der folgenden Anweisung entfernen, wenn Sie immer alle Datensätze laden wollen:<\/p>\n Danach ruft die Funktion eine weitere Funktion namens HTMLStyle <\/b>auf und übergibt dieser das Recordset als Parameter. Die Beschreibung dieser Funktion, die den CSS-Code in Abhängigkeit der Datenquelle zusammenstellt, finden Sie weiter unten.<\/p>\n Danach fügt die Funktion die ersten HTML-Elemente für den Kopfbereich der Tabelle beziehungsweise die umfassende Tabelle an. Nach dem Anlegen der ersten drei Elemente table<\/b>, thead <\/b>und tr <\/b>folgenden die Spaltenüberschriften für die Felder der Datenquelle.<\/p>\n Um dabei auf die jeweiligen Felder der gewählten Datenquelle zuzugreifen, durchlaufen wir die Felder des Recordset<\/b>-Objekts rst <\/b>in einer For Each<\/b>-Schleife und weisen das jeweilige Field<\/b>-Objekt der Variablen fld <\/b>zu. Innerhalb dieser Schleife prüfen wir in einer Select Case<\/b>-Bedingung den Typ des jeweiligen Feldes. Wir wollen nicht alle Felddatentypen in der Tabelle aufführen – so schließen wir beispielsweise OLE- und Anlagefelder aus. Die erste Case<\/b>-Bedingung behandelt somit die Datentypen Integer<\/b>, Long<\/b>, Text<\/b>, Memo<\/b>, Currency<\/b>, Date<\/b>, Single<\/b>, Double <\/b>und Boolean<\/b>. Weitere Datentypen können Sie nach Bedarf hinzufügen. Sollten Sie die Funktion in einer eigenen Anwendung einsetzen und die dort gewählte Datenquelle enthält ein Feld mit einem Datentyp, der hier nicht behandelt wird, gibt die Prozedur die Nummer des Datentyps im Direktbereich des VBA-Editors aus – dies geschieht im Else<\/b>-Zweig der Select Case<\/b>-Bedingung.<\/p>\n Handelt es sich bei fld<\/b> um ein Feld mit einem unterstützten Datentyp, ermittelt die Funktion entweder den Feldnamen des Feldes oder, falls vorhanden, den Wert der Eigenschaft Beschriftung<\/b>, den Sie in den Feldeigenschaften im Tabellenentwurf einstellen können.<\/p>\n Wir stellen die Variable strFeldname<\/b>, die den Feldnamen aufnimmt, zunächst auf eine leere Zeichenkette ein. Dann schalten wir die Fehlerbehandlung temporär aus, und zwar für den Versuch, den Wert der Eigenschaft Caption <\/b>über die Properties<\/b>-Auflistung des Feldes zu ermitteln.<\/p>\n Gelingt dies, enthält strFeldname <\/b>danach die Beschriftung dieses Feldes. Dies prüfen wir in der folgenden If…Then<\/b>-Bedingung. Hat strFeldname <\/b>dort eine Länge ungleich 0<\/b>, tragen wir den Feldnamen aus der Eigenschaft Name <\/b>in die Variable strFeldname <\/b>ein und verwenden diesen als Spaltenüberschrift. Nun erhöhen wir eine Zählervariable namens i <\/b>um den Wert 1 <\/b>und stellen die HTML-Zeile für die aktuelle Spaltenüberschrift zusammen. Diese sieht dann etwa wie folgt aus:<\/p>\n Danach durchlaufen wir die übrigen Felder des Recordsets und stellen so die Spaltenüberschriften zusammen. Es folgen die schließenden Elemente wie <\/tr> <\/b>und <\/thead><\/b>, bevor sich der folgende Teil um die Darstellung der Daten in der HTML-Tabelle kümmert.<\/p>\n Damit kommen wir zum zweiten Teil der Prozedur, den Sie in Listing 2 finden.<\/p>\n <\/p>\n Listing 2: Listing zum Zusammenstellen des HTML-Codes, Teil 2<\/span><\/b><\/p>\n Hier legen wir zunächst die umgebenden Elemente wie <tbody><\/b>, <tr> <\/b>und <td> <\/b>zusammen, wobei wir den Wert für das Attribut colspan<\/b> aus der Anzahl der Felder aus der Variablen i <\/b>ermitteln, welche für jedes berücksichtigte Feld um den Wert 1 <\/b>erhöht wurde und nicht die Anzahl der tatsächlichen Felder wiedergibt, sondern die Anzahl der Felder mit geeignetem Datentyp. Dies ist wichtig, weil wir in dieser Zelle die untergeordnete Tabelle einfügen, deren Inhalte wir scrollen wollen. Dementsprechend weisen wir in der folgenden Anweisung auch die Klasse scrolling <\/b>zu. Nun folgen die einleitenden Elemente der Tabelle, nämlich <table> <\/b>mit der Klasse tablecontent <\/b>und <tbody><\/b>.<\/p>\n Und damit starten wir in die Schleife über alle Datensätze des Recordsets mit der Datenquelle der Tabelle. Hier ermitteln wir mit einer If…Then<\/b>-Bedingung zunächst, ob es sich um eine ungerade oder gerade Position handelt und stellen dementsprechend für das nun hinzugefügte tr<\/b>-Element die Klasse dk <\/b>ein oder auch nicht – diese Klasse wird später per CSS mit einer alternierenden Hintergrundfarbe versehen.<\/p>\n Schließlich durchlaufen wir die Felder des Recordsets für den aktuellen Datensatzes in einer For Each<\/b>-Schleife mit der Laufvariablen fld<\/b>, die das jeweilige Feld referenziert. Wir erhöhen dabei zunächst den Wert der Variablen i <\/b>um den Wert 1<\/b>. Dann prüfen wir wieder, welchen Felddatentyp das Feld aufweist.<\/p>\n Hier unterscheiden wir etwas feiner als weiter oben, wo wir nur nach den zu berücksichtigenden Felddatentypen und den nicht zu berücksichtigenden Felddatentypen unterschieden haben. Im ersten Case<\/b>-Teil der Select Case<\/b>-Bedingung fügen wir die Werte für die Datentypen Integer<\/b>, Long<\/b>, Text<\/b>, Memo <\/b>und Datum <\/b>hinzu. Daraus entsteht dann beispielsweise eine Zeile wie die folgende:<\/p>\n Die Zahl 2 <\/b>in der Bezeichnung der Klasse td2 <\/b>stammt dabei aus der Variablen i<\/b>, der für jedes Feld der Wert 1<\/b> hinzugefügt wird.<\/p>\n Bei Feldern des Typs Währung <\/b>fügen wir mit der Format<\/b>-Funktion noch eine Formatierung hinzu, bei der wie die Anzahl der Nachkommastellen auf 2 <\/b>einstellen und außerdem das Währungszeichen € <\/b>hinzufügen:<\/p>\n Für Zahlenfelder der Typen Single <\/b>oder Double <\/b>stellen wir ebenfalls per Format<\/b>-Anweisung die Anzahl der Nachkommastellen auf 2 <\/b>ein (Format(fld.Value, „0.00“)<\/b>).<\/p>\n Schließlich müssen wir uns noch etwas dazu einfallen lassen, wie wir die Werte von Boolean<\/b>-Feldern darstellen wollen. Wir wählen die einfache Lösung und geben für den Wert -1<\/b>\/True <\/b>einfach den Text Ja <\/b>und für den Wert 0<\/b>\/False <\/b>den Text Nein <\/b>aus.<\/p>\n Für alle anderen Felddatentypen geben wir den Wert der Eigenschaft Type <\/b>des Feldes im Direktbereich aus. Sie können diese dann gegebenenfalls noch zusätzlich implementieren. Denken Sie dabei daran, dass Sie diesen in allen Select Case<\/b>-Bedingungen berücksichtigen müssen – also in den beiden der Funktion HTMLCode <\/b>und auch in der Select Case<\/b>-Bedingung der Funktion HTMLStyle<\/b>.<\/p>\n Nachdem auf diese Weise alle Felder für den aktuellen Datensatz durchlaufen wurden, folgen die übrigen Datensätze der Do While<\/b>-Schleife. Nach dem Durchlaufen aller Datensätze ergänzt die Funktion noch die schließenden Elemente.<\/p>\n Für die Tabelle tblArtikel <\/b>der Beispieldatenbank sieht das Ergebnis dann etwa wie in Bild 4 aus. Für die Fremdschlüsselfelder LieferantID <\/b>und KategorieID <\/b>werden hier nur die Zahlenwerte ausgegeben. Wenn hier Werte aus den verknüpften Tabellen ausgegeben werden sollen, haben wir zwei Möglichkeiten:<\/p>\n Bild 4: Ausgabe der Daten der Tabelle tblArtikel<\/span><\/b><\/p>\n Erstere Variante können Sie selbst durchführen, die zweite müssen wir hinzuprogrammieren. Dazu ändern wir schlicht den Case<\/b>-Zweig für die Elemente, zu denen auch dbLong <\/b>gehört (was in fast jedem Fall als Datentyp für Fremdschlüsselfelder verwendet wird), wie folgt:<\/p>\n Hier rufen wir zuerst die Funktion IstNachschlagefeld <\/b>auf, die wie folgt aussieht:<\/p>\n Diese Funktion nimmt das zu untersuchende Feld als Parameter mit dem Typ Field <\/b>entgegen und liefert einen Boolean<\/b>-Wert als Ergebnis zurück. Wichtig ist die Information, dass ein Feld, wenn es als Nachschlagefeld ausgelegt wurde, meist den Wert acComboBox <\/b>für die Eigenschaft DisplayControl <\/b>aufweist. Das prüfen wir hier zuerst. Das Problem dabei ist, dass diese Eigenschaft auch nur für Felder angelegt wird, die nicht den Standardtyp für die Ausgabe aufweisen, nämlich das Textfeld. Wenn wir also einfach über die Auflistung Properties <\/b>auf die Eigenschaft DisplayControl<\/b> zugreifen und diese ist nicht vorhanden, lösen wir damit einen Fehler aus. Wir können also auf zwei Arten auf diese Eigenschaft zugreifen: Entweder wir durchlaufen alle Elemente der Property<\/b>-Auflistung und prüfen für jedes, ob der Name DisplayControl <\/b>ist. Oder wir greifen einfach bei deaktivierter Fehlerbehandlung darauf zu und schauen, ob diese einen Wert enthält.<\/p>\n Wir wählen die letztere Methode und führen die Anweisung On Error Resume Next <\/b>auf, bevor wir auf fld.Properties(„DisplayControl“) <\/b>zugreifen, um den Inhalt in der Variablen strProperty <\/b>zu speichern. Danach aktivieren wir die eingebaute Fehlerbehandlung wieder mit On Error Goto 0 <\/b>und prüfen dann, ob ein Wert in der Variablen strProperty <\/b>angelegt wurde. Ist das der Fall, prüfen wir, ob es sich bei dem Wert um die Zahl 111 <\/b>handelt, welche der Konstanten acComboBox <\/b>entspricht. Nur dann stellen wir den Wert der Variablen bolIstNachschlagefeld <\/b>auf True <\/b>ein, der dann auch als Ergebnis der Funktion zurückgegeben wird.<\/p>\n Blicken wir auf den relevanten Ausschnitt der aufrufenden Funktion zurück:<\/p>\n Wenn IstNachschlagefeld <\/b>den Wert True <\/b>liefert, rufen wir die Funktion Nachschlagewert <\/b>auf, um den in dieser Zelle der HTML-Tabelle anzuzeigenden Wert zu ermitteln. Diese Funktion sieht so aus:<\/p>\n Sie erwartet Verweise auf das aktuelle Database<\/b>-Objekt (db<\/b>) sowie das zu untersuchende Nachschlagefeld (fld<\/b>). Hier gehen wir vereinfachend davon aus, dass Nachschlagefelder immer so angelegt sind, dass die Datensatzherkunft im ersten Feld den Primärschlüsselfeld der verknüpften Tabelle enthält und im zweiten Feld den anzuzeigenden Wert – also etwa so wie in Bild 5. Ist das bei Ihnen regelmäßig nicht der Fall, müssten Sie die Funktion noch erheblich erweitern und die Eigenschaften Gebundene Spalte<\/b>, Spaltenanzahl <\/b>und Spaltenbreiten <\/b>des Nachschlagefeldes untersuchen.<\/p>\n Bild 5: Eigenschaften eines Nachschlagefeldes<\/span><\/b><\/p>\n Die Funktion ermittelt dann über die Eigenschaft RowSource <\/b>zunächst die SQL-Anweisung für die Datensatzherkunft und speichert diese in der Variablen strDatenquelle<\/b>. Dann erstellt sie ein Recordset auf Basis dieser Datenquelle und sucht mit der FindFirst<\/b>-Methode nach dem ersten Datensatz, dessen erstes Feld (also nach unserer Annahme das Primärschlüsselfeld) den Wert des zu untersuchenden Fremdschlüsselfeldes enthält. Danach prüft die Funktion, ob ein passender Eintrag im Recordset gefunden wurde. Falls ja, schreibt die Prozedur den Wert der zweiten Spalte des Recordsets als Rückgabewert in die Variable Nachschlagewert<\/b>.<\/p>\n Dieser Wert landet dann in der aufrufenden Funktion HTMLCode <\/b>in der Variablen strWert<\/b>. Hat IstNachschlagefeld <\/b>den Wert False <\/b>geliefert, trägt die Funktion einfach den Wert des aktuellen Feldes in strWert <\/b>ein.<\/p>\n Die Funktion zum Zusammenstellen der CSS-Anweisungen finden Sie in Listing 3. Die Prozedur erwartet mit dem Parameter rst <\/b>das von der aufrufenden Funktion HTMLCode <\/b>übergebene Recordset<\/b>-Objekt.<\/p>\nAuswahl der Datenquelle<\/h2>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2019_03\/pic_1189_002.png\")
<\/p>\nSELECT Name FROM MSysObjects WHERE Type In (1,5) And Not<\/span> Left<\/span>(Name,1)=''~'' And Not<\/span> Left<\/span>(Name,4)=''MSys'' And Not<\/span> Left<\/span>(Name,2)=''f_'' ORDER BY Name;<\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2019_03\/pic_1189_003.png\")
<\/p>\nDaten beim Öffnen des Formulars anzeigen<\/h2>\n
Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n Set<\/span> objWebbrowser = Me!ctlWebbrowser.Object\r\n Me!cboDatenquelle = Me!cboDatenquelle.ItemData(0)\r\n Me.TimerInterval = 50\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Timer()\r\n objWebbrowser.Navigate \"about:blank\"\r\n Set<\/span> objDocument = objWebbrowser.Document\r\n Me.TimerInterval = 0\r\n DoEvents\r\n objDocument.body.innerHTML = HTMLCode(Me!cboDatenquelle)\r\n Inzwischenablage objDocument.body.innerHTML\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAktualisieren_Click()\r\n objDocument.body.innerHTML = HTMLCode(Me!cboDatenquelle)\r\n Inzwischenablage objDocument.body.innerHTML\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboDatenquelle_AfterUpdate()\r\n If <\/span>Not<\/span> Len<\/span>(Me!cboDatenquelle) = 0 Then<\/span>\r\n objDocument.body.innerHTML = HTMLCode(Me!cboDatenquelle)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nHTML-Code datenquellenabhängig zusammenstellen<\/h2>\n
Private Function <\/span>HTMLCode(strDatenquelle As String<\/span>) As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database, rst As <\/span>DAO.Recordset, fld As <\/span>DAO.Field\r\n Dim <\/span>strHTML As String<\/span>, strFeldname As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT TOP 100 * FROM \" & strDatenquelle, dbOpenDynaset)\r\n strHTML = strHTML & HTMLStyle(rst)\r\n strHTML = strHTML & \"<table class=\"\"tableheaders\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <thead>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\n For Each fld In rst.Fields\r\n Select Case fld.Type\r\n Case <\/span>dbInteger, dbLong, dbText, dbMemo, dbCurrency, dbDate, dbSingle, dbDouble, dbBoolean\r\n strFeldname = \"\"\r\n On Error Resume Next<\/span>\r\n strFeldname = fld.Properties(\"Caption\")\r\n On Error GoTo<\/span> 0\r\n If <\/span>Len<\/span>(strFeldname) = 0 Then<\/span>\r\n strFeldname = fld.Name\r\n End If<\/span>\r\n i = i + 1\r\n strHTML = strHTML & \" <th class=\"\"th\" & i & \"\"\" scope=\"\"col\"\">\" & strFeldname & \"<\/th> \" & vbCrLf<\/span>\r\n Case Else<\/span>\r\n End Select<\/span>\r\n Next<\/span> fld\r\n strHTML = strHTML & \" <\/tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/thead>\" & vbCrLf<\/span>\r\n ...\r\nEnd Function<\/span><\/pre>\n Set<\/span> rst = db.OpenRecordset(\"SELECT TOP 100 * FROM \" & strDatenquelle, dbOpenDynaset)<\/pre>\n <th class=\"th1\" scope=\"col\">ArtikelID<\/th> <\/pre>\n
Daten in die HTML-Tabelle schreiben<\/h2>\n
Private Function <\/span>HTMLCode(strDatenquelle As String<\/span>) As String<\/span>\r\n ...\r\n strHTML = strHTML & \" <tbody>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <td colspan=\"\"\" & rst.Fields.Count & \"\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <div class=\"\"scrolling\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <table class=\"\"tablecontent\"\">\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <tbody>\" & vbCrLf<\/span>\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>rst.AbsolutePosition Mod<\/span> 2 = 0 Then<\/span>\r\n strHTML = strHTML & \" <tr>\" & vbCrLf<\/span>\r\n Else<\/span>\r\n strHTML = strHTML & \" <tr class=\"\"dk\"\">\" & vbCrLf<\/span>\r\n End If<\/span>\r\n i = 0\r\n For Each fld In rst.Fields\r\n i = i + 1\r\n Select Case fld.Type\r\n Case <\/span>dbInteger, dbLong, dbText, dbMemo, dbDate\r\n strHTML = strHTML & \" <td class=\"\"td\" & i & \"\"\">\" & fld.Value & \"<\/td>\" _\r\n & vbCrLf<\/span>\r\n Case <\/span>dbCurrency\r\n strHTML = strHTML & \" <td class=\"\"td\" & i & \"\"\">\" & Format(fld.Value, \"0.00 €\") _\r\n & \"<\/td>\" & vbCrLf<\/span>\r\n Case <\/span>dbSingle, dbDouble\r\n strHTML = strHTML & \" <td class=\"\"td\" & i & \"\"\">\" & Format(fld.Value, \"0.00\") _\r\n & \"<\/td>\" & vbCrLf<\/span>\r\n Case <\/span>dbBoolean\r\n strHTML = strHTML & \" <td class=\"\"td\" & i & \"\"\">\" & IIf(fld.Value = -1, _\r\n \"Ja\", \"Nein\") & \"<\/td>\" & vbCrLf<\/span>\r\n Case Else<\/span>\r\n Debug.Print<\/span> fld.Type\r\n End Select<\/span>\r\n Next<\/span> fld\r\n strHTML = strHTML & \" <\/tr>\" & vbCrLf<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n strHTML = strHTML & \" <\/tbody>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/table>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/div>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/td>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/tr>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" <\/tbody>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \"<\/table>\" & vbCrLf<\/span>\r\n HTMLCode = strHTML\r\nEnd Function<\/span><\/pre>\n<td class=\"td2\">Getränke<\/td><\/pre>\n
<td class=\"td6\">7,50 €<\/td><\/pre>\n
![\"Ausgabe](\"..\/fileadmin\/_temp_\/2019_03\/pic_1189_004.png\")
<\/p>\n\n
Case <\/span>dbInteger, dbLong, dbText, dbMemo, dbDate\r\n If <\/span>IstNachschlagefeld(fld) Then<\/span>\r\n strWert = Nachschlagewert(db, fld)\r\n Else<\/span>\r\n strWert = fld.Value\r\n End If<\/span>\r\n strHTML = strHTML & \" <td class=\"\"td\" & i & \"\"\">\" & strWert & \"<\/td>\" & vbCrLf<\/span><\/pre>\nPrivate Function <\/span>IstNachschlagefeld(fld As <\/span>DAO.Field) As Boolean<\/span>\r\n Dim <\/span>prp As <\/span>DAO.Property\r\n Dim <\/span>strProperty As String<\/span>\r\n Dim <\/span>bolIstNachschlagefeld As Boolean<\/span>\r\n strProperty = \"\"\r\n On Error Resume Next<\/span>\r\n strProperty = fld.Properties(\"DisplayControl\")\r\n On Error GoTo<\/span> 0\r\n If <\/span>Not<\/span> Len<\/span>(strProperty) = 0 Then<\/span>\r\n If <\/span>fld.Properties(\"DisplayControl\") = acComboBox Then<\/span>\r\n bolIstNachschlagefeld = True<\/span>\r\n Else<\/span>\r\n bolIstNachschlagefeld = False<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n bolIstNachschlagefeld = False<\/span>\r\n End If<\/span>\r\n IstNachschlagefeld = bolIstNachschlagefeld\r\nEnd Function<\/span><\/pre>\n If <\/span>IstNachschlagefeld(fld) Then<\/span>\r\n strWert = Nachschlagewert(db, fld)<\/pre>\nPrivate Function <\/span>Nachschlagewert(db As <\/span>DAO.Database, fld As <\/span>DAO.Field) As String<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strDatenquelle As String<\/span>\r\n strDatenquelle = fld.Properties(\"RowSource\")\r\n Set<\/span> rst = db.OpenRecordset(strDatenquelle, dbOpenDynaset)\r\n rst.FindFirst rst.Fields(0).Name & \" = \" & fld.Value\r\n If <\/span>Not<\/span> rst.NoMatch Then<\/span>\r\n Nachschlagewert = rst.Fields(1)\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n![\"Eigenschaften](\"..\/fileadmin\/_temp_\/2019_03\/pic_1189_005.png\")
<\/p>\nHTML-Code für die CSS-Anweisungen zusammenstellen<\/h2>\n
Private Function <\/span>HTMLStyle(rst As <\/span>DAO.Recordset) As String<\/span>\r\n Dim <\/span>strHTML As String<\/span>\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strHTMLHeaders As String<\/span>\r\n Dim <\/span>strHTMLRecords As String<\/span>\r\n Dim <\/span>intPercent As Integer<\/span>\r\n strHTML = strHTML & \"<style>\" & vbCrLf<\/span>\r\n strHTML = strHTML & \" .tableheaders {width:100%; border-collapse:collapse; font-family:calibri; \" _\r\n & \"background:#666; border:1px solid #fff; color:#fff;}\" & vbCrLf<\/span>\r\n For Each fld In rst.Fields\r\n i = i + 1\r\n Select Case fld.Type\r\n