Combo box Hyperlink

[JPR]

Hello,

I have added a combo to a form which has its record source to a table with three fields. It is used to open pdf/doc files.

- City
- Title
- Hyperlink

The combo will only display the document's Title as I have set the Column Width to: 0";1";0"
Unfortunately the following code, does not work as getting a run time error 424:

"Application.FollowHyperlink Split(lstLinks.Column(1), "#")(1)"

Appreciate any help.

 

[arnelgp]

you need:

LstLinks.Column(2) not Column(1)

 

[JPR]

Thank you. Unfortunately it still gives me the same error. If I try to open the hyperlink, directly from the table, it works fine. The files are locally stored on a shared drive.

 

[bastanu]

You should try to use HyperlinkPart(LstLinks.Column(2),acAddress) -see: https://docs.microsoft.com/en-us/office/vba/api/access.application.hyperlinkpart
Cheers,

 

[arnelgp]

for a test, add an Unbound textbox (txtLink) to your form.
set the textbox controlsource to:

=[lstLinks].[Column](2)

change your code to:

Me!txtLink.Hyperlink.Follow

 

[moke123]

why bother with hyperlink datatype? just use text.

 

[JPR]

Got it working. Thank you

 

[bastanu]

Glad to hear, care to say how, it would help others with similar issue in the future.
Cheers,

 

[JPR]

This works fine. Thank you

Application.FollowHyperlink Me.mycombo.Column(2)