Runtime error 490 and followhyperlink

mock5c
mock5c used Ask the Experts™
on
I have a form that has a function GetDirectoryFiles() and populates a listbox.  In the listbox, I see each of the files in the directory.  It's supposed to work where I can double click on a filename and it will open the file using its associated program.

Here's the problem.  When I double click on any of the jpg files that show up in the listbox, I get a runtime error 490.  It's failing at a line of code with followhyperlink.  To make things interesting, it does NOT fail with I double click on .doc files.  Anything come to mind why that would be?  The jpg files are associated with an image viewing program.  I actually changed that to use IE but it still fails.



Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Commented:
I've had a few MSisms (problems I couldn't explain) in the past with FollowHyperlink. Have you tried using the ShellExecute API?

API: Start an app with ShellExecute

(Q)    How do I start the application which is registered to handle a file extension in Win Registry?

(A)    You'll have to use the ShellExecute API.  Pass the filename to fHandleFile function.  If the file extension is "known", or registered,   it should automatically call the parent application.  If the extension is unknown, it should bring up the Windows standard "Open With" dialog box.
http://mvps.org/access/api/api0018.htm

Author

Commented:
Is there a limit to the length of FollowHyperlink?  As I explained, the jpg files would not open but the doc file would.  The doc file is called 1.doc.  The jpg files are 15-20 characters long.  The path where these files are located is  about 40 characters long.

Author

Commented:
I tried to reproduce the problem on another computer but it works fine.  The problem computer has Access 2002.  The new computer has 2003.  

Commented:
Have you tried the workaround I presented?

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial