Hyperlinks an den Internet Explorer übergeben

Access 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 HCHIP-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 Sub


Die 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.