scrolling through hyperlinked images

[markjkubicki]

i have a form with an image displayed
on dblclick, the image opens in the users' photo app (typically MS Photos, or whichever is MS$ft's current default...)

i am told that once opened, you used to be able to scroll through other images in that folder (I had not realized this; and indeed, it would be very useful);
but now you cannot

I can scroll if I open the same image file (*.jpg) in the folder directly

But if through access I open that same *.jpg, in that same folder, with the same software… I cannot


(the link to the image is stored as a hyperlink in its table; the image is always a *.jpg.)

_________________________________________
any thoughts will be greatly appreciated in advance,
mark

[Gicu]

Please show us the code you use to open the image, just application.followhyperlink or something else. You should try to set the field as Short Text and store the (full) path to the file instead of setting it as hyperlink.

As an alternative you can use Shell to open the image in its native app and see what you get.
https://docs.microsoft.com/en-us/off...shell-function

Cheers,

[markjkubicki]

Private Sub imgCutSheet_DblClick(Cancel As Integer)
    Dim vCutSheetLink As String
    If Len(Me.txtCatalogSheetLink.Value) > 0 Then
        vCutSheetLink = Me.txtCatalogSheetLink.Value
        If InStr(vCutSheetLink, "#") > 0 Then
            strLink = Split(vCutSheetLink, "#")(1)
        Else
            strLink = vCutSheetLink
        End If
        Application.FollowHyperlink strLink
    End If
End Sub

a typical file link would be:
G:\JOBS\NYU Coles (2016-6032)\Specifications, Schedules and Cuts\Schedules and Cuts\Cuts\TB_EPL_0_017_THREE_XTM_WL_6-29-16 Page 001.jpg

the default app (typical) seems to be MS Photos (it could vary between users)

[Gicu]

So replace FollowHyperlink with Shell() to see if you get the desired result:

Private Sub imgCutSheet_DblClick(Cancel As Integer)
    Dim vCutSheetLink As String, RetVal
    If Len(Me.txtCatalogSheetLink.Value) > 0 Then
        vCutSheetLink = Me.txtCatalogSheetLink.Value
        If InStr(vCutSheetLink, "#") > 0 Then
            strLink = Split(vCutSheetLink, "#")(1)
        Else
            strLink = vCutSheetLink
        End If
        'Application.FollowHyperlink strLink
	   RetVal = Shell(strLink, 1) 
    End If
End Sub

Cheers,

[markjkubicki]

at
RetVal = Shell(strlink,1)

i get error 5:
"invalid procedure call or argument"

with strLink =
G:\JOBS\NYU Coles (2016-6032)\Specifications, Schedules and Cuts\Schedules and Cuts\Cuts\TB_EPL_0_017_THREE_XTM_WL_6-29-16 Page 001.jpg
(as a string)

[Gicu]

Because you have spaces in your path you should wrap it in double-quotes:

RetVal = Shell(chr(34) & strlink & chr(34),1)

Cheers,

[isladogs]

you used to be able to scroll through other images in that folder (I had not realized this; and indeed, it would be very useful)

In case it helps, have a look at my Folder Image Viewer app

[markjkubicki]

(thnx, makes complete sense, but... still getting the same error)

[moke123]

try this one http://access.mvps.org/access/api/api0018.htm

[markjkubicki]

thnx
tried it (minor update to 64bit)
and it worked just fine, but still with the same issue: cannot scroll through the images when opened in this manner (can do so when the same file, in the same directory, is opened directly in the same software)

...i'd say this is a head scratch-er !