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