![]() |
||
![]() |
Hyperlinks an den Internet Explorer übergebenAccess soll ein Feld an den Internet Explorer übergeben, das eine URL enthält. Daraufhin soll der Explorer die Webseite anzeigen. Geht das? Ihr Wunsch lässt sich mit ein paar Zeilen VBA-Quelltext realisieren. CHIP erläutert die Lösung am Beispiel der Access-2000-Datenbank IE_LINK .MDB, die Sie auf der Heft-CD unter CHIP-Code IE_LINK finden. Die Datenbank enthält das Formular »URLAnzeigen« mit dem Textfeld »URL«, in das der Anwender die Adresse der Internet-Seite einträgt. Per Klick auf die Schaltfläche »URL anzeigen« öffnet sich der Internet Explorer und navigiert zur angegebenen Internet-Seite. Wenn Sie das Formular mit einem Textfeld und einer Schaltfläche entworfen haben, führen Sie einen Rechtsklick auf die Schaltfläche »URL anzeigen« aus und rufen den Kontextbefehl »Eigenschaften | Ereignis« auf. Dann klicken Sie neben dem Eintrag »Beim Klicken« auf die Schaltfläche »...«. Im folgenden Dialog »Generator auswählen« markieren Sie den Eintrag »Code-Generator« und bestätigen mit »OK«. Der VBA-Editor öffnet sich und zeigt die Prozedur »URL_anzeigen_Click()«. Es ist unbedingt notwendig, dass Sie zuerst einen Verweis auf die Objektbibliothek »Microsoft Internet Controls« erzeugen, indem Sie im Visual Basic Editor »Extras | Verweise« aufrufen. Setzen Sie links neben dem Eintrag »Microsoft Internet Controls« einen Haken und bestätigen Sie mit »OK«. Erst durch den Verweis auf die Bibliothek können Sie die notwendigen Objekte und Methoden nutzen. Jetzt ergänzen Sie in der Funktion »URL_anzeigen_Click()« diesen VBA-Quelltext: Private Sub URL_anzeigen_Click () Dim IEApp As New SHDocVw.InternetExplorer IEApp.Visible = True IEApp.Navigate (Me!URL) End SubDie Prozedur erzeugt zuerst ein Objekt vom Typ »SHDocVw.InternetExplorer« namens »IEApp« für den Internet Explorer. Indem Sie die Eigenschaft »IEApp.Visible« mit »True« belegen, erscheint der Browser. Dann bewegen Sie ihn mit der Methode »IEApp.Navigate()« zu einer Webseite. Die Adresse entnimmt Access dem Feld »URL«, das es mit »Me!URL« anspricht. |
![]() |