Attach Hyperlink

  • Thread starter mattc66 via AccessMonster.com
  • Start date
M

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
 
M

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Folder access (Access 2003) 1
Browse function 2
Attach File 4
FileCopy Bad File Name or number 3
error message 2465 5
Open Form Code 2
TransferSpreadsheet user to select directory 0
Uploading a Picture 1

Top