Search box

[Folk]

I was searching for a way to load images into a form and I found the instructions in this address:

"

http://support.microsoft.com/support/kb/articles/q148/4/63.asp"

The problem is that the user must type the full path for each image added. I would like to do something like this:
The user would click on a button and a search box would appear (like the Explorer screen). Then he would click "OK" and the full path would appear into that field.

Thanks

Paulo

 

[DougP]

Is this Access or ASP ????
DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[andrewvanbeck]

Hi Folk,

You asking a lot from Access aren't you!!!, I have a little function that searches for the files in a specified directory, if this is any good to you see below, otherwise good luck

Make a new blank form.
Make a listbox or a combo-list box and call it 'result'.
Make a text box and call it 'search'.

Now on the properties for the 'search' text box, under 'After Update', paste the following code:


'Start of code
Private Sub search_AfterUpdate()
Path="C:\My Documents\" ' Change this to your directory to search

If IsNull(path) Then path = "\" ' Default to current path if none specified

fsearch = Dir(path & [search])
Filesearch = fsearch

Do While fsearch <> &quot;&quot;
fsearch = Dir
Filesearch = Filesearch & &quot;; &quot; & fsearch
Loop

[result].RowSource = Filesearch
DoCmd.Requery &quot;result&quot;

End Sub
'End of Code


Now you have the code to do a filesearch and put the results in a combo box. so you can select them at your leisure.

Hope some of this helps.

Andrew.

 

[DougP]

Sorry I got &quot;Mouse happy&quot; and hit the submit before I finished.
Forget what I asked.

you need to trim off what you don't want.

One way would be to create a List box and have the full path in one column and the file name in the first column.
make the second columns width 0 and it won't show.
They pick what they want
then in the Afterupdate event of the comobo box you grab the full path from second column and put it where you want.

yourpicture = combobox1.column(1) ' second column

here is a simple function to do that

For a = 1 To Len(filename)
x = InStr(a, filename, &quot;\&quot
If x = o Then Exit For
a = x
Debug.Print x
Next
JustPath = Left(filename, a - 1)
JustFile = Right(filename, Len(filename) - Len(JustPath))

DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[andrewvanbeck]

Oops, sorry man, just noticed this code does'nt Dim the variables, Just add:

Dim Fsearch as string, Filesearch as string, Path as string

To the top of the procedure.


Andrew.

 

[Folk]

Hi Andrew! Hi Doug!

Andrew: I've tried what you told me but, I don't know why, it didn't work... and didn't show me any error message. Do you have any idea of what's happening?

Doug: I've made one blank form and created the list box with two columns. Then I put the function you've written in the AfterUpdate event of the combo box. Finally, I don't know where to put this line:
yourpicture = combobox1.column(1) ' second column

Excuse me, but I'm still a beginner in VB.

Thank you!

Paulo

 

[andrewvanbeck]

If you email me Folk, I'll send you my form example.

andrew.vanbeck@semefab.co.uk


Andrew.

 

[tlbroadbent]

Check the following links at MVPS.ORG.

http://www.mvps.org/access/api/api0001.htm

http://www.mvps.org/access/api/api0002.htm

Terry Broadbent
Please review faq183-874.

&quot;The greatest obstacle to discovery is not ignorance -- it is the illusion of knowledge.&quot; - Daniel J Boorstin

 

[Folk]

Hi tlbroadbent!

The searchbox worked well. Also, do you know how to make all the path I've choose in the searchbox appear into a field?

Thank you!

[]

Paulo