![]() |
||
![]() |
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. 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. |
![]() |