Open Dialog Box

[unclefink]

Please forgive me for the new thread as I know this subject matter has been touched on. I have built a db for employees and want to add pictures to their profile by way of file path reference. I would like to create a form with a button on it that will allow a user to click on and search for the file path of a specific picture. Once a specific file path has been selected/completed, this file path places itself into a text type data file within the employee table.

In the end, all of the pictures will be in the same folder, basically I would like to add this capability to make it easy to add a file path into a table rather than having to type the file path manually for a front end user.

Can anyone please help?

Hopefully this is a simple setting on the form; however if thats not the case, please let me know what kind of coding i need to put where?

David

 

[Severin]

Hi, I made this once and it's with Danish captions but it's quite simple, so have a look. It does what your asking for:

http://www.parodux.com/wp-content/uploads/2011/02/Billeder.mdb

 

[unclefink]

Good news and bad news. Good news is thank goodness for Google Translate, the bad news is i'm very new to any of this and have no clue what to do with what or what lines of code to change to corelate with my database.

Is this something you might be able to help me with.

 

[Severin]

Hi, I'm extremely busy.. but if you send your db to (..got it..) then I will give it a quick update, with the code from the previous link!~)

...then you can have a look at it again and it might make some sort of sense...

 

[Severin]

Have a look at this example based on your db:

http://dl.dropbox.com/u/7719196/Imagetest.mdb

 

[agalti068]

then you can have a look at it again and it might make some sort of sense

 

[unclefink]

I just downloaded the sample to my desktop and clicked on the button and unfortunately its not doing anything. This may be my fault as i have yet to indicate what version of access i am using, which is access 2007.

In looking around and searching for an answer, i keep coming across reference to Microsoft Access Library 11.0 reference. When i open the code reference window, i find that i dont have this library in the list.

Can anyone tell me if i need this list, if so where i can get it?

Agalti068, i'm afraid I dont understand your post.

Thanks for any help.

 

[Severin]

I just downloaded it to a machine with Access 2007 and it worked... my reference shows Microsoft Access Library 12.0 reference.

agalti068> I now my English is a bit funny!~)

 

[andersfr]

A question for Severin:
I used and modified your GetPath and brought the path into a textrow.(Text61)
Do you have a solution for, if I want to insert that path into a macro- instruction (TransferText) on line Filename?

I use the macro today to import a textfile with a hardcoded path and filename. Now I want to browse to the file and bring (full path and filename) into the makro for import.

Any thoughts?

Very greatful if there is...

 

[Severin]

Is it possible that you can upload a copy so I can have a look when I get a moment!~)

 

[andersfr]

I will try to extract enough parts. It's in a big complex database.

/Anders

 

[Severin]

Det er bare ok!~)

 

[andersfr]

Hehe - nice..
Here I have a database with the most essential parts to understand what I want to do.

See if you can help out. If soo, santa will come..

 

[andersfr]

Sorry if there is to much Swedish in there...

 

[Severin]

It's a problem testing without doing a bit of development and I'm strapped for time, so I'll rewrite your solution instead...

Create a module and enter the following:

Public Function BravisImport()
DoCmd.TransferText acImportDelim, "Bravis Importspecifikation", "Bravis import", Forms("Importfunctions for Bravis")!Text61, False
End Function

Then take out your ImportExportText part of the macro and put in a RunCode action with the function name: BravisImport()

 

[andersfr]

THANKYOU!

It worked, I did put in the new function and by all means it worked.
This is going to save me aprox, 2-3 days of work every year.

Thankyou once more.