opening a hyperlink

[DanielR]

Trying to open a hyperlink using:
CreateObject("Shell.Application").Open "http://abc.def"

My problem is that the hyperlink is stored in a text box.
Therefore, when I try to do the following:
CreateObject("Shell.Application").Open textbox.value
it doesn't work.

I tried to save the textbox.value to a hperlink:
dim hlink as hyperlink
CreateObject("Shell.Application").Open hlink
This fails too.

It seems that if the double quotes proceed and hyperlink address and are added to the end of the hyperlink address it works fine.

How do I do this???

 

[isladogs]

Instead use this code

Application.FollowHyperlink "http://www.webaddress.com"

Or if the address is in a textbox

Application.FollowHyperlink Me.txtboxname

 

[DanielR]

Hi Colin,

I tried:
Application.FollowHyperlink txthlink.value
It doesn't work.

 

[isladogs]

Try without .value

Did you realise that was ALL the code needed? Just that one line!

 

[DanielR]

Thank you colin, I tried that and it doesn't work.
I am trying to open a content server link.
The code above opens 2 tabs - 1 to content server and 1 to the link.

If I use the CreateObject("Shell.Application").Open "http://abc.def"
just the link opens and it work.
However doing this with textbox name doesn't.

 

[isladogs]

As I can't understand why my simple code didn't work for you, I've put together a very simple database showing 4 methods of opening a website from a command button.

Next to each button you can see the code used - all work.
I've also used code to open a hyperlink from a label in the form footer

Notice I had to slightly modify the code for the second button

CreateObject("Shell.Application").Open "" & Me.Text1 & ""

However, the Application.FollowHyperlink code should have worked as described before providing your textbox control source was similar to this

="http://www.bbc.co.uk"

Personally I prefer Application.FollowHyperlink as its simpler

HTH