Followhyperlink

K

K

Good day,

I have a customer information form. In this form I have a field called
website. I would like to have it so on Dbl Click it opens explorer and goes
to the website.

Any help would be appreciated.

THanks in advance.
 
S

strive4peace

application.followhyperlink me.controlname

application.followhyperlink strVariable

application.followhyperlink "http://www.google.com"

application.followhyperlink "c:\path\myDatabase.mdb"

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*
 
K

K

Thankyou for your response. I used "application.followhyperlink
me.controlname" now I get Run-Time Error 490 (Cannot open specified File)

The Field name is Cwebsite and its data type is text

application.followhyperlink me.Cwebsite

Any help would be appreciated.

Thanks

Kyle.
 
S

strive4peace

Hi Kyle,

you need to preface the URL with "http://" ... www is not enough...

along with checking to ensure the URL is valid, you can do something
like this:

if left(me.Cwebsite,7) <> "http://" then
me.Cwebsite = "http://" & me.Cwebsite
end if

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*
 
K

K

Hi Crystal.

Thanks for taking the time to help me with this. I typed in
Http://www.google.ca in the field and I still get the same error 490 with the
same message.

Do I need to declare the string as a hyperlink. I am new with codeing.

I look forward to hearing from you.

Thanks Again
 
D

Dirk Goldgar

strive4peace said:
Hi Kyle,

you need to preface the URL with "http://" ... www is not enough...

along with checking to ensure the URL is valid, you can do something
like this:

if left(me.Cwebsite,7) <> "http://" then
me.Cwebsite = "http://" & me.Cwebsite
end if
Click to expand...

Ah, but what if it's "https://"? It's a pain, but you probably have to
allow for that, too.
 
S

strive4peace

Hi Dirk,

good point! Thanks

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*
 
K

K

Okay it works. My fault. Thank you very much. Actually is there any way to
have it so the code automatically stick http:// infront of the URL when there
is on www?
 
S

strive4peace

Hi Kyle,

to test and make sure your computer has the right associations, try this:

click on Start and choose Run

Http://www.google.ca
ENTER

if it doesn't go, then that is the problem...

if it goes, then perhaps you can try assigning your url to a string...

'~~~~~~~~~~~~~~~~~~
dim mURL as string

'check me.Cwebsite to make sure it has what it needs

mURL = me.Cwebsite

'comment next line after things work ok
msgbox mURL,,"URL"

application.followhyperlink mURL

'~~~~~~~~~~~~~~~~~~

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*
 
K

K

okay go it

Application.FollowHyperlink "http://" & "" & [CwebSite]

Thanks everyone.!!! Cheers
 
S

strive4peace

Hi Kyle,

Great!

if left(me.Cwebsite,7) <> "http://" then
me.Cwebsite = "http://" & me.Cwebsite
end if

but Dirk had a valid point -- it may not be "http://", it may be
something like "https://"

as your data gets corrected, you can manually make adjustments when it
doesn't work right...

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*
 
S

strive4peace

you're welcome, Kyle ;) happy to help

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*


okay go it

Application.FollowHyperlink "http://" & "" & [CwebSite]

Thanks everyone.!!! Cheers


strive4peace said:
Hi Dirk,

good point! Thanks

Warm Regards,
Crystal
*
:) have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*
Click to expand...
Click to expand...
 
Top