Open website from list box

[kev921hs]

All -

I have a list box that lists companies with 7 columns of details. The 7th column is each company's web site. Its data type is Hyperlink. Is there any fairly simple way to make that an active link?

Alternatively, I would be willing to put something in the On Double Click event that would fire off the website, if there is a way to do that. I'd rather not though because right now double clicking opens the Company record and I'd like to preserve that. If that is the better way to approach this problem, is there another Event I could use (I've always wondered if On Key Press can be used in this situation, but I don't know how to use it)?

Any advice would help, thanks!

-Kevin

[maximus]

Here is What I have done. I have a table with 5 columns and the Fifth column is a Hyperlink Field Type. I have a form with a combo Box RowSource id Table1. I have place a Commoand button on the form with the following Code:

Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim strhyperlink As String

If IsNull(Me.Combo0) Then
MsgBox "Please select a Address"
Else


strhyperlink = "http://" & Me.Combo0.Column(4)
Application.FollowHyperlink strhyperlink

End If

Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click

End Sub

This code gets the hyppelink for the name that I select and opens it.

if this solves your problem mark the thread solved.

find attached sample.

[kev921hs]

That helped, but didn't solve it.

Our users input all websites with http://, so I removed the part of your code that appended that text.

So I have:
strhyperlink = Me.CO_NAME.Column(6)
Application.FollowHyperlink strhyperlink

And I get the error:
"Microsoft Access can't follow the hyperlink to '#http://www.website.com/#' "

Is there a way to extract the full address text without the # symbols?

[maximus]

The Following change in the code will extract the address without the "#".

Dim strhyperlink As String

If IsNull(Me.Combo0) Then
MsgBox "Please select a Address"
Else


strhyperlink = Replace(Me.Combo0.Column(4), "#", "")

Application.FollowHyperlink strhyperlink

End If

Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click

End Sub

Mark the Thread solved.

[maximus]

is you problem solved if yes mark the thread solved.