Hyperlink Query

[tlaksh]

I have text box control on a form with a control source as follows

=DLookup("[Website]", "[Offices]", "[Office ID] =" & [Affiliation])

This is the website address. On the double click event of this item i have the following code


Private Sub Text240_DblClick(Cancel As Integer)
Dim strInput As String
strInput = Me.Text240
Call Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", vbNormalFocus)
Application.FollowHyperlink strInput, , True

End Sub

Now when i double click on the link I get the following error message..

Run-time error '432'
Filename or class name not found during automation operation.

Where am I going wrong ?? Any suggestions...Thanks a ton..

Laksh

 

[AlexMidd]

I tried this with a hyperlink of the format "

http://www.google.com"

and got the same error. When I changed the string to "

http://www.google.com"

it worked correctly. I presume there is a problem with the string that is being taken from Text240, i.e. it must be a full address with protocol to work correctly. Alex Middleton