Private Sub txtDeveloperWebsite_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim strDevWebsite As String On Error GoTo Error_OLEUnbound1 ' Set reference to hyperlink address. strDevWebsite = txtDeveloperWebsite.Text ' Follow hyperlink address. Application.FollowHyperlink strDevWebsite, , True Exit_OLEUnbound1: Exit Sub Error_OLEUnbound1: MsgBox Err & ": " & Err.Description Resume Exit_OLEUnbound1 End Sub
Solved! Go to Solution.
Dim iE As Object Set iE = CreateObject("InternetExplorer.Application") iE.navigate "www.rivex.co.uk" iE.Visible = True
Dim iE As Object Set iE = CreateObject("InternetExplorer.Application") iE.navigate "www.rivex.co.uk" iE.Visible = True
Halil,
Looking at your sample code I believe the sample you have found is specific to MS Access. If you want to open a website using VBA in ArcMap 9.3 use this code instead:Dim iE As Object Set iE = CreateObject("InternetExplorer.Application") iE.navigate "www.rivex.co.uk" iE.Visible = True
Duncan