Command button to open pictures with MS Picture Manager

[NISMOJim]

Hello to whoever can help me out,
I have a command button on my form to open pictures from a file, which works great when using the MS Picture Manager program. Some of the computers here use other programs as their default for opening pictures which don't work as well as MSPM. Is there something I can write in my code that makes the pictures open with this program rather than whatever the users desktop is set for? I've gotten far with everyone's help on the forum, but am still a beginner with writing code.
Thanks for any assistance!

[pbaldy]

I assume you're currently using FollowHyperlink. You can try Shell which lets you specify the program.

[NISMOJim]

That is correct. Here is a shortened version of what I am using to get to the pictures;

Application.FollowHyperlink "T:\Operations\Folders\" & Me.[NRptNo] & "\01.JPG"

Now I just need to force it to open with MS Picture Manager. I've never heard of the "Shell" that you mentioned, and have no idea how to use it. Please explain when you can get back to me.
Thanks

[pbaldy]

I'm about to leave, but check it out in VBA help and let me know if you get stuck.

[NISMOJim]

I've played with it some, but it still isn't cooperating. I changed the default picture program on my computer to something else to try it out. Now when I click the command button, MS Picture Manager opens showing thumbnails of the last pictures that were looked at, and then the "01.JPG" that I want to see opens over the top of it in my default program. Here is the code;

Private Sub ComPic_Click()
On Error GoTo ProcError
Call Shell("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE", vbHide)
Application.FollowHyperlink "T:\Operations\Folders\" & Me.[NRptNo] & "\01.JPG"
ExitProc:
Exit Sub
ProcError:
Select Case Err.Number
Case 490
MsgBox "No Pictures Available"
Case Else
MsgBox Err.Number & ": " & Err.Description, vbCritical, _
"Error in cmdOK_Click Event Procedure..."
End Select
Resume ExitProc
End Sub

Anyone have any ideas of where I should go from here?
Thanks again.

[pbaldy]

No, you use Shell instead of FollowHyperlink, not in addition to. You have the path to the executable first, then the path to the file to be run. Try

Call Shell("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE T:\Operations\Folders\" & Me.[NRptNo] & "\01.JPG")

[NISMOJim]

I just plugged it in like you have it (all on the same line)

Call Shell("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE T:\Operations\Folders\" & Me.[NRptNo] & "\01.JPG")

and I get no response at all from the command button. I tried changing my default back to MSPM & still get no response. Do you know of anything else I can try? I appreciate your patience, as I know I wouldn't be able to figure this out on my own.
Thanks for not losing interest.

[pbaldy]

I tested this and it worked as expected:

Call Shell("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE X:\FolderName\images\EscaladeInterior.jpg", vbMaximizedFocus)

Will your image path contain spaces or symbols?

[NISMOJim]

There are spaces and commas in the T: drive path. I also added the vbMaximizedFocus part at the end, still no results.
It seems strange that the "Call Shell" part with just the path to MSPM worked fine, and the original path I had just to the T: drive folder worked ok, but together I get no response. Here is the exact code with nothing deleted to save space;

Private Sub ComPic_Click()
On Error GoTo ProcError
Call Shell("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE T:\PG Operations\Accident, Incident, Injury Reporting\Accident Folders\" & Me.[NRptNo] & "\01.JPG", vbMaximizedFocus)
ExitProc:
Exit Sub
ProcError:
Select Case Err.Number
Case 490
MsgBox "No Pictures Available"
Case Else
MsgBox Err.Number & ": " & Err.Description, vbCritical, _
"Error in cmdOK_Click Event Procedure..."
End Select
Resume ExitProc
End Sub

Do you see anything wrong with how this is written that I left out before?

Thanks again.

[pbaldy]

No, it's the spaces and symbols. Try this:

Call Shell("C:\Program Files\Microsoft Office\OFFICE11\OIS.EXE " & Chr(34) & "T:\PG Operations\Accident, Incident, Injury Reporting\Accident Folders\" & Me.[NRptNo] & "\01.JPG" & Chr(34), vbMaximizedFocus)

If my copy/paste and substituting your path didn't go horribly wrong, that should work.

[NISMOJim]

Fantastic! That did the trick. Sorry I put you through so much for something you would have seen right away if I hadn't tried to shorten the post, & thanks so much for sticking with me. I've been looking for a good forum since the MS Access Forum went away, and I think I found it.
Thanks again!

[pbaldy]

Ah good, glad we got it sorted out. Happy to help!