I have created the message box and when the user click the OK button I want a
hyperlink to activate. Anyone know the code for this after the vbOKOnly
Thanks

On Sun, 18 Apr 2010 08:03:01 -0700, pete wrote:

> I have created the message box and when the user click the OK button I want a
> hyperlink to activate. Anyone know the code for this after the vbOKOnly
> Thanks

If the site address is fixed and known:
Application.FollowHyperlink "http://www.thesite.com"

If the site address is a variable string value displayed in a control
on the form:
Application.FollowHyperlink Me![ControlName]
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

I use this code:
Public Sub OpenWebPage(url As String)

Dim browser As Variant

Set browser = CreateObject("InternetExplorer.Application")
browser.Navigate (url)
browser.StatusBar = False
browser.Toolbar = False
browser.Visible = True
browser.Resizable = True
browser.AddressBar = True


End Sub

I found application.followhyperlink sometimes locks up the computer.
Most of the time it works fine.

HTH,

--
Mark Andrews
RPT Software
http://www.rptsoftware.com
http://www.donationmanagementsoftware.com

"fredg" <(E-Mail Removed)> wrote in message
news:1gfwwix5akbki$.(E-Mail Removed)...
> On Sun, 18 Apr 2010 08:03:01 -0700, pete wrote:
>
>> I have created the message box and when the user click the OK button I
>> want a
>> hyperlink to activate. Anyone know the code for this after the vbOKOnly
>> Thanks
>
> If the site address is fixed and known:
> Application.FollowHyperlink "http://www.thesite.com"
>
> If the site address is a variable string value displayed in a control
> on the form:
> Application.FollowHyperlink Me![ControlName]
> --
> Fred
> Please respond only to this newsgroup.
> I do not reply to personal e-mail

Thanks to you both. Very helpful should impress my boss with the new database
I'm building.
Many thanks indeed
pete

"pete" wrote:

> I have created the message box and when the user click the OK button I want a
> hyperlink to activate. Anyone know the code for this after the vbOKOnly
> Thanks