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.InternetEx- plorer 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.