Browse to image

[Jim]

Hi All,
So I have a field in my DB for the image, is it possible to click a button,
navigate to my image folders and select the required image and store the
link in the db? If so how please.
Thanks
JIM
PS access 2003
--
Jim

Expression web help - http://www.expression-web-designer-help.com
Expression web forums -
http://www.expression-web-designer-help.com/forum/default.asp

 

[Douglas J. Steele]

The code in http://www.mvps.org/access/api/api0001.htm at "The Access Web"
is the best way of doing it.

 

[Jim]

Thank you Douglas.
Now all I need to know is what to do with it! Access is not my native
playground. Any pointers you or anyone else can give please?
Thanks
JIM

--
Jim

Expression web help - http://www.expression-web-designer-help.com
Expression web forums -
http://www.expression-web-designer-help.com/forum/default.asp

 

[Douglas J. Steele]

Create a new module (not a class module, nor a module associated with a form
or report). Copy everything from that page between Code Start and Code End
and paste it into the module you just created. Save the module, making sure
you don't name it the same as any of the routines inside the module (call it
something like mdlFileDialog)

Where you want to call the dialog, use code like:

Dim strFilter As String
Dim strInputFileName as string

strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg)",
"*.jpg;*.jpeg")
strFilter = ahtAddFilterItem(strFilter, "PNG Files (*.png)", "*.png")
' Etc. for whatever extensions you want to allow
strFilter = ahtAddFilterItem(strFile, "Any file", "*.*")

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an image...", _
Flags:=ahtOFN_HIDEREADONLY)

strInputFileName will be the full path to the file the user selected: use it
however you need it.

 

[Jim]

Thank you, I hope you have the patience to stick with this one.
I have created the module but what or where would I use the code you give.
Sorry to be a pain.
JIM

--
Jim

Expression web help - http://www.expression-web-designer-help.com
Expression web forums -
http://www.expression-web-designer-help.com/forum/default.asp

 

[Jim]

I think we may be at cross purposes here. I suspect your code is for web
page forms? I actually want to have this work in an access db form inside of
access.
Hope you can help?


--
Jim

Expression web help - http://www.expression-web-designer-help.com
Expression web forums -
http://www.expression-web-designer-help.com/forum/default.asp

 

[Douglas J. Steele]

That code is not intended for web pages. In fact, I don't believe it'll work
for web pages.

Somehow you have to provide a mechanism to the user to indicate that they
wish to select an image to be associated with a particular record. How you
do that is up to you. You can have them double-click on the record, you can
have them click on a button, you can prompt them when you move from record
to record, or any other option you can think of. Once you've decided what to
use to prompt them, you'd put the code

Dim strFilter As String
Dim strInputFileName as string

strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg)",
"*.jpg;*.jpeg")
strFilter = ahtAddFilterItem(strFilter, "PNG Files (*.png)", "*.png")
' Etc. for whatever extensions you want to allow
strFilter = ahtAddFilterItem(strFile, "Any file", "*.*")

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an image...", _
Flags:=ahtOFN_HIDEREADONLY)

in the procedure associated with that event.