Attach Hyperlink

[mattc66 via AccessMonster.com]

Hi All,

I want to double click a cell and then browse to attach hyperlink.

Below is my double click event. It opens the windows browse option and I can
go to the file. However I am stopped at that point. It doesn't allow me to
attach. The below code wants me to save. I cant find the option to attach.

Private Sub PDF_File_DblClick(Cancel As Integer)
Dim strFilter As String
Dim strInputFileName As String


strFilter = ahtAddFilterItem(strFilter, "PDF Files (*.PDF)", "*.PDF")
strSaveFileName = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)

End Sub

 

[mattc66 via AccessMonster.com]

I have added the following to the click event on a button and can now attach
the path to the PDF file. The me.PDF is a hyperlink control. When I double
click the path it doesn't open the PDF Reader. If I right click the Hyperlink
control and edit the Hyperlink browse to the same file it works.

Can anyone help me?

Thanks
Matt

Private Sub cmdAttachDwg_Click()
On Error GoTo Err_cmdAttachDwg_Click
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, "Drawing Format (*.PDF")
'MsgBox "You selected: " &
FileName = ahtCommonFileOpenSave(InitialDir:=pathname, _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Select PDF File")
'display picture
Me.PDF_File = FileName
'Me.ImgStock.Picture = FileName

Exit_cmdAttachDwg_Click:
Exit Sub

Err_cmdAttachDwg_Click:
MsgBox Err.Description
Resume Exit_cmdAttachDwg_Click

End Sub