Hyperlink won't open

[rccline]

I have a field defined as a hyperlink datatype in my table.
E.g.:

c:\1233.pdf

I can open the pdf document 1233.pdf in explorer, so the UNC is correct. But if I click on the hyperlink in the table, query or form, nothing happens.

Can someone advise what is wrong?

Thanks.

Robert

 

[rccline]

I just installed Access 2007. It must have something to do with the "trust center." I'd like to cut off all of the security features.

 

[scorpio1769]

Did you get it fixed?

 

[rccline]

No. It is not fixed. I am at a loss for a solution.

 

[scorpio1769]

Unfortunately I'm not using 07 so I can't troubleshoot. Have you tried bypassing the GUI and instead ued the follow hyperlink method in VB?

 

[rccline]

No. I just have the hyperlink showing in the text box.

Something like this?

On click event...
Public Function PDF()
Forms!InputForm!LblPDF.Hyperlink.Follow
End Funciton.

 

[rccline]

I have named the field txtImage. It appears in a textbox on my form with the correct path.

I have created a command button with the following code::

Private Sub CMD_OpenPDF0_Click()
   Forms!Form1.txtImage.Hyperlink.Follow
End Sub

Nothing happens.

Any suggestions?

Thanks.

Robert

 

[rccline]

If I try the following, I get an error The expression 'On Click' produced the error: "Procedure declaration does not match descrption of event or procedure having the same name."

Private Function CMD_OpenPDF0_Click()
Dim Address As String, Subaddress As String

   Address = HyperlinkPart(Forms!Form1.txtImage, acAddress)
   On Error Resume Next

FollowHyperlink Address

End Function

At least there was some response, even if it was wrong.

Any suggestions?

Thanks.

Robert

 

[PHV]

Drop this procedure and recreate it from the ellipsis (...) in the property sheet of the button.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[rccline]

Thanks PH. But, that's what I did.

I still get the message that there is an error evalutiaong the function.

Private Sub Command9_Click()
Dim Address As String, Subaddress As String

Address = HyperlinkPart(Forms!Form1.txtImage, acAddress)
On Error Resume Next
FollowHyperlink Address

End Sub