MSOffice error message (1 Viewer)

[John Sh]

I am using this code to display images,

Public Sub showPic(str As String)
    DoCmd.SetWarnings False
        Application.FollowHyperlink str
    DoCmd.SetWarnings True
End Sub

If the image is a JPG it displays in the default viewer without an error message
If the image is a raw, .nef, image I get the error message below.

Is there a way to stop this message?

 

[tvanstiphout]

I don't know what .nef files are, but did you try making this folder a Trusted Location?

 

[John Sh]

I don't know what .nef files are, but did you try making this folder a Trusted Location?

Hi Tom. .nef files are raw photos from a Nikon camera, like CR2 from a canon. These are the unprocessed files some cameras produce and have much more detail than a .JPG.
No, I didn't try trusted location but will do.
Thank you for the suggestion.

 

[arnelgp]

how about using:

Public Sub showPic(str As String)
    CreateObject("WScript.Shell").Run str
End Sub

 

[John Sh]

how about using:

Public Sub showPic(str As String)
    CreateObject("WScript.Shell").Run str
End Sub

Do I need a reference for that, it crashed as is.
Just checked, I've already got windows script host object module
Setting the folder as trusted didn't work either.

 

[arnelgp]

Do I need a reference for that, it crashed as is.

you don't need any reference. The thing is you need to Associate the .nef file first with your Windows Photo (or whatever the default photo viewer) by opening first .nef file from windows (outside ms access). After you have associated the file, you can run your Public Sub.

 

[arnelgp]

there is another alternative though:

Public Sub showPic(str As String)
    CreateObject("Shell.Application").Namespace(0).ParseName(str).InvokeVerb "Open"
End Sub

 

[John Sh]

That works. The first one crashed with "Method "run" failed.
Once again my thanks for your valuable input
John