Application.FollowHyperlink doesnt work (1 Viewer)

[widemonk]

Can anyone please help with the following.

If the file its trying to refer to does not exist, sure enough I get a 'Cannot find file' message box.
If the file does exists, the program begins to load Adobe but half a second later, closes again.

Its OK with XP running Office 2007 and Adobe Reader but fails with (dare I say it) Vista, Access2000 and Adobe Professional.

Private Sub lblShowQuote_Click()

Dim QuoteNo As String

QuoteNo = "G:\Quotes\" & txtQuoteID & ".pdf"

On Error GoTo Err_CannotOpenEnquiry

Application.FollowHyperlink QuoteNo

Exit_Err_CannotOpenEnquiry:
    Exit Sub

Err_CannotOpenEnquiry:
    MsgBox Err.Description
    Resume Exit_Err_CannotOpenEnquiry

End Sub

Im trying to avoid Shell to an absolute Adobe file name in case anyone has a different version and therefore different path/filename for the Adobe application. I just want it to open in the default application that would normally open a .pdf

... anyone ???

Thanks

 

[jdraw]

It may be that FollowHyperlink was added to Access in 2003 version.

 

[pbaldy]

It may be that FollowHyperlink was added to Access in 2003 version.

It is definitely in the 2000 version (mine anyway).

Monk, I can't say why the problem is occurring but an option is to use this to find the path for Shell:

http://www.mvps.org/access/api/api0023.htm

 

[jdraw]

Where and how is txtQuoteId defined?

 

[widemonk]

txtQuoteID is the form Text Box thats bound to the autonumber field that generates the quote number itself.

 

[DCrake]

Place the following into a standard module

Public Declare Function ShellExecute Lib "shell32.dll" _
   Alias "ShellExecuteA" _
   (ByVal hWnd As Long, ByVal lpszOp As String, _
    ByVal lpszFile As String, ByVal lpszParams As String, _
    ByVal LpszDir As String, ByVal FsShowCmd As Long) _
    As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1

Then in your form place the following code on the double click event of the control

    nDT = GetDesktopWindow()
    nApp = ShellExecute(nDT, "Open", StrDefaultPathAndFileName, "", "C:\", SW_SHOWNORMAL)

Where StrDefaultPathAndFileName is the full path and file name that you want to open.

This works for any type of file and opens the nominated file in its native software.