Application.FollowHyperlink

[John Big Booty]

My understanding is that Application.FollowHyperlink "should" open the hyperlink in the default browser. However on my desktop PC it opens the link in IE rather than Firefox which is the default on that machine. I'm sure there must be a setting that is forcing the link to open in IE, but I just can't find it. Any ideas?

 

[vbaInet]

You would imagine that IE being an MS product is what FollowHyperlink would use. It uses the Office default browser which is obviously IE. Sad huh!

 

[John Big Booty]

I've got the same DB on my Lap Top and the Hyperlink opens in Firefox

Outlook on the Desk Top opens all hyperlinks in Firefox, it's just something in Access on the desk top I suspect, I just can't figure out what.

 

[ChrisO]

It can do that with images as well.
Try using the Shell command to force the application to use when opening it.

Chris.

 

[John Big Booty]

Thanks Chris I'll have a look at that.

 

[Jecs Duminy]

Easier to make the link a popup link calling a popup file with the video. You can control the size of the page to fit just the video. On the popup page, you can add a "Close This Window" button.

 

[DCrake]

Place the code snippet below into the declarations section of your form

Private 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
Private Declare Function GetDesktopWindow Lib "User32" () As Long

Const SW_SHOWNORMAL = 1

Now lets say you have a listbox with file names in them or a textbox with a filename in it. This file can be any type of file, doc, txt, pdf, etc


Then you can use the on click or double click event of the control to open the named file in it's native sofware. You do not need to worry about that element.

In the example below it uses a list box to get the path from column 1 and the file name from column 2.

Dim sPath As String
    sPath = Me.LstFoundFiles.Column(1)
    strFile = sPath & Me.LstFoundFiles.Column(0)
    nDT = GetDesktopWindow()
    nApp = ShellExecute(nDT, "Open", strFile, "", "C:\", SW_SHOWNORMAL)
    DoEvents

 

[ChrisO]

On my machine using XP and with both files associated with Paint.

By double clicking the files from Windows Explorer it uses Paint (the associated application)

With C:\445525_22_A.bmp and C:\Sunset.jpg, ShellExecute used Windows Picture and Fax Viewer to open the images.

With FollowHyperlink, C:\445525_22_A.bmp was opened with Paint.
With FollowHyperlink, C:\Sunset.jpg was opened with Internet Explorer.

From memory, Windows2000 worked correctly…

 

[John Big Booty]

Thanks for your assistance Dave, the web link now opens in Firefox

 

[DCrake]

Is that what you wanted?

 

[John Big Booty]

Is that what you wanted?

Exactly

 

[DCrake]

Gald to see you have resolved your problem