Add button to follow hyperlink in table

[stanley721]

I am using Access 2010. I have a table with a hyperlink field that links to a word document. I have a form that references back to a query on that table. As I go through on the form to each new record and see the data, I also want the user to have the option to click a view/print button that will follow the hyperlink to the Word document. Seems easy, but I can't find a good way to accomplish this. I usually use macros to accomplish such tasks, but I am not finding anything. I'm not much for VBA code, but could use it if it works. Please help!

[pbaldy]

In this case, the form field contains a path (it's just a text field, not a hyperlink field):

Private Sub txtAttachment_DblClick(Cancel As Integer)
     Application.FollowHyperlink Me.txtAttachment
End Sub

[stanley721]

So does that mean I need to change the field to text from hyperlink? I tried the code, but it kept giving me errors.

[pbaldy]

I'm not sure; I've never used the hyperlink field (don't like it for some unknown reason). Isn't the user just supposed to be able to click on the field data to open it?

[stanley721]

I figured it out. just like you said, change the field in the table to text and enter the hyperlink address in there. Then create the button and put in the VBA code:

Private Sub Command24_Click()
Application.FollowHyperlink ["enter control name here"]
End Sub

And that's all it took. I knew it would be easy if I could just get my brain working. Thanks for the input.

[pbaldy]

Glad you got it working!

[ma t]

Hello- I am trying to use followhyperlink as well- I am trying to use it to open a link in a browser to a file in dropbox. I have a form with a control, the control is named LimkToDoc it's record source is a text field in a table. The file path in the table is similar to https://www.dropbox.com/s/7u88x58dbi...ral_FID69.docx. I am getting run time error 15, cannot open the specified file. Does anyone know if this is possible? Thank you very much in advance!

Private Sub cmdOpenFile_Click()
Application.FollowHyperlink Me.LinktoDoc
End Sub