Solved Form: Picture Viewer (see isladogs)

[vhung]

I found it interesting, a craft of Isladogs "IMAGE VIEWER"
but when i use it and add to my Accdb an errror occured
with this lines below, (but i'm still working to fixed the error, still hope I could do it)


Dim F As /"FileDialog"/
Set F = Application.FileDialog /"(msoFileDialogFilePicker)"/

As of now i already re-desidgn the features, and working to fix the error on upload images list.

 

[theDBguy]

What was the error message?

 

[isladogs]

Check you have all the references that are in my example app. It includes several non-standard references but not all are used in the main form. Check your version compiles.
If your code really has the double quotes and forward slashes then you've copied it incorrectly and it won't compile.
It should read

    Dim F As FileDialog
    Set F = Application.FileDialog(msoFileDialogFilePicker)

BTW it would help others help you if you had provided a link. Obviously I know my example app but others won't necessarily have looked at it.
My website has this at Folder Image Viewer - Mendip Data Systems. Its also in sample databases in this forum

 

[vhung]

What was the error message?

good day merry christmas

see attachments

 

[vhung]

Check you have all the references that are in my example app. It includes several non-standard references but not all are used in the main form. Check your version compiles.
If your code really has the double quotes and forward slashes then you've copied it incorrectly and it won't compile.
It should read

    Dim F As FileDialog
    Set F = Application.FileDialog(msoFileDialogFilePicker)

good day merry christmas
>is it possible to omit some parts of the codes that are having compile error?

 

[isladogs]

You have got that error because you have more than one function with the same name
When you imported my code you've somehow managed to import more than one instance of the ShowControls function.
Assuming you haven't changed the module names you probably have a modControlState and another identical modControlState1.
If so, delete the latter.

 

[vhung]

ok sir, thanks
> could I also make change of this: Set F = Application.FileDialog /"(msoFileDialogFilePicker)"/: to
Dim F As Object
Set F = Application.FileDialog(3)

 

[isladogs]

You should already know the answer to that. I rarely use the number values myself but they exist to be used.

 

[vhung]

You should already know the answer to that. I rarely use the number values myself but they exist to be used.

yes sir, I have to fixed it well
>I hope could run it smoothly

 

[isladogs]

@vhung
The original runs smoothly so, if your version doesn't, it is due to changes you've made
Good luck

 

[vhung]

@vhung
The original runs smoothly so, if your version doesn't, it is due to changes you've made
Good luck

That is true sir,
you're right it is on loading additional modules to my whole project
I gently make traces where to pick that of same functions/control name
Still my goal is to run it smoothly inside on my project...

 

[vhung]

Seems I've got the right traces
Few changes has been applied

Could already view and update images
1 n 2 forms already works well and so w/ the image report

Advance Happy New Year...

see attachment;