<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Das Internet ist ein ständig größer und komplexer werdendes Medium. Jeden Tag kommen neue Angebote hinzu und alte Seiten verschwinden aus dem World Wide Web. Hier ist es schwierig, den überblick zu behalten – zumindest mit herkömmlichen Mitteln. Der vorliegende Workshop beschäftigt sich mit dem Webbrowser-Steuerelement von Microsoft und den Möglichkeiten, die Access zum Verwalten der Lesezeichen zu Ihren Lieblings-websites bietet.<\/b><\/p>\n
Der Microsoft Internet Explorer ist derzeit das am weitesten verbreitete Tool zur Anzeige von Internetseiten. Er bietet alle erforderlichen Funktionen, um bequem durch das Internet zu navigieren.<\/p>\n
Wenn der Anwender eine Seite findet, die er gerne später noch einmal aufrufen möchte, kann er die Adresse der Seite einfach in einem Ordner namens Favoriten speichern. Bei dem Ordner handelt es sich prinzipiell um einen herkömmlichen Ordner, der Verknüpfungen zu verschiedenen Objekten speichert. Zu den Objekten gehören neben Anwendungen, Dokumenten und Verzeichnissen auch Internetadressen.<\/p>\n
Leider können Sie in dem Ordner aber nur die gewünschte Adresse und einen geeigneten Namen speichern. Schon wenn Sie sich beispielsweise ein paar Notizen zu den unterschiedlichen Internetangeboten machen möchten, müssen Sie zu Bleistift und Notizblock greifen.<\/p>\n
Zusätzlich speichert der Internet Explorer noch einige weitere Informationen. Dabei handelt es sich z. B. um die zuletzt aufgerufenen Internetadressen der aktuellen Sitzung für die aktive Instanz des Internet Explorers. Sie können auf die Liste dieser Seiten zugreifen, indem Sie auf die kleine Schaltfläche mit dem Pfeil nach unten klicken, die sich rechts neben der Zurück-Schaltfläche befindet.<\/p>\n
Außerdem können Sie auf eine Liste häufig geladener Seiten zugreifen, indem Sie das Kombinationsfeld mit der aktuellen Adresse öffnen.<\/p>\n
Access eignet sich prinzipiell zur Verwaltung aller nur denkbaren Daten – sofern sie sich in digitaler Form befinden. Daher ist auch die Verwaltung der Lesezeichen und der aufgerufen Internetseiten grundsätzlich möglich.<\/p>\n
Wenn Sie eine Tabelle mit Lesezeichen anlegen, ist es auch kein Problem, die Lesezeichen zu kategorisieren oder Kommentare zu den dahinter steckenden Internetseiten abzuspeichern. Damit hätten Sie den Favoriten des Internet Explorers schon einiges voraus.<\/p>\n
Das einzige Problem ist nun: Wie bekommen Sie die Adressen der aufgerufenen Seiten in Ihre Datenbank<\/p>\n
Die Antwort ist ganz einfach: Basteln Sie sich einfach Ihren eigenen Browser. Voraussetzung dafür ist, dass sich das Webbrowser-Steuerelement auf Ihrem Rechner befindet. Das Webbrowser-Steuerelement ist auf jeden Fall installiert, wenn Sie mit dem Microsoft Internet Explorer arbeiten.<\/p>\n
Falls Sie nicht mit dem Internet Explorer arbeiten, können Sie sich die benötigten Dateien von der Internetseite http:\/\/www.microsoft.de\/ herunterladen. (Microsoft erlaubt uns leider nicht, diese Dateien auf die CD zu nehmen.) Nach der Installation des Internet Explorers ist das ActiveX-Control Webbrowser-Steuerelement automatisch verfügbar.<\/p>\n
Im diesem Kapitel lernen Sie zunächst das Webbrowser-Control und seine Funktionen kennen.<\/p>\n
Im folgenden Kapitel kommt dann Access zur Geltung: Sie erfahren dort, wie Sie der zum Internetbrowser umfunktionierten Datenbank eine komfortable Lesezeichen- und Historieverwaltung hinzufügen.<\/p>\n
Vorbereitungen<\/b><\/p>\n
Bevor Sie sich auf das Webbrowser-Control stürzen, sollten Sie zunächst einmal eine neue Datenbank anlegen. Anschließend erstellen Sie direkt ein neues Formular, speichern es unter dem Namen frmInternetBrowser, und öffnen es in der Entwurfsansicht.<\/p>\n
Einfügen desWebbrowser-Steuerelements<\/b><\/p>\n
Nun können Sie bereits das entsprechende ActiveX-Control in das Formular einfügen. Dazu gibt es zwei Möglichkeiten. Als erste Möglichkeit klicken Sie mit der Maus auf das Symbol Weitere Steuerelemente unten rechts in der Toolbox. Daraufhin erscheint eine Liste aller verfügbaren zusätzlichen Steuerelemente (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Auswahl des Webbrowser-Steuerelements<\/span><\/b><\/p>\n Mit den beiden Pfeil-Symbolen können Sie nach unten und oben scrollen. Mit wachsender Anzahl installierter Anwendungen kann auch die Anzahl der verfügbaren Steuerelemente rapide zunehmen, sodass Sie schon eine Weile brauchen, bis Sie das gewünschte Steuerelement gefunden haben. <\/p>\n Wenn es dann soweit ist, können Sie es mit einem einfachen Mausklick auswählen und anschließend ein Rechteck in dem Formular aufziehen, um das Steuerelement einzufügen (siehe Bild 2).<\/p>\n Geben Sie sich nicht so viel Mühe beim Anpassen der Größe – beim ersten Versuch erstellt Access das Objekt ohnehin in der Standardgröße.<\/p>\n <\/b><\/p>\n <\/b><\/p>\n <\/b><\/p>\n Die zweite Möglichkeit ist der Aufruf des Dialogs ActiveX-Steuerelement einfügen über den Menübefehl Einfügen ( ActiveX-Steuerelement … (siehe Bild 3).<\/p>\n Hier können Sie mit Hilfe der Bildlaufleisten wesentlich schneller als mit der ersten Möglichkeit zum gewünschten Steuerelement gelangen.<\/p>\n Nachdem Sie das Steuerelement auf dieses Weise angelegt haben, ändern Sie zunächst einmal seinen Namen. Im Register Andere des Eigenschaftsfenster finden Sie den entsprechenden Eintrag. Weisen Sie ihm den Wert ctlInternetBrowser zu.<\/p>\n Anzeigen einer Seite im Webbrowser-Control<\/b><\/p>\n Sicher möchten Sie nun so schnell wie möglich Ergebnisse sehen. Damit das Browserfenster direkt beim öffnen eine Seite anzeigt, müssen Sie eine Prozedur für die Ereigniseigenschaft Beim Klicken hinterlegen.<\/p>\n Aktivieren Sie also das Formular, indem Sie auf den Schnittpunkt der beiden Lineale klicken und aktivieren Sie das Eigenschaftsfenster.<\/p>\n Im Register Daten klicken Sie auf die Eigenschaft Beim Anzeigen. Daraufhin erscheint eine Schaltfläche mit drei Punkten […]. Mit einem Klick auf die Schaltfläche öffnen Sie den Dialog Editor auswählen. Wählen Sie hier den Eintrag Code-Editor aus.<\/p>\n Sie können nun im Codefenster zwischen die beiden Zeilen Private… und End… die folgende Anweisung einfügen:<\/p>\n Zusätzlich führen Sie bitte noch den folgenden Schritt durch:<\/p>\n Wählen Sie – während das Codefenster geöffnet ist – den Menübefehl Extras ( Verweise… aus. Hier müssen Sie den Eintrag Microsoft Internet Controls aktivieren (siehe Bild 4). Haken Sie bei dieser Gelegenheit auch direkt den Eintrag Microsoft HTML Object Library mit ab.<\/p>\n Nachdem Sie das Codefenster geschlossen haben, können Sie nun in die Formularansicht wechseln. Wenn Sie mit Access 97 arbeiten, stellt sich das gewünschte Ergebnis – die Anzeige einer Internetseite – möglicherweise nicht ein. Stattdessen erscheint eine Fehlermeldung (siehe Bild 5), gefolgt von einer zweiten (siehe Bild 6).<\/p>\n <\/b><\/p>\n Bild 5: Der ersten Fehlermeldung…<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: …folgt die zweite auf den Fuß.<\/span><\/b><\/p>\n Der Grund liegt darin, dass Access 97 auf die Anwendung einer bestimmten Version der Bibliothek Shdocvw.dll ausgelegt ist und nicht mit einer aktuelleren Version zusammenarbeiten möchte. Gehen Sie in dem Fall folgendermaßen vor:<\/p>\n Nach der Durchführung der Schritte können Sie ohne Probleme in die Formularansicht wechseln. Das Webbrowser-Steuerelement zeigt nun die gewünschte Internetseite an.<\/p>\n Sie müssen sich mit noch einem weiteren Bug anfreunden, der für Access 97 und ebenso für Access 2000 gilt: Wenn Sie die Größe des Webbrowser-Steuerelements ändern, erscheint in der Entwurfsansicht zunächst die korrekte Größe. Wechseln Sie aber in die Formularansicht, erscheint das Steuerelement in der voreingestellten Größe.<\/p>\n Dagegen gibt es nur ein wirksames Mittel: <\/p>\n <\/b><\/p>\n Internetbrowser mit Funktionen versehen<\/b><\/p>\n Nun können Sie den Browser mit den wichtigsten Funktionen ausrüsten, z. B. Navigationsschaltflächen, einem Kombinationsfeld für die gewünschte Adresse usw.<\/p>\n Fügen Sie zunächst einige Schaltflächen in das Formular ein. Sie benötigen je eine Schaltfläche zur Anzeige der vorherigen und der nächsten Seite, zum Aktualisieren der aktuellen Seite, zum Anhalten des Ladevorgangs und zum Anzeigen einer voreingestellten Startseite.<\/p>\n Außerdem benötigen Sie ein Kombinationsfeld, in dem der Anwender die gewünschte Seite eingeben kann.<\/p>\n Nachdem Sie das Kombinationsfeld erstellt haben, ändern Sie seinen Namen auf cmbURL. Damit Sie es direkt ausprobieren können, legen Sie für die Ereigniseigenschaft Nach Aktualisierung Prozedur aus Quellcode 1 an.<\/p>\n Die Prozedur fragt ab, ob das Kombinationsfeld nicht leer ist und lädt anschließend das Dokument von der angegebenen Adresse.<\/p>\n Nun kümmern Sie sich um die History: Schließlich möchten Sie hin und wieder mal zu einer vorherigen Seite und auch wieder zurück springen.<\/p>\n Dazu erstellen Sie zwei Schaltflächen, die Sie wahlweise mit dem Kleiner- [<] und dem Größer-Zeichen [>] oder einem aussagekräftigen Text ausstatten können. Geben Sie den beiden Schaltflächen in jedem Fall die Bezeichnungen btnBack und btnForward.<\/p>\n <\/p>\n Nun müssen Sie noch die beiden Schaltflächen mit ein wenig Code versehen. Hinterlegen Sie für die Ereigniseigenschaft Beim Klicken der Schaltfläche btnBack die folgende Prozedur:<\/p>\n <\/b><\/p>\n Ebenso gehen Sie mit der Schaltfläche btnForward vor. Hier verwenden Sie die folgende Prozedur:<\/p>\n Anzeige des Seitentitels in der Formulartitelzeile<\/b><\/p>\n Die Titelzeile des Formulars soll den Titel der aktuellen Seite anzeigen – sofern die Seite einen Titel hat. Dazu müssen Sie eine Ereigniseigenschaft für das Webbrowser-Steuerelement programmieren.<\/p>\n Dabei gibt es einen kleinen Unterschied zu herkömmlichen Steuerelementen: Wenn Sie mit einem ActiveX-Steuerelement arbeiten, können Sie unter Umständen nicht alle Ereigniseigenschaften des Steuerelements über das Eigenschaftsfenster einsehen. Sie müssen stattdessen zunächst das Code-Fenster öffnen.<\/p>\n Das tun Sie am besten in der Entwurfsansicht über die entsprechende Schaltfläche Code oder über den Menübefehl Ansicht ( Code. Im oberen Teil des Codefensters finden Sie zwei Kombinationsfelder vor:<\/p>\n Eines für die Anzeige der Objekte des aktuellen Formulars und ein weiteres für die Anzeige der zur Verfügung stehenden Ereignisse des ausgewählten Objekts (siehe Bild 8).<\/p>\n Das Webbrowser-Steuerele-ment löst das Ereignis TitleChange aus, wenn der Titel der aktuellen Seite verfügbar ist. Sie können die Ereignisprozedur dazu verwenden, der Titelleiste des Formulars den Titel des HTML-Dokumentes zuzuweisen. Verwenden Sie dazu die Prozedur aus Quellcode 2.<\/b><\/p>\n <\/b><\/p>\n <\/b><\/p>\n Bild 10: Datenherkunft des Kombinationsfeldes <\/span><\/b><\/p>\n Anzeige der kompletten Internetadresse im Kombinationsfeld<\/b><\/p>\n Neben dem Seitentitel soll das Formular auch die komplette Adresse der HTML-Seite anzeigen. Zur Anzeige der Adresse verwenden Sie einfach das Kombinationsfeld cmbURL, in das Sie auch die gewünschte Adresse eingegeben haben.<\/p>\n Damit das Kombinationsfeld die komplette Adresse anzeigt, verwenden Sie die Ereigniseigenschaft DocumentComplete. Hinterlegen Sie die Prozedur aus Quellcode 3 für die Eigenschaft.<\/p>\n Speichern der Adressen im Kombinationsfeld<\/b><\/p>\n Für die bisherigen Anwendungen hätten Sie sicher auch ein Textfeld statt eines Kombinationsfeldes verwenden können. Nun sollen Sie das Kombinationsfeld mit Leben füllen. Zunächst einmal erstellen Sie eine Tabelle, die als Grundlage für die Datenherkunft des Kombinationsfeldes dient.<\/p>\n Nennen Sie die Tabelle tblURL und legen Sie zwei Felder entsprechend der Abb. 9 an.<\/p>\n Anschließend wechseln Sie in die Entwurfsansicht des Formulars und klicken in das Feld Datensatzherkunft im Register Daten des Eigenschaftsfensters. Klicken Sie dann auf die Schaltfläche mit den drei Punkten […]. <\/p>\n Fügen Sie dem Abfrageentwurf die Tabelle cmbURL hinzu und ziehen Sie das Feld URL in das Entwurfsraster (siehe Bild 10).<\/p>\n Speichern Sie anschließend die Abfrage unter dem Namen qryURL.<\/p>\n Außerdem müssen Sie dafür sorgen, dass der Datenherkunft noch nicht vorhandene Internetadressen hinzugefügt werden. Dazu verwenden Sie die Ereignisprozedur Bei Nicht in Liste (cmdURL_Not in List) des Kombinationsfeldes. Legen Sie für die Eigenschaft die Prozedur aus Quellcode 4 an.<\/p>\n Die Prozedur legt einen neuen Datensatz in der Tabelle tblURL an und fügt den Namen der aktuellen Seite hinzu.<\/p>\n Damit das auch funktioniert, müssen Sie noch die Eigenschaft Nur Listeneinträge auf den Wert Ja einstellen.<\/p>\n Sie können bisher geöffnete Internetadressen nun bequem über das Kombinationsfeld anzeigen.<\/p>\n HTML-Quelltext anzeigen<\/b><\/p>\n Zu jedem anständigen Browser gehört auch die Möglichkeit, den Quelltext anzuzeigen. Dazu erstellen Sie zunächst eine entsprechende Schaltfläche im Formular frmInternetBrowser. Beschriften Sie die Schaltfläche mit dem Text Quellcode und geben Sie ihr die Bezeichnung btnQuellcode.<\/p>\n Legen Sie nun ein neues Formular an, in welchem Sie den Quellcode anzeigen möchten. Nennen Sie das Formular frmQuellcode und ändern Sie die Eigenschaften Bildlaufleisten, Datensatzmarkierer, Navigationsschaltflächen und Trennlinien auf den Wert Nein.<\/p>\n Fügen Sie dem Formular ein Textfeld hinzu, entfernen Sie das Beschriftungsfeld des Textfeldes und nennen Sie es txtQuellcode. Stellen Sie die Eigenschaft Bildlaufleisten auf den Wert Vertikal ein.<\/p>\n Fügen Sie dem Formular außerdem eine Schaltfläche namens btnSchließen hinzu, die Sie mit dem Text Schließen beschriften. Für die Ereigniseigenschaft Beim Klicken der Schaltfläche hinterlegen Sie die folgende Prozedur:<\/p>\n Nun können Sie auch die Schaltfläche btnQuellcode auf dem Formular frmInternetBrowser mit der Ereignisprozedur aus Quellcode 5 versehen.<\/p>\n Die Prozedur deklariert zunächst die Variable Quellcode als HTML-Dokument und weist der Variablen den HTML-Code der derzeit im Webbrowser-Control angezeigten Seite zu. Anschließend öffnet es das Formular frmQuellcode und weist dem Textfeld txtQuellcode den HTML-Code zu.<\/p>\n <\/b><\/p>\n Bild 11: HTML-Ansicht der aktuellen Website<\/span><\/b><\/p>\n Anschließend können Sie die Schaltfläche ausprobieren und das Resultat begutachten (siehe Bild 11).<\/p>\n Weitere Funktionen<\/b><\/p>\n Der Browser benötigt noch einige weitere Funktionen, z. B. zum Aktualisieren der angezeigten Seite, zum Abbrechen des Ladevorgangs usw.<\/p>\n Legen Sie eine Schaltfläche mit der Beschriftung Aktualisieren und der Bezeichnung btnAktualisieren an. Hinterlegen Sie für die Ereigniseigenschaft Beim Klicken der Schaltfläche die Prozedur aus Quellcode 6.<\/p>\n Die Schaltfläche zum Abbrechen des Ladevorgangs einer Seite soll nur während des Ladevorgangs aktiviert sein.<\/p>\n Nachdem Sie die Schaltfläche mit dem Namen btnAbbrechen und der Bezeichnung Abbrechen erstellt haben, stellen Sie die Eigenschaft Aktiviert im Register Daten auf den Wert Nein ein. Anschließend können Sie die Ereignisprozedur aus Quellcode 7 anlegen.<\/p>\n Sie müssen natürlich noch dafür sorgen, dass die Schaltfläche beim Start des Ladevorgangs aktiviert und anschließend wieder deaktiviert wird. Dazu verwenden Sie zwei Ereigniseigenschaften des Webbrowser-Steuerelements, nämlich DownloadBegin und DownloadComplete. Verwenden Sie die beiden Ereignisprozeduren aus Quellcode 8 und 9.<\/p>\n Die in den Internetoptionen des Internet Explorers angegebene Startadresse soll der Anwender ebenfalls mit einem Klick erreichen können.<\/p>\n Die entsprechende Schaltfläche hat den Namen btnStartseite und bekommt die Beschriftung Startseite. Die entsprechende Ereignisprozedur finden Sie in Quellcode 10.<\/p>\n Nachdem Sie mit dem Webbrowser-Steuerelement nun einen weitgehend brauchbaren Internetbrowser erstellt haben, können Sie nun zur Hauptarbeit kommen: Die Erstellung der Lesezeichenverwaltung.<\/p>\n In der Lesezeichenverwaltung soll der Anwender nicht nur verschiedene Seiten als Lesezeichen anlegen. Zusätzlich soll er die Lesezeichen in verschiedene Kategorien einordnen und zu jedem Lesezeichen eine Beschreibung hinterlegen können.<\/p>\n <\/b><\/p>\n <\/b><\/p>\n <\/b><\/p>\n Das i-Tüpfelchen ist eine Suchfunktion, mit der man die Lesezeichen und die Beschreibungen nach bestimmten Begriffen durchsuchen kann.<\/p>\n Tabellen zumSpeichern der Lesezeichen<\/b><\/p>\n Zum Speichern der Lesezeichen sind zwei unterschiedliche Tabellen erforderlich: eine zum Speichern der eigentlichen Lesezeichen und der Beschreibungen. Die zweite Tabelle beinhaltet die Kategorien und ist mit der ersten Tabelle verknüpft.<\/p>\n Die Tabelle zum Speichern der Kategorien enthält zwei Felder: KategorieNr und KategorieBezeichnung. Das Aussehen der Entwurfsansicht können Sie der Abb. 12 entnehmen.<\/p>\n Die Tabelle tblLesezeichen besteht aus vier Feldern. Neben dem Primärindex LesezeichenNr legen Sie noch die Felder LesezeichenTitel, LesezeichenAdresse, KategorieNr und LesezeichenBeschreibung an.<\/p>\n Das Feld LesezeichenTitel soll standardmäßig mit dem Titel der Internetseite gefüllt werden. Es soll aber auch die Möglichkeit geben, den Titel manuell anzupassen.<\/p>\n Das Feld KategorieNr dient zur Auswahl eines Eintrags der Tabelle tblKategorien. Schließlich soll der Anwender in das Feld LesezeichenBeschreibung eine Beschreibung der Internetseite eingeben können (siehe Bild 13).<\/p>\n <\/b><\/p>\n Formular zur Eingabe eines neuen Lesezeichens<\/b><\/p>\n Der Benutzer soll das Formular zur Eingabe eines neuen Lesezeichens mit einer Schaltfläche vom Formular frmInternetBrowser öffnen können. Erstellen Sie zunächst die benötigte Schaltfläche mit dem Namen btnNeuesLesezeichen und der Beschriftung Neues Lesezeichen.<\/p>\n <\/b><\/p>\n <\/b><\/p>\n Legen Sie die Prozedur aus Quellcode 12 für die Ereigniseigenschaft Beim Klicken der Schaltfläche an.<\/p>\n Legen Sie dann ein neues Formular namens frmNeuesLesezeichen an. Das Formular soll fünf Steuerelemente enthalten, deren Anordnung Sie der Abb. 14 entnehmen können.<\/p>\n Den Steuerelementinhalt des Textfeldes txtTitel sowie des Textfeldes txtAdresse sehen Sie in der gleichen Abbildung.<\/p>\n Das Kombinationsfeld cmbKategorien hat als Datensatzherkunft eine auf der Tabelle tblKategorien basierende Abfrage, die nur das Feld KategorieBezeichnung enthält (siehe Bild 15). <\/p>\n Das Feld txtBeschreibung ist ungebunden und hat noch keinen Steuerelementinhalt.<\/p>\n Mit dem Kombinationsfeld cmbKategorien soll der Anwender auch neue Kategorien eingeben können. Sie müssen dazu für die Ereigniseigenschaft Bei Nicht in Liste die Prozedur aus Quellcode 13 anlegen.<\/p>\n Auch hier müssen Sie für die Eigenschaft Nur Listeneinträge den Wert Ja eingeben. Für die Schaltfläche btnLesezeichenSpeichern legen Sie die Prozedur aus Quellcode 14 an.<\/p>\n Die Prozedur überprüft, ob der Anwender eine Kategorie ausgewählt hat. Falls nicht, erscheint eine entsprechende Meldung (siehe Bild 16).<\/p>\n Sonst speichert die Prozedur den neuen Datensatz und schließt das Formular.<\/p>\n Formular zur Auswahl eines Lesezeichens<\/b><\/p>\n <\/b><\/p>\n <\/b><\/p>\n Natürlich soll der Anwender auch eine Seite mit Hilfe der gespeicherten Lesezeichen aufrufen können. Dazu benötigen Sie ein weiteres Formular namens frmLesezeichenAuswählen sowie eine weitere Schaltfläche im Formular frmInternetBrowser zum Anzeigen des neuen Formulars. Die Schaltfläche gestalten Sie analog zur Schaltfläche btnNeuesLesezeichen. Verwenden Sie hierzu die Ereignisprozedur aus Quellcode 15.<\/p>\n Das Formular soll unterschiedliche Steuerelemente zur Auswahl von Lesezeichen bereitstellen. Bild 17 zeigt ein Beispiel für die Anordnung der Steuerelemente.<\/p>\n Der Anwender soll zunächst die gewünschte Kategorie aus einem Kombinationsfeld aus-wählen. Anschließend zeigt ein Listenfeld alle gefundenen Einträge an. Im unteren Bereich zeigt das Formular die Internetadresse und die Beschreibung des Lesezeichens an.<\/p>\n Als Datenherkunft des Formulars dient eine Abfrage, die auf der Tabelle tblLesezeichen basiert (siehe Bild 18).<\/p>\n Ziehen Sie die drei Felder LesezeichenAdresse, LesezeichenBeschreibung und LesezeichenNr in das Entwurfsraster.<\/p>\n Deaktivieren Sie das Kontrollkästchen in der Zeile Anzeigen des Feldes LesezeichenNr. Setzen Sie für dieses Feld das Kriterium wie in Bild 18 ein. Den tieferen Sinn dieser Zeile erfahren Sie später.<\/p>\n Ziehen Sie nun ein Kombinationsfeld und ein Listenfeld in die Entwurfsansicht des neuen Formulars.<\/p>\n Nennen Sie das Kombinationsfeld cmbKategorien und bezeichnen Sie es entsprechend. Die Datenherkunft des Kombinationsfeldes ist die Tabelle tblKategorien. Setzen Sie die Eigenschaft Spaltenanzahl auf den Wert 2 und Spaltenbreite auf den Wert 0cm;3cm.<\/p>\n <\/b><\/p>\n Für die Ereigniseigenschaft Nach Aktualisierung geben Sie bitte die Prozedur aus Quellcode 16 ein.<\/p>\n Die erste Anweisung aktualisiert den Inhalt des Listenfeldes. Die zweite Anweisung markiert den ersten Eintrag des Listenfeldes. Die letzte Anweisung schließlich aktualisiert die Datenherkunft des Formulars und damit die Daten des ausgewählten Lesezeichens.<\/p>\n Ein Listenfeld soll alle Lesezeichen anzeigen, die zu der mit dem Kombinationsfeld cmbKategorien ausgewählten Kategorie gehören.<\/p>\n Nennen Sie das Listenfeld lstLesezeichen. Die Datenherkunft des Listenfeldes ist eine auf der Tabelle tblLesezeichen basierende Abfrage. Die Abfrage enthält alle Felder der Tabelle (siehe Bild 19). Für das Feld KategorieNr setzen Sie den gleichen Ausdruck wie in der Abbildung ein. <\/p>\n Die Abfrage enthält nur diejenigen Datensätze, deren Kategorie mit der im Kombinationsfeld cmbKategorien ausgewählten Kategorie übereinstimmt.<\/p>\n Nun fehlt noch die Möglichkeit, eine neue Internetseite mit Hilfe der Lesezeichenliste anzuzeigen.<\/p>\n Dazu soll der Anwender doppelt auf das gewünschte Lesezeichen klicken. Um das zu realisieren, verwenden Sie die Prozedur aus Quellcode 17 für die Ereigniseigenschaft Beim Doppelklicken.<\/p>\n Die Prozedur gibt die Adresse des ausgewählten Lesezeichens an das Webbrowser-Steuerelement im Formular frmInternetBrowser weiter und schließt das Formular.<\/p>\n Damit das Kombinationsfeld des Formulars beim öffnen aufgeklappt ist, verwenden Sie die folgende Prozedur, die Sie für die Ereigniseigenschaft Beim öffnen des Formulars hinterlegen:<\/p>\n Die Prozedur setzt den Fokus auf das Kombinationsfeld und klappt es anschließend auf.<\/p>\n Falls der Anwender keines der Lesezeichen auswählen möchte, stellen Sie ihm eine Schaltfläche zum Schließen des Formulars zur Verfügung. Hinterlegen Sie für die Schaltfläche namens btnSchließen den folgenden Code:<\/p>\n Nachdem Sie nun wissen, wie Sie mit dem Webbrowser-Steuerelement umgehen und wie Sie Ihre Lesezeichen verwalten können, stehen anderen Erweiterungen keine Hindernisse mehr im Weg.<\/p>\n Sie können z. B. das Formular zum Auswählen eines Lesezeichens um Funktionen zum Suchen von bestimmten Einträgen erweitern.<\/p>\n Denkbar ist auch, das Webbrowser-Steuerelement auf mehreren Registerseiten unterzubringen, um gleichzeitig mit nur einer Anwendung auf mehrere Webseiten zuzugreifen und sie zu verwalten. <\/p>\n Und schließlich wollen Sie Ihre gesammelten Lesezeichen ja möglicherweise auch der restlichen Welt präsentieren: Mit relativ wenig Aufwand können Sie dann eine Funktion programmieren, die aus den Daten Ihrer Lesezeichen-tabelle eine Lesezeichendatei generiert, die auch z. B. vom Internet Explorer verwendet werden kann. <\/p>\n Enthaltene Beispieldateien:<\/p>\n InternetBrowser00.mdb<\/p>\n InternetBrowser97.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic004.png\")
<\/p>\nMe!ctlInternetBrowser.GoHome<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic007.png\")
<\/p>\nPrivate Sub cmbURL_AfterUpdate()\r\n On Error Resume Next\r\n If Len(Me.cmbURL) > 0 Then\r\n Me!ctlInternetBrowser.Navigate Me.cmbURL\r\n End If\r\nEnd Sub<\/pre>\n
Einfügen von Navigationsschaltflächen<\/h3>\n
Kombinationsfeld zur Eingabe von Internetadressen<\/h3>\n
Durch die History blättern<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic008.png\")
<\/p>\nPrivate Sub ctlInternetBrowser_TitleChange (ByVal Text As String)\r\n Forms!frmInternetBrowser.Caption = Text\r\nPrivate Sub ctlInternetBrowser_DocumentComplete (ByVal pDisp As Object, _ URL As Variant)\r\n Me!cmbURL = Me!ctlInternetBrowser.LocationURL\r\nPrivate Sub btnBack_Click()\r\n On Error Resume Next\r\n Me!ctlInternetBrowser.GoBack\r\nEnd Sub<\/pre>\n
Private Sub btnForward_Click()\r\n On Error Resume Next\r\n Me!ctlInternetBrowser.GoForward\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic010.png\")
<\/p>\nPrivate Sub cmbURL_NotInList(NewData As String, _ Response As Integer)\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset (\"tblURL\", dbOpenDynaset)\r\n rst.AddNew\r\n rst!URL = NewData\r\n rst.Update\r\n rst.Close\r\n db.Close\r\n Response = acDataErrAdded<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic011.png\")
<\/p>\nPrivate Sub btnQuellcode_Click()\r\n Dim Quellcode As MSHTML.HTMLDocument\r\n Set Quellcode = Me!ctlInternetBrowser.Document\r\n DoCmd.OpenForm \"frmQuellcode\"\r\n Forms(\"frmQuellcode\").Caption = \"HTML-Quellcode\"\r\n Forms(\"frmQuellcode\").txtQuellcode = _ Quellcode.DocumentElement.InnerHTML\r\n Set Quellcode = Nothing<\/pre>\n
Internetadressen hinzufügen<\/h3>\n
Private Sub btnSchließen_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic012.png\")
<\/p>\nPrivate Sub btnAktualisieren_Click()\r\n On Error Resume Next\r\n Me!ctlInternetBrowser.Refresh\r\nPrivate Sub btnAbbrechen_Click()\r\n On Error Resume Next\r\n Me!ctlInternetBrowser.stop\r\n Me.Caption = Me!ctlInternetBrowser.LocationName\r\nEnd Sub\r\nPrivate Sub ctlInternetBrowser_DownloadBegin()\r\n Me.btnAbbrechen.Enabled = True\r\nEnd Sub\r\nPrivate Sub ctlInternetBrowser_DownloadComplete()\r\n Me.btnAbbrechen.Enabled = False\r\nPrivate Sub btnStartseite_Click()\r\n On Error Resume Next\r\n Me!ctlInternetBrowser.GoHome\r\nEnd Sub<\/pre>\n
Aktualisieren der angezeigten Seite<\/h3>\n
Abbrechen des Ladevorgangs<\/h3>\n
Anzeigen der Startadresse<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic013.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic014.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic015.png\")
<\/p>\nDie Tabelle tblKategorien<\/h3>\n
Die Tabelle tblLesezeichen<\/h3>\n
Private Sub btnNeuesLesezeichen_Click()\r\n DoCmd.OpenForm \"frmNeuesLesezeichen\"\r\n Forms!frmNeuesLesezeichen!txtTitel = Me.Caption\r\n Forms!frmNeuesLesezeichen!txtAdresse = Me!cmbURL\r\nEnd Sub\r\nQuellcode 12\r\nPrivate Sub cmbKategorie_NotInList (NewData As String, Response As Integer)\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset (\"tblKategorien\", dbOpenDynaset)\r\n rst.AddNew\r\n rst!KategorieBezeichnung = NewData\r\n rst.Update\r\n Response = acDataErrAdded\r\nPrivate Sub btnLesezeichenSpeichern_Click()\r\n If IsNull(Me.cmbKategorie) Then\r\n MsgBox \"Wählen Sie zunächst eine Kategorie aus.\", vbExclamation, _ \"Kategorie fehlt\"\r\n Else\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"tblLesezeichen\", dbOpenDynaset)\r\n rst.AddNew\r\n rst!LesezeichenTitel = Me!txtTitel\r\n rst!LesezeichenAdresse = Me!txtAdresse\r\n rst!KategorieNr = DLookup(\"KategorieNr\", \"tblKategorien\", _ \"[KategorieBezeichnung]= ''\" & Me!cmbKategorie & \"''\")\r\n rst!LesezeichenBeschreibung = Me!txtBeschreibung\r\n rst.Update\r\n DoCmd.Close acForm, Me.Name\r\n End If<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic016.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic017.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic018.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic019.png\")
<\/p>\nPrivate Sub btnLesezeichenZeigen_Click()\r\n DoCmd.OpenForm \"frmLesezeichenAuswählen\"<\/pre>\n
Aussehen des Formulars<\/h3>\n
Datenherkunft des Formulars<\/h3>\n
Kombinationsfeld zur Auswahl der Kategorie<\/h3>\n
Private Sub cmbKategorien_AfterUpdate()\r\n Me!lstLesezeichen.Requery\r\n Me.lstLesezeichen = Me!lstLesezeichen.ItemData(0)\r\n Me.Requery<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{8EC0F86A-5FE0-40AE-954A-8DFE75DA90F3}\/pic020.png\")
<\/p>\nListenfeld zur Anzeige der Lesezeichen zu einer Kategorie<\/h3>\n
Private Sub lstLesezeichen_Click()\r\n Me.Requery\r\nEnd Sub<\/pre>\n
Lesezeichen zur Anzeige einer Seite verwenden<\/h3>\n
Private Sub lstLesezeichen_DblClick(Cancel As Integer)\r\n Forms!frmInternetBrowser!ctlInternetBrowser.Navigate Me!txtAdresse\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub\r\nQuellcode 17<\/pre>\n
öffnen des Formulars<\/h3>\n
Private Sub Form_Current()\r\n Me!cmbKategorien.SetFocus\r\n Me!cmbKategorien.Dropdown\r\nEnd Sub<\/pre>\n
Schaltfläche zum Verlassen des Formulars<\/h3>\n
Private Sub btnSchließen_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n