<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Visualisierung von Daten unter Access ist zwar möglich, aber nur für bestimmte Arten von Daten und in recht eingeschränkter Form. Microsoft Graph sowie die Pivot-Ansichten von Daten bieten zwar die Möglichkeit, z. B. den Verlauf von bestimmten Zahlen über ausgewählte Zeiträume anzuzeigen, aber das Ausgabeformat ist weitgehend vorgegeben und erlaubt keine Interaktivität. Wenn Sie aber beispielsweise die Urlaubs- und Abwesenheitsdaten von Mitarbeitern grafisch aufbereiten möchten, haben Sie mit den Bordmitteln von Access keine Chance. Hier helfen nur viel Fantasie und der Einsatz ungewöhnlicher Werkzeuge.<\/b><\/p>\nHinweis<\/h3>\n
Die Anwendung des im vorliegenden Beitrag beschriebenen Beispiels erfordert eine vorhandene Installation des Microsoft Internet Explorer ab Version 5.0 oder höher. <\/p>\n
Die Darstellung von Daten unter Access erfolgt in der Regel in geeigneten Formularen und Berichten, die entsprechende Steuerelemente für deren strukturierte Anzeige anbieten. Gelegentlich verlangt der Benutzer eine grafische Darstellung von Daten, beispielsweise des Verlaufes von Verkaufszahlen über einen bestimmten Zeitraum. In diesem Fall hilft Microsoft Graph sicher über die Runden.<\/p>\n
Was aber, wenn Sie Ihre Daten nicht in das von Microsoft Graph geforderte Format bringen können, Sie aber dennoch eine grafische Anzeige der Daten benötigen Oder wenn der Kunde auch noch wünscht, dass die Daten nicht nur grafisch veranschaulicht werden sollen, sondern der Benutzer auch noch interaktiv mit den grafisch aufbereiteten Daten arbeiten kann<\/p>\n
Sie ahnen es bereits: Dann haben Sie ein mächtiges Problem. Aber auch nur, wenn Sie nicht über den Tellerrand schauen und auch mal ungewöhnliche Mittel einsetzen möchten.<\/p>\n
Eine passende Aufgabenstellung, die erstens eine individuelle grafische Darstellung von Daten und zweitens die Möglichkeit des interaktiven Eingriffs des Benutzers in die grafischen Darstellung erfordern könnte, finden Sie schnell: zum Beispiel die Urlaubsverwaltung aus der Ausgabe 6\/2002 von Access im Unternehmen.<\/p>\n
Der vorliegende Beitrag baut auf der Musterlösung Urlaubsverwaltung mit Access aus der Ausgabe 6\/2002 von Access im Unternehmen auf. Da Sie das Datenmodell dieser Musterlösung weitgehend übernehmen können, finden Sie in diesem Beitrag nur Hinweise auf eventuell vorzunehmende änderungen. Wenn Sie die Beispiele selbst nachvollziehen, können Sie die genannte Datenbank als Grundlage dafür verwenden. Der Beitrag enthält allerdings keine komplette Beschreibung der durchzuführenden Schritte. <\/p>\n
Die Urlaubsverwaltung erlaubt die Verwaltung von Fehlzeiten der Mitarbeiter wie Urlaub, Krankheit usw. Richtig wertvoll wird diese Anwendung, wenn sie z. B. auch noch einen grafischen überblick über die Fehlzeiten der einzelnen Mitarbeiter im Jahresüberblick erlaubt.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{DF641712-43F6-4BA8-A82F-EA0317411BDF}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Ein Jahreskalender im Access-Formular<\/span><\/b><\/p>\n Zusätzlich soll die grafische Ansicht die Möglichkeit bieten, direkt die Detailinformationen zu den einzelnen Abwesenheiten anzuzeigen und zu bearbeiten – z. B. nach einem Mausklick auf einen der Tage, die innerhalb des gewünschten Zeitraums liegen.<\/p>\n Natürlich ermöglicht Access mit Formularen und entsprechenden Steuerelementen die Entwicklung solcher Ansichten. Der Aufwand ist allerdings – je nach Anforderung – sehr hoch.<\/p>\n Die pure Anzeige der Jahres- oder Monatsübersicht eines Kalenders erfordert bereits die Anlage einer großen Menge von Steuerelementen (zumindest eines je Tag) inklusive Ereignisprozeduren, Zuweisung von Eigenschaften wie Text, Hintergrundfarbe usw.<\/p>\n Wirklich kompliziert wird die Angelegenheit, wenn solche Daten auch noch für mehrere Mitarbeiter gleichzeitig angezeigt werden sollen.<\/p>\n Access bietet nämlich nicht in allen Versionen die Möglichkeit, die Steuerelemente von verschiedenen Datensätzen mit unterschiedlichen Formaten zu versehen.<\/p>\n Ohne Probleme geht dies nur, wenn Sie die Elemente der grafischen Darstellung und deren Eigenschaften komplett dynamisch erstellen und zur Laufzeit ändern können.<\/p>\n Und hier kommt HTML ins Spiel: Diese eigentlich für Internetanwendungen verwendete Beschreibungssprache können Sie problemlos zur grafischen Darstellung von kästchen- und balkenförmigen Elementen verwenden.<\/p>\n Einzige Voraussetzung sind grundlegende HTML-Kenntnisse, mit denen Sie einfache HTML-Seiten erstellen und diese mit Texten und Tabellen füllen können. So kommt der eigentliche Körper der in diesem Beitrag vorgestellten Darstellung eines Jahreskalenders (siehe Bild 1) mit genau vier HTML-Elementen aus: <\/p>\n Dabei handelt es sich um den Tabellenkörper <table> bzw. <\/table>, die Elemente für die Tabellenzeilen und -spalten <tr> bzw. <\/tr> und <td> bzw. <\/td> und das Hyperlink-Element <a> bzw. <\/a>, wobei die beiden jeweils genannten Elemente den eigentlichen Inhalt einschließen.<\/p>\n Sie müssen die genannten Elemente nur noch in der gewünschten Reihenfolge zusammenstellen und die Lücken zwischen schließenden und öffnenden Elementen mit Inhalt füllen, in den HTML-Körper (engl.: body) einschließen und per Browser anzeigen. HTML ist auch nicht umsonst die am weitesten verbreitete Sprache zur Beschreibung von Inhalten im Internet – vor allem wegen seiner relativ einfachen Struktur.<\/p>\n „Was, per Browser anzeigen“, wird der aufmerksame Leser nun sagen – womit er eine berechtigte Frage stellt. „Access-Daten in HTML schreiben und dann auch noch einen Internet-Browser zu deren Anzeige verwenden Da kann ich ja direkt eine Internetanwendung erstellen!“<\/p>\n Microsoft bietet glücklicherweise viele Möglichkeiten zur Interaktion zwischen seinen Anwendungen und im vorliegenden Fall klappt das besonders gut: Wenn Sie über einen Internet Explorer ab Version 5.0 verfügen, befindet sich auf der Festplatte Ihres Rechners auch ein Steuerelement, mit dem Sie ein Browserfenster in Access-Formulare integrieren können.<\/p>\n Das Webbrowser-Steuerelement kennen Sie möglicherweise bereits aus einer früheren Ausgabe von Access im Unternehmen. Der Beitrag Internetbrowser mit Bookmarkverwaltung behandelt die Erstellung eines eigenen Internetbrowsers mit Access und ist in Ausgabe 4\/2001 zu finden. Da dort bereits einige Informationen – insbesondere über die Integration des Steuerelements – zu finden sind, wird an einigen Stellen auf diesen Beitrag verwiesen. <\/p>\n Die Theorie sieht nun folgendermaßen aus: Sie erstellen eine HTML-Seite mit den gewünschten Daten und zeigen diese im Webbrowser-Steuerelement an. Der zweite Schritt ist kein Problem: <\/p>\n Das Objektmodell des Webbrowser-Steuerelements verfügt über eine Methode, um die gewünschte Internetseite anzuzeigen.<\/p>\n Sie wissen allerdings noch nicht, wie Sie die Internetseite mit den gewünschten Informationen ausstatten.<\/p>\n Die erste Möglichkeit ist, die Seite ganz neu zu erstellen, komplett zu speichern und anschließend im Webbrowser-Steuerelement aufzurufen. Diese Variante erfordert allerdings eine zusätzliche Speicheroperation und soll daher der folgenden Alternative weichen.<\/p>\n Mit einem kleinen Trick können Sie dem Webbrowser-Steuerelement eine HTML-Datei zuweisen, die komplett in einer String-Variablen gespeichert ist.<\/p>\n Dazu initialisieren Sie das Webbrowser-Steuerelement zunächst mit einer leeren Seite. Anschließend schreiben Sie dynamisch die gewünschten HTML-Anweisungen in die angezeigte Seite.<\/p>\n Diese HTML-Anweisungen sollen zunächst nur das Gerüst enthalten – also die Tabellenstruktur mit den Kalenderelementen wie Monate, Wochen, Tage usw. <\/p>\n Zwei weitere Prozeduren dienen dem Füllen des Kalenders mit den anzuzeigenden Zeiträumen – im vorliegenden Fall also mit den Fehlzeiten – durch eine Färbung der Tabellenzellen, die dem gewünschten Zeitraum entsprechen sowie dem Leeren des Kalenders, also dem Entfernen aller farbigen Markierungen.<\/p>\n Beim Initialisieren der Fehlzeitenübersicht kommt nur die erste Prozedur zum Einsatz. Bei allen nachfolgenden Aktualisierungen – also z. B. dem Löschen einer Fehlzeit oder dem Wechsel des anzuzeigenden Mitarbeiters – kommen beide Prozeduren zum Einsatz. Die erste, um die aktuellen Markierungen zu entfernen, und die zweite, um die aktuellen Zeiträume anzuzeigen.<\/p>\n Die Aufteilung der Funktionalität auf drei Prozeduren dient der Performance. Da der Aufbau der Tabellenstruktur auch auf schnellen Rechnern einige Sekunden dauert, wird er nur beim öffnen des Formulars durchgeführt.<\/p>\n Das Entfernen und erneute Hinzufügen der farbigen Markierungen erfolgt wesentlich schneller als die Zusammenstellung der kompletten Tabellenstruktur.<\/p>\n Wenn Sie die vorgestellte Technik in eine Anwendung integrieren, in der die Ansicht öfter geöffnet und wieder geschlossen wird, können Sie auf folgendem Weg Zeit sparen: Setzen Sie einfach die Eigenschaft Sichtbar des Formulars auf Nein, statt das Formular zu schließen. Wenn Sie es anschließend wieder sichtbar machen möchten, können Sie es ganz normal öffnen und sparen die Zeit zum Erstellen der Kalenderstruktur. <\/p>\n <\/b><\/p>\n Bild 2: Entwurfsansicht des Formulars frmKalender<\/span><\/b><\/p>\n Die Beispieldatenbank zum vorliegenden Beitrag enthält drei neue Formulare, von denen hier nur das Formular frmKalender ausführlich beschrieben wird.<\/p>\n Das Formular zur Anzeige der Fehlzeitenübersicht enthält die in Bild 2 abgebildeten Steuerelemente. Tab. 1 enthält eine übersicht über die Steuerelemente mit Namen und Funktion. Fügen Sie die Steuerelemente gemäß Bild 2 hinzu und benennen Sie diese entsprechend Tab. 1.<\/p>\n Steuerelementname<\/b><\/p>\n<\/td>\n Funktion<\/b><\/p>\n<\/td>\n<\/tr>\n cboPersonalID<\/p>\n<\/td>\n Kombinationsfeld zur Auswahl des gewünschten Mitarbeiters<\/p>\n<\/td>\n<\/tr>\n txtJahr<\/p>\n<\/td>\n Textfeld zur Eingabe des anzuzeigenden Jahres<\/p>\n<\/td>\n<\/tr>\n cmdNeueAbwesenheit<\/p>\n<\/td>\n Schaltfläche zum Anlegen einer neuen Abwesenheit<\/p>\n<\/td>\n<\/tr>\n cmdFarbeinstellungen<\/p>\n<\/td>\n Schaltfläche zum öffnen des Dialogs zum Einstellen der Farben<\/p>\n<\/td>\n<\/tr>\n ctlWebbrowser<\/p>\n<\/td>\n Webbrowsersteuerelement zur Anzeige des HTML-Seite<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Steuerelemente des Formulars frmKalender<\/b><\/p>\n Das Kombinationsfeld cboMitarbeiterID hat als Datensatzherkunft die folgende Abfrage:<\/p>\n Stellen Sie außerdem die Eigenschaften Spaltenanzahl und Spaltenbreiten auf die Werte 2 und 0 ein.<\/p>\n Beim Webbrowser-Steuerelement gibt es einige Besonderheiten. Sie finden diese im Beitrag Internetbrowser mit Bookmarkverwaltung. Die Größe des Webbrowser-Steuerelements brauchen Sie noch nicht anzupassen – warten Sie zunächst ab, welchen Platz der Inhalt der HTML-Seite benötigt. Gestalten Sie das Steuerelement zu Beginn möglichst groß und passen Sie es dann an die fertige Darstellung der Fehlzeiten an.<\/p>\n Für die Arbeit mit dem Objektmodell des Webbrowser-Steuerelements und mit DHTML sind entsprechende Verweise auf deren Objektbibliotheken erforderlich.<\/p>\n Der Verweis auf die Bibliothek Microsoft Internet Controls wird automatisch erstellt, wenn Sie das Webbrowser-Steuerelement in die Entwurfsansicht des Formulars ziehen. Den Verweis auf die Microsoft HTML Object Library müssen Sie von Hand erstellen.<\/p>\n Da die vorgestellten Techniken nicht ADO, sondern DAO verwenden, müssen Sie auch noch einen Verweis auf diese Bibliothek setzen. Weitere Informationen zum Erstellen eines Verweises auf eine Objektbibliothek finden Sie im Beitrag Verweise auf Bibliotheken setzen auf der Heft-CD. <\/p>\n <\/b><\/p>\n Bild 3: Formular zur Bearbeitung der Abwesenheitstypen<\/span><\/b><\/p>\n Das Formular frmAbwesenheitenFarben verwendet die gleiche Technik wie das Formular frmKalender und dient der Bearbeitung und dem Anlegen von Abwesenheitsarten und deren im Formular frmKalender zu verwendenden Farben (siehe Bild 3).<\/p>\n Das Formular frmAbwesenheiten dient der Bearbeitung und der Neuanlage von Abwesenheitsdaten (siehe Bild 4). Seine Funktion ist relativ rudimentär und beinhaltet beispielsweise nahezu keine Validierung. Für weitere Informationen sehen Sie sich den Entwurf und den Quellcode des Formulars in der Beispieldatenbank an.<\/p>\n Die Funktionalität des Formulars frmAbwesenheitenFarben ist nicht ganz einfach. Sie baut aber im Wesentlichen auf die im Rahmen der nachfolgend vorgestellten Techniken auf und sollte anschließend anhand des Quellcodes des Formulars gut nachzuvollziehen sein.<\/p>\n Bevor Sie mit der Programmierung des Kalenders beginnen, benötigen Sie noch einige Grundlagen zum Thema HTML\/DHTML.<\/p>\n <\/b><\/p>\n Bild 4: Das Formular frmAbwesenheiten<\/span><\/b><\/p>\n Der vorliegende Beitrag kann kein umfassendes Grundlagenwissen zu HTML oder DHTML vermitteln. Daher finden Sie hier nur die notwendigsten Informationen, die Sie mit einigem Grundlagenwissen in die jeweiligen Gesamtzusammenhänge einordnen können -falls nicht, so tut es dem Nutzen des Beitrags allerdings keinen Abbruch. <\/p>\n Wie oben beschrieben, stellen Sie die komplette HTML-Seite dynamisch zusammen. Aber bei aller Dynamik gibt es einige Elemente, die in jeder HTML-Seite enthalten sind (s. Quellcode 1). Für den restlichen Inhalt finden Sie in Quellcode 1 das Element <Inhalt> als Platzhalter.<\/p>\n Der Platzhalter wird später durch eine Tabellenstruktur mit den Monatsüberschriften und den Zahlen für die einzelnen Tage ersetzt. Die übrigen Elemente teilen dem jeweiligen Browser einige Randinformationen über die Seite mit. Eine Erläuterung dieser Elemente ist im Rahmen des vorliegenden Beitrags nicht erforderlich.<\/p>\n <\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Die Darstellung des Kalenders per HTML erfordert im Wesentlichen nur einige wenige HTML-Elemente. Drei davon dienen der Strukturierung von Tabellen.<\/p>\n Wenn Sie in HTML eine Tabelle anzeigen möchten, teilen Sie dies dem Browser durch das HTML-Element <table> mit. Anschließend folgt der Inhalt der Tabelle, gefolgt von dem schließenden HTML-Element <\/table>.<\/p>\n Eine neue Zeile in einer HTML-Tabelle wird durch das Element <tr> eingeleitet und mit <\/tr> beendet.<\/p>\n Eine Spalte innerhalb einer Zeile hat einen ähnlichen Aufbau wie eine Spalte: Sie wird durch das Element <td> eingeleitet und mit <\/td> beendet.<\/p>\n Die Spalte ist das kleinste Element innerhalb einer HTML-Tabelle, daher enthält sie den eigentlichen Inhalt und entspricht damit einer Zelle.<\/p>\n Eine Tabelle mit drei Zeilen und zwei Spalten erhalten Sie mit dem HTML-Code aus Quellcode 2.<\/p>\n Der Inhalt wird ohne weitere Zeichen wie z. B. Anführungszeichen einfach zwischen die Elemente <td> und <\/td> platziert.<\/p>\n Wenn Sie von einer HTML-Seite aus eine andere aufrufen möchten, verwenden Sie dazu einen Hyperlink. Hyperlinks haben folgendes Format:<\/p>\n Hyperlinks haben also wieder ein öffnendes und ein schließendes Element wie Tabellen, Zeilen und Spalten. Das öffnende Element wird allerdings um eine Zusatzinformation ergänzt: den Namen der Seite, die bei der Betätigung des Hyperlinks aufgerufen werden soll. Sie werden später noch weitere ergänzende Eigenschaften zu den einzelnen Elementen wie z. B. die Breite von Tabellen und Tabellenspalten kennen lernen.<\/p>\n Hyperlinks haben noch eine Besonderheit: Sie können sie verwenden, um Informationen von einer Seite zur nächsten zu übergeben. Dazu ergänzen Sie den Hyperlink um das Fragezeichen-Symbol () und fügen der Adresse ein Paar aus Parameternamen und Wert, getrennt durch ein Gleichheitszeichen, hinzu, zum Beispiel:<\/p>\n Wenn Sie mehrere Parameter übergeben möchten, setzen Sie hinter den letzten Wert ein Kaufmanns-Und (&) gefolgt von dem nächsten Parameter.<\/p>\n DHTML bietet die Möglichkeit, den kompletten Inhalt von HTML-Dokumenten dynamisch anzupassen sowie Elemente hinzuzufügen, zu löschen und deren Eigenschaften zu ändern.<\/p>\n Damit Sie mit DHTML einzelne Elemente einer HTML-Seite ansprechen können, müssen Sie ihnen einen Namen oder eine ID zuweisen.<\/p>\n Einige Elemente benötigen keine besondere Kennzeichnung, da sie innerhalb des Dokuments einzigartig sind – z. B. das den Inhalt umschließende Body-Element.<\/p>\n Die Zusammenstellung der Tabelle zur Darstellung des Kalenders aus Bild 1 erfordert einige hundert HTML-Elemente einschließlich der Anpassung ihrer Eigenschaften.<\/p>\n Da das einzelne Erstellen jedes dieser Steuerelemente und die Anpassung ihrer Eigenschaften per DHTML einige Zeit erfordern würde, gehen Sie im Folgenden einen etwas anderen Weg:<\/p>\n Sie erstellen zunächst den kompletten HTML-Code für die Seite und schreiben ihn anschließend in die zuvor initialisierte leere Seite. Das geschieht mit der folgenden Methode der MSHTML-Bibliothek (vorausgesetzt das Webbrowser-Steuerelement heißt ctlWebbrowser):<\/p>\n Wenn Sie HTML-Elementen mit dem ID-Attribut eine eindeutige ID zugewiesen haben, können Sie die Eigenschaften des jeweiligen Elementes dynamisch ändern.<\/p>\n Die Funktionalität des Kalenderformulars beinhaltet folgende Möglichkeiten:<\/p>\n Bevor der Hauptakt beginnt und das Webbrowser-Steuerelement mit Leben gefüllt wird, muss das Formular zunächst initialisiert werden.<\/p>\n Hinterlegen Sie anschließend die folgende Prozedur für die Ereigniseigenschaft Beim öffnen des Formulars:<\/p>\n Damit weisen Sie dem Textfeld txtJahr das aktuelle Jahr hinzu.<\/p>\n Die Ereigniseigenschaft Beim Anzeigen soll mit der folgenden Prozedur versehen werden:<\/p>\n Quellcode 3 (Teil 1)<\/b><\/p>\n Sie wählt im Kombinationsfeld cboPersonalID den ersten Eintrag aus und ruft die Prozedur LoadHTML auf. <\/p>\n Quellcode 3 (Fortsetzung)<\/b><\/p>\n Nun kommt das Webbrowser-Steuerelement ins Spiel: <\/p>\n Durch die soeben ausgelöste Prozedur LoadHTML wird das gewünschte HTML-Dokument zusammengestellt und im Anschluss dem im Webbrowser-Steuerelement zusammengestellten zugewiesen (s. Quellcode 3).<\/p>\n Nach dem Deklarationsteil fügt die Prozedur Schritt für Schritt die benötigte HTML-Seite mit der Tabellenstruktur und den entsprechenden HTML-Elementen und Daten zusammen.<\/p>\n Quellcode 5<\/b><\/p>\n Da die Erstellung des HTML-Codes einige Sekunden dauert, ersetzt die Prozedur während des Ablaufs den Mauszeiger durch die Sanduhr.<\/p>\n Anschließend fügt die Prozedur die einleitenden Elemente der HTML-Seite hinzu. Anschließend folgt der spannende Teil: die Tabelle zur Anzeige des Kalenders.<\/p>\n Der entsprechende HTML-Code beginnt mit dem Element <table>. Es enthält einige weitere Informationen:<\/p>\n Border=“0″ bewirkt die Anzeige eines Rahmens mit der Dicke 0. Die beiden Parameter Cell-Padding und Cell-Spacing dienen der Einstellung des Abstandes zwischen den Zellen sowie vom Zellenrand zum Inhalt.<\/p>\n Anschließend sorgen vier ineinander verschachtelte Schleifen für die Erstellung des Tabelleninhalts. Die beiden äußeren Schleifen sorgen für die Erstellung einer Tabelle von vier mal drei Zellen, die der Anzeige der einzelnen Monate dienen.<\/p>\n Die beiden inneren Schleifen werden für jeden Monat einmal durchlaufen und erstellen in jeder Zelle eine weitere Tabelle. Die inneren Tabellen bestehen aus insgesamt je acht Zeilen.<\/p>\n Die erste Zeile enthält den Monatsnamen und die zweite Zeile sieben Zellen zur Anzeige des ersten Buchstabens des jeweiligen Tages (also M, D, M, D, F, S, S).<\/p>\n Die übrigen sechs Zeilen enthalten je sieben Zellen zur Darstellung der Tage des aktuellen Monats (zwar umfasst jeder Monat maximal knapp fünf Wochen, die aber sechs Kalenderwochen tangieren können).<\/p>\n Während der Aufbau der eigentlichen Tabelle noch recht einfach ist, gestaltet sich das Füllen der Zellen mit den richtigen Datumsangaben als relativ knifflig.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Um die Tabelle von links oben nach rechts unten mit den richtigen Monatstagen zu füllen, müssen Sie zunächst einmal herausfinden, welches Datum der Montag der Woche hat, in der der Monat beginnt. Dazu verwenden Sie die Funktion ErstenTagDerWocheErmitteln (s. Quellcode 4) mit dem Parameter Startdatum.<\/p>\n Nachdem Sie das Datum für die linke obere Zelle kennen, können Sie die Zellen nacheinander mit dem Datum füllen.<\/p>\n Dabei überprüft die Prozedur gleichzeitig, ob der Tag zum aktuellen Monat oder zum vorherigen oder nachfolgenden Monat gehört. Falls der aktuelle Tag nicht zum aktuellen Monat gehört, wird er erst gar nicht angezeigt.<\/p>\n Die Tage des Wochenendes, also Samstag und Sonntag, sollen fett gedruckt werden. Daher überprüft die Prozedur mit der Funktion Weekday den Wochentag und setzt das Schriftformat entsprechend auf Fett.<\/p>\n Die Prozedur erstellt lediglich die Tabelle mit den Zahlen für die Datumsangaben, trägt aber noch keine Abwesenheitszeiten in Form von farbiger Markierung der entsprechenden Tabellenzellen ein.<\/p>\n Damit die nachfolgend beschriebenen Prozeduren leicht per DHTML-Anweisung auf die entsprechenden Tabellenelemente zugreifen können, um deren Hintergrundfarbe zu ändern, versieht die Prozedur jede Zelle, die ein Datum enthält, mit einer ID. Jede ID besteht auch acht Zeichen und enthält die Angabe des Jahres (vierstellig), die Angabe des Monats (zweistellig) sowie die Angabe des Tages (ebenfalls zweistellig).<\/p>\n Nach dem Zusammenstellen des HTML-Textes in der String-Variablen strHTML überprüft die Prozedur, ob das Webbrowser-Steuerelement bereits initialisiert wurde. Falls nicht, wird dies mit dem folgenden Befehl nachgeholt:<\/p>\n Die folgenden drei Zeilen sorgen für die Zuweisung der zusammengestellten Zeichenkette an die aktuelle Seite:<\/p>\n Anschließend ruft die Prozedur noch die Prozedur FehlzeitenEintragen auf, damit die Fehlzeiten des aktuellen Mitarbeiters für das angezeigte Jahr farbig markiert werden.<\/p>\n Nachdem der HTML-Quellcode für die Anzeige des Jahreskalenders durch die Prozedur aus Quellcode 3 erstellt wurde, soll der Kalender um die in Tabelle tblAbwesenheit gespeicherten Fehlzeiten erweitert werden.<\/p>\n Das Markieren der Fehlzeiten erfolgt mit der Prozedur FehlzeigenEintragen (s. Quellcode 5).<\/p>\n Die Prozedur durchläuft alle Einträge der Tabelle tblAbwesenheit für den aktuell im Kombinationsfeld cboPersonalID ausgewählten Mitarbeiter.<\/p>\n In einer weiteren Schleife werden nun alle Tage der Fehlzeit des aktuellen Datensatzes durchlaufen. Falls der aktuelle Tag innerhalb des aktuell angezeigten Jahres liegt, färbt die Prozedur die Zelle der Tabelle mit der entsprechenden ID in der Farbe ein, die der Abwesenheitsart zugeordnet ist.<\/p>\n An dieser Stelle kommt erneut DHTML zum Einsatz. Mit dem folgenden Ausdruck referenziert die Prozedur die Zelle der Tabelle, die zu dem Datum des aktuellen Tages der aktuellen Fehlzeit gehört:<\/p>\n über die Eigenschaft Background der Auflistung Style stellt die Prozedur die Hintergrundfarbe der Zelle ein.<\/p>\n Die Eigenschaft innerHTML beinhaltet alles, was sich zwischen dem öffnenden und schließenden Element der Tabellenzelle befindet. über diese Eigenschaft weist die Prozedur der Tabellenzelle einen Hyperlink zu.<\/p>\n Wenn das Formular die Fehlzeiten für einen anderen Mitarbeiter oder für ein anderes Jahr anzeigen soll, verwenden Sie ebenfalls die Prozedur FehlzeitenEintragen.<\/p>\n Allerdings müssen Sie zuvor die anderen eingetragenen Markierungen aus dem HTML-Code entfernen. Dazu verwenden Sie die Prozedur KalenderLeeren aus Quellcode 5.<\/p>\n Die Prozedur durchläuft einfach alle HTML-Elemente auf der kompletten Seite und überprüft, ob sie eine ID haben – was auf eines der Datumsfelder hinweist.<\/p>\n Falls eine ID vorhanden ist, wandelt die Funktion DatumAusISO die ID in das entsprechende Datum um. Die Funktion Day ermittelt den Tag aus dem berechneten Datum.<\/p>\n Anschließend fügt die Prozedur den Tag für die Eigenschaft innerHTML der Zelle ein und setzt die Hintergrundfarbe der Zelle auf Weiß.<\/p>\n Bisher haben Sie das Webbrowser-Steuerelement zur Anzeige der gewünschten Daten verwendet und durch die Anwendung von DHTML innerhalb herkömmlicher VBA-Prozeduren Elemente einer HTML-Seite dynamisch geändert, was üblicherweise nur von HTML-Seiten aus erfolgen kann – z. B. per Javascript.<\/p>\n Nun wird die Geschichte noch ein wenig spannender: Sie bewegen das Webbrowser-Steuerelement dazu, auf verschiedene Eingaben – z. B. einen Mausklick auf markierte Fehlzeiten – mit dem öffnen eines weiteren Formulars zu reagieren. Dieses Formular dient zum Bearbeiten und Löschen der vorhandenen Einträge (siehe Bild 5).<\/p>\n <\/b><\/p>\n Bild 5: Eingabe einer neuen Fehlzeit<\/span><\/b><\/p>\n Die Frage ist nur: Wie setzt man aus einem HTML-Dokument eine Anweisung zum öffnen eines Formulars oder zur Durchführung anderer Aktionen ab Die Antwort lautet:<\/p>\n Es ist unmöglich. Sie können von HTML-Dokumenten aus nicht direkt auf andere Anwendungen einwirken.<\/p>\n Es gibt allerdings den folgenden Trick, der darauf basiert, dass Sie – im Gegensatz zur Verwendung des Internet Explorers – die volle Kontrolle über den Browser und damit über seine Ereigniseigenschaften haben: Sie verwenden einen Hyperlink und fangen das Laden der neuen Seite einfach durch Abbrechen der entsprechenden Ereignisprozedur ab.<\/p>\n Der entsprechende Hyperlink wird ja bereits in der Prozedur FehlzeitenEintragen für die einzelnen Tages-Tabellenelemente der Fehlzeiten gesetzt.<\/p>\n Dabei setzt die Prozedur die folgenden beiden Zeichenketten und die Angabe des Kalendertages zusammen:<\/p>\n Der resultierende Hyperlink in der Tabellenzelle sieht z. B. folgendermaßen aus:<\/p>\n Das Ziel des Hyperlinks ist die Seite dummy.htm. Hier können Sie allerdings jede beliebige Seite eintragen, da die Prozedur den Aufruf der Seite ohnehin abbricht.<\/p>\n Wichtiger ist die übergabe der beiden Parameter Aktion und AbwesenheitID. Der Parameter Aktion enthält einen Wert für die durchzuführende Aktion, hier z. B. AbwesenheitAnzeigen.<\/p>\n Der Parameter AbwesenheitID enthält den Primärschlüssel der Tabelle tblAbwesenheit, aus der die entsprechenden Daten stammen.<\/p>\n Der Wert text-decoration:none für die Eigenschaft style des Hyperlinks sorgt dafür, dass der Hyperlink nicht wie üblich blau und unterstrichen angezeigt wird.<\/p>\n Die Ereigniseigenschaft BeforeNavigate2 wird vor dem Aufrufen der im Hyperlink angegebenen Seite ausgelöst.<\/p>\n Sie enthält den wichtigen Parameter URL, der den kompletten Link inklusive der angegebenen Parameter enthält.<\/p>\n Die Prozedur verwendet die Funktion QueryStringErmitteln, um aus dem Parameter URL den Wert einzelner Parameter auszulesen. Die Funktion finden Sie im Modul modTools der Datenbank.<\/p>\n Quellcode 7<\/b><\/p>\n Mit dieser Funktion ermittelt die Prozedur zunächst den Wert des Parameters Aktion. In einer Select-Case-Abfrage springt sie dann auf die gewünschte Aktion – in diesem Fall AbwesenheitAnzeigen.<\/p>\n Die Verwendung einer Select-Case-Anweisung scheint hier nicht angebracht, da es nur einen möglichen Wert gibt. Sie sind aber hiermit direkt gerüstet, weitere Aktionen vom HTML-Dokument aus zu starten. <\/p>\n Der innere Teil der Select-Case-Anweisung fragt den Wert des Parameters AbwesenzeitID ab. Der Wert dient gleichzeitig als übergabeparameter beim Aufruf des Formulars frmAbwesenheiten, mit dem Sie die gewünschte Abwesenheit bearbeiten oder löschen können.<\/p>\n Das Formular frmAbwesenheiten wird mit den Parametern DataMode:=acFormEdit und WindowMode:=acDialog geöffnet. Der zweite Parameter gibt an, dass die Verarbeitung der aufrufenden Prozedur erst fortgesetzt wird, wenn das Formular geschlossen oder seine Eigenschaft Sichtbar auf den Wert Nein gesetzt wird. Dadurch kann der Anwender zunächst in Ruhe die Eigenschaften der Fehlzeit im Formular bearbeiten und dieses schließen, bevor die Prozedur das HTML-Dokument mit den neuen Informationen aktualisiert.<\/p>\n Wenn Sie das Formular frmAbwesenheiten nach Durchführung der änderungen schließen, aktualisiert die Prozedur den Inhalt des Kalenders durch den Aufruf der beiden Prozeduren KalenderLeeren und FehlzeitenEintragen.<\/p>\n Das Formular enthält noch eine Schaltfläche, mit der Sie eine neue Abwesenheit eintragen können. Diese Schaltfläche löst die Prozedur aus Quellcode 8 aus.<\/p>\n Quellcode 8<\/b><\/p>\n Sie öffnet lediglich das Formular frmAbwesenheiten und aktualisiert nach dem Schließen dieses Formulars den Inhalt des Kalenders.<\/p>\n Dabei übergibt die Prozedur die beiden Parameter DataMode:=acFormAdd und WindowMode:=acDialog an das Formular.<\/p>\n Mit dem ersten Parameter wird festgelegt, dass das Formular mit einem neuen, leeren Datensatz geöffnet werden soll.<\/p>\n Die Funktionalität des Formulars frmAbwesenheiten kann aus Platzgründen hier leider nicht beschrieben werden. Sie enthält allerdings keine ungewöhnlichen Techniken. Bei Interesse schauen Sie sich einfach den Quellcode des Formulars an. <\/p>\n Das Webbrowser-Steuerelement bietet mit der Anwendung von HTML erhebliche Flexibilität bei der visuellen Darstellung von Daten, solange die Darstellung nicht gerade die Verwendung von Tortendiagrammen oder ähnlichen runden Objekten erfordert- die Elemente sollten also möglichst durch rechteckige Gebilde veranschaulicht werden können.<\/p>\n Durch die Möglichkeit der Interaktivität zwischen HTML-Dokument und Access entsteht eine fruchtbare Zusammenarbeit dieser beiden Komponenten, die weitere Möglichkeiten eröffnet.<\/p>\n Sie könnten das vorhandene Dokument beispielsweise dazu verwenden, direkt per Mausklick die Bereiche der Abwesenheit festzulegen oder zu löschen.<\/p>\n Das bestehende Formular mit dem HTML-Dokument lässt sich leicht weiterentwickeln. So sollte z. B. die Anzeige von Feiertagen keine große Hürde sein, wenn Sie den Beitrag Feiertage berechnen mit Access hinzuziehen.<\/p>\n Auch die komplette Umgestaltung des HTML-Dokuments ist denkbar: Sie könnten mit wenigen Handgriffen eine Anzeige erreichen, die alle Mitarbeiter mit einem entsprechenden Zeitstrahl untereinander anzeigt. So lässt sich leicht ablesen, ob zu einem bestimmten Zeitpunkt überhaupt Urlaub vergeben werden kann.<\/p>\n Dazu müssen Sie lediglich die Struktur der Tabelle so anpassen, dass die Monate nicht mehr in der Vier-mal-drei-Matrix, sondern hintereinander dargestellt werden. Bei den Tagen gehen Sie ähnlich vor: Statt in der Sechs-mal-sieben-Matrix positionieren Sie die Zellen einfach hintereinander.<\/p>\n Schließlich müssen Sie nur noch eine Datensatzgruppe mit allen Mitarbeitern öffnen, die Sie komplett durchlaufen. Während des Durchlaufs erstellen Sie dann für jeden Mitarbeiter einen Zeitstrahl, auf dem alle Fehlzeiten zu erkennen sind. So können Sie direkt ablesen, wann durch fehlende Mitarbeiter Engpässe entstehen.<\/p>\n","protected":false},"excerpt":{"rendered":" Die Visualisierung von Daten unter Access ist zwar möglich, aber nur für bestimmte Arten von Daten und in recht eingeschränkter Form. Microsoft Graph sowie die Pivot-Ansichten von Daten bieten zwar die Möglichkeit, z. B. den Verlauf von bestimmten Zahlen über ausgewählte Zeiträume anzuzeigen, aber das Ausgabeformat ist weitgehend vorgegeben und erlaubt keine Interaktivität. Wenn Sie aber beispielsweise die Urlaubs- und Abwesenheitsdaten von Mitarbeitern grafisch aufbereiten möchten, haben Sie mit den Bordmitteln von Access keine Chance. Hier helfen nur viel Fantasie und der Einsatz ungewöhnlicher Werkzeuge.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012003,662003,44000026,44000030,44000023],"tags":[],"class_list":["post-55000093","post","type-post","status-publish","format-standard","hentry","category-66012003","category-662003","category-Interaktiv","category-Internet","category-Mit_Formularen_arbeiten"],"yoast_head":"\nGrafische Darstellung mit HTML<\/h2>\n
Das Webbrowser-Steuerelement<\/h2>\n
Hinweis<\/h3>\n
DHTML – dynamisches HTML<\/h2>\n
Komplette Seite speichern<\/h3>\n
Seite dynamisch zusammenstellen<\/h3>\n
Praxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{DF641712-43F6-4BA8-A82F-EA0317411BDF}\/pic002.png\")
<\/p>\nDas Formular frmKalender<\/h2>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n SELECT PersonalID, [Nachname] & \", \" & [Vorname] AS MitarbeiterFROM tblPersonal;<\/pre>\n
Verweise auf Objektbibliotheken<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{DF641712-43F6-4BA8-A82F-EA0317411BDF}\/pic003.png\")
<\/p>\nWeitere Formulare derBeispieldatenbank<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{DF641712-43F6-4BA8-A82F-EA0317411BDF}\/pic004.png\")
<\/p>\nHinweis<\/h3>\n
Aufbau der HTML-Seite<\/h2>\n
<!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4.0 Transitional\/\/EN\">\r\n<html>\r\n <head>\r\n <title><\/title>\r\n <\/head>\r\n <body>\r\n <Inhalt>\r\n <\/body>\r\n<\/html><\/pre>\n
<table>\r\n <tr>\r\n <td>Inhalt Zeile 1, Spalte 1<\/td>\r\n <td>Inhalt Zeile 1, Spalte 2<\/td>\r\n <\/tr>\r\n <tr>\r\n <td>Inhalt Zeile 2, Spalte 1<\/td>\r\n <td>Inhalt Zeile 2, Spalte 2<\/td>\r\n <\/tr> <tr>\r\n <td>Inhalt Zeile 3, Spalte 1<\/td>\r\n <td>Inhalt Zeile 3, Spalte 2<\/td>\r\n <\/tr>\r\n<\/table><\/pre>\n
Verwendete HTML-Elemente<\/h2>\n
Aufbau von Tabellen mit HTML<\/h3>\n
Zeilen und Spalten<\/h3>\n
Hyperlinks<\/h3>\n
<a href=\"NaechsteSeite.htm\">Beschreibung des Hyperlinks<\/a><\/pre>\n
<a href=\"NaechsteSeite.htmParameter1=Wert1\">Beschreibung des Hyperlinks<\/a><\/pre>\n
Verwendung von DHTML<\/h2>\n
ctlWebbrowser.Document.Write strHTML<\/pre>\n
HTML-Elemente mit DHTML ansprechen<\/h3>\n
Initialisieren des Formulars<\/h2>\n
Private Sub Form_Open(Cancel As Integer)\r\n Me.txtJahr = Year(Date)\r\nEnd Sub<\/pre>\n
Private Sub LoadHTML()\r\n Dim i, j, Tag, Woche, Monat As Integer\r\n Dim Datum, ErsterTag, AktuellerTag As Date\r\n Dim AktuellerMonat As Boolean\r\n Dim id, Monatsname, strHTML, Style As String\r\n DoCmd.Hourglass True\r\n Monat = 1\r\n strHTML = strHTML & \"<!DOCTYPE HTML PUBLIC \"\"-\/\/W3C\/\/DTD HTML 4.0 \" _ & \"Transitional\/\/EN\"\">\"\r\n strHTML = strHTML & \"<html>\"\r\n strHTML = strHTML & \"<head>\"\r\n strHTML = strHTML & \"<title><\/title>\"\r\n strHTML = strHTML & \"<style type=\"\"text\/css\"\">\"\r\n strHTML = strHTML & \"<!--\"\r\n strHTML = strHTML & \"a:active {color: black}\"\r\n strHTML = strHTML & \"a:visited {color: black}\"\r\n strHTML = strHTML & \"a:link {color: black}\"\r\n strHTML = strHTML & \"a:hover {color: red}\"\r\n strHTML = strHTML & \"-->\"\r\n strHTML = strHTML & \"<\/style>\"\r\n strHTML = strHTML & \"<\/head>\"\r\n strHTML = strHTML & \"<body bottomMargin=\"\"0\"\" leftMargin=\"\"0\"\" topMargin=\"\"0\"\"\" _ & \" rightMargin=\"\"0\"\" scroll=\"\"yes\"\">\"\r\n strHTML = strHTML & \"<table border=\"\"0\"\" cell-padding=\"\"0\"\" cell-spacing=\"\"0\"\">\" _ & vbCrLf\r\n For i = 1 To 3\r\n strHTML = strHTML & \"<tr>\" & vbCrLf\r\n For j = 1 To 4\r\n Datum = \"1.\" & Monat & \".\" & Me.txtJahr\r\n ErsterTag = ErstenTagDerWocheErmitteln(Datum)\r\n AktuellerTag = ErsterTag\r\n Style = \"font-family:tahoma;font-size:9;text-align:center;\" _ & \"background-color:#c0c0c0;\"\r\n strHTML = strHTML & \"<td>\" & vbCrLf\r\n strHTML = strHTML & \"<table border=\"\"0\"\" cell-padding=\"\"0\"\"\" _ & \" cell-spacing=\"\"0\"\">\" & vbCrLf\r\n strHTML = strHTML & \"<tr>\" & vbCrLf\r\n Monatsname = Choose((j + (i - 1) * 4), \"Januar\", \"Februar\", \"März\", _ \"April\", \"Mai\", \"Juni\", \"Juli\", \"August\", \"September\", \"Oktober\", _ \"November\", \"Dezember\")\r\n strHTML = strHTML & \"<td style=\"\"\" & Style & \"\"\" colspan=\"\"7\"\">\" _ & Monatsname & \"<\/td>\" & vbCrLf\r\n strHTML = strHTML & \"<\/tr>\" & vbCrLf\r\n strHTML = strHTML & \"<tr>\" & vbCrLf\r\n strHTML = strHTML & \"<td style=\"\"\" & Style & \"\"\">M<\/td>\" & vbCrLf\r\n ''analog für die Tage Dienstag bis Sonntag\r\n strHTML = strHTML & \"<\/tr>\" & vbCrLf\r\n For Woche = 1 To 6\r\n strHTML = strHTML & \"<tr>\" & vbCrLf\r\n For Tag = 1 To 7\r\n AktuellerMonat = (Month(AktuellerTag) = Monat)<\/pre>\nPrivate Sub Form_Current()\r\n Me.cboPersonalID = _ Me.cboPersonalID.ItemData(0)\r\n LoadHTML\r\nEnd Sub<\/pre>\n
Anlegen der Kalenderstruktur<\/h2>\n
If Not AktuellerMonat Then\r\n Style = \"color:#ffffff;\"\r\n id = \"\"\r\n Else\r\n id = DatumYMD(AktuellerTag)\r\n If Weekday(AktuellerTag) = 1 Or Weekday(AktuellerTag) = 7 Then\r\n Style = \"color:#000000;font-weight:bold;\"\r\n Else\r\n Style = \"color:#000000;font-weight:normal;\"\r\n End If\r\n End If\r\n strHTML = strHTML & \"<td style=\"\"\" & Style _ & \"font-family:tahoma;font-size:9;text-align:center\"\" id=\"\"\" _ & id & \"\"\">\" & Day(AktuellerTag) & \"<\/td>\" & vbCrLf\r\n AktuellerTag = AktuellerTag + 1\r\n Next Tag\r\n strHTML = strHTML & \"<\/tr>\" & vbCrLf\r\n Next Woche\r\n strHTML = strHTML & \"<\/table>\"\r\n Monat = Monat + 1\r\n strHTML = strHTML & \"<\/td>\" & vbCrLf\r\n Next j\r\n strHTML = strHTML & \"<\/tr>\" & vbCrLf\r\n Next i\r\n strHTML = strHTML & \"<\/table>\" & vbcrlf & \"<\/body>\" & vbcrlf & \"<\/html>\"\r\n On Error Resume Next\r\n Debug.Print ctlWebbrowser.document\r\n If Err.Number = 91 Then\r\n ctlWebbrowser.navigate \"about:blank\"\r\n End If\r\n ctlWebbrowser.document.Open\r\n ctlWebbrowser.document.write strHTML\r\n ctlWebbrowser.document.Close\r\n FehlzeitenEintragen\r\n DoCmd.Hourglass False\r\nEnd Sub<\/pre>\n
Private Sub FehlzeitenEintragen()\r\n Dim db As Database\r\n Dim rstFehlzeiten As Recordset\r\n Dim Tag As Date\r\n Dim Linkstart, Linkende As String\r\n Set db = CurrentDb\r\n Set rstFehlzeiten = db.OpenRecordset(\"SELECT * FROM tblAbwesenheit \" _ & \"WHERE PersonalID = \" & Me.cboPersonalID & \" ORDER BY Startdatum\", _ dbOpenDynaset)\r\n Do While Not rstFehlzeiten.EOF\r\n For Tag = rstFehlzeiten!StartDatum To rstFehlzeiten!EndDatum\r\n If Year(Tag) = CInt(Me.txtJahr) Then\r\n Linkstart = \"<a href=\"\"dummy.htmAktion=AbwesenheitAnzeigen\" _ & \"&AbwesenheitID=\" & rstFehlzeiten!AbwesenheitID _ & \"\"\" style=\"\"text-decoration:none\"\">\"\r\n Linkende = \"<\/a>\"\r\n If Year(Tag) < CInt(Me.txtJahr) Then\r\n Tag = Tag + 1\r\n End If\r\n With Forms!frmKalender!ctlWebbrowser. _ Document.getElementById(DatumYMD(Tag))\r\n .Style.background = DLookup(\"Farbcode\", _ \"tblAbwesenheitsarten\", \"AbwesenheitsartID = \" _ & rstFehlzeiten!Abwesenheitart)\r\n .innerHTML = Linkstart & .innerHTML & Linkende\r\n End With\r\n End If\r\n Next Tag\r\n rstFehlzeiten.MoveNext\r\n Loop\r\n Exit Sub\r\nEnd Sub<\/pre>\n
Public Function ErstenTagDerWocheErmitteln(StartDatum _ As Date) As Date\r\n Do While Not DatePart(\"w\", StartDatum, vbMonday, _ vbFirstFourDays) = 1\r\n StartDatum = StartDatum - 1\r\n Loop\r\n ErstenTagDerWocheErmitteln = StartDatum\r\nEnd Function<\/pre>\n
Private Sub KalenderLeeren()\r\n Dim Element As Variant\r\n For Each Element In _ Forms!frmKalender!ctlWebbrowser.Document.all\r\n If Not Element.id = \"\" Then\r\n Element.innerHTML = _ Day(DatumAusISO(Element.id))\r\n Element.Style.background = \"#ffffff\"\r\n End If\r\n Next\r\nEnd Sub<\/pre>\n
Wochenenden markieren<\/h3>\n
Lesezeichen auf Tage setzen<\/h3>\n
HTML anzeigen<\/h3>\n
ctlWebbrowser.navigate \"about:blank\"<\/pre>\n
ctlWebbrowser.document.Open\r\n ctlWebbrowser.document.write strHTML\r\n ctlWebbrowser.document.Close<\/pre>\n
Markieren der Fehlzeiten<\/h2>\n
Hintergrundfarbe vonElementen per DHTML ändern<\/h3>\n
Forms!frmKalender!ctlWebbrowser.Document_ .getElementById(DatumYMD(Tag))<\/pre>\n
Entfernen der Fehlzeiten<\/h2>\n
Der Clou: Interaktion zwischenWebbrowser-Steuerelementund Formular<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{DF641712-43F6-4BA8-A82F-EA0317411BDF}\/pic005.png\")
<\/p>\nAbfangen des Hyperlinks<\/h3>\n
Linkstart = \"<a href=\"\"dummy.htm\" _\r\n & \"Aktion=AbwesenheitAnzeigen&\" _\r\n & \"AbwesenheitID=\" _\r\n & rstFehlzeiten!AbwesenheitID _\r\n & \"\"\" style=\"\"text-decoration\" _\r\n & \":none\"\">\"\r\nLinkende = \"<\/a>\"<\/pre>\n
<a href=\"dummy.htmAktion=AbwesenheitAnzeigen&AbwesenheitID=12\" style=\"text-decoration:none\">14<\/a><\/pre>\n
Ereigniseigenschaft zum Laden einer neuen Seite<\/h3>\n
Private Sub ctlWebbrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _ Flags As Variant, TargetFrameName As Variant, PostData As Variant, _ Headers As Variant, Cancel As Boolean)\r\n If Right(URL, 13) <> \"WhitePage.htm\" Then\r\n Dim Aktion As Variant\r\n Dim AbwesenheitID As Integer\r\n Aktion = QueryStringErmitteln(\"Aktion\", URL)\r\n Select Case Aktion\r\n Case \"AbwesenheitAnzeigen\"\r\n AbwesenheitID = CInt(QueryStringErmitteln(\"AbwesenheitID\", URL))\r\n DoCmd.OpenForm \"frmAbwesenheiten\", _ WhereCondition:=\"AbwesenheitID = \" & AbwesenheitID, _ DataMode:=acFormEdit, _ WindowMode:=acDialog\r\n KalenderLeeren\r\n FehlzeitenEintragen\r\n End Select\r\n Cancel = True\r\n End If\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Neue Abwesenheit eintragen<\/h2>\n
Private Sub cmdNeueAbwesenheit_Click()\r\n DoCmd.OpenForm \"frmAbwesenheiten\", _ DataMode:=acFormAdd, _ WindowMode:=acDialog\r\n KalenderLeeren\r\n FehlzeitenEintragen\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n