Inputting data from user forms into a table

[Taha60]

Hello....

I am creating a form in access where the user will , by means of a "open" dialogue box, pick a folder and vb code will be used to read in file properties of the different files in the folder/subfolders.... I had 2 questions...

Firstly I wanted to be able to create a Hyperlink to those files since I do have a "hyperlink" field in my table. (these files may not necessarily be MS office files) How would I read in the path for the file and then using that how would I create a hyperlink.?

Secondly I wanted to add this hyperlink and more information that I will be collecting to an Access table... I am not sure how to do this... My first Hunch was to use a insert SQL statement such as....

dim dbs as database
set dbs = CurrentDb
dbs.execute(INSERT INTO tbl_MyTable('hyperlink', filesize...etc..)

Any suggestions will greately be appreicated

Thanks

Taha





Taha
thamiral@uwo.ca

 

[oharab]

Have a look at a file I have created that does something similar:

http://www.robotparade.co.uk/files/FindAndRunFiles.ZIP

it doesn't use hyperlinks, but makes a label look and act like one.

B ----------------------------------
Ben O'Hara
bo104@westyorkshire.pnn.police.uk
----------------------------------

 

[Taha60]

Thanks for the response ...

I tried going to the link you posted, however ... I get a 404 error "Page not found" If its not asking for so much ... could you email me the file to thamiral@uwo.ca ... i will check it every 5 mins ...

Additionally ... I wanted to ask ... How would I do this on ACCESS 2k since M$ removed the database object from ACCESS 2k....

Thanks once again Taha
thamiral@uwo.ca

 

[oharab]

replied to email, but reposting here for completeness

The database object isn't removed from Access 2k, just hidden! A2k uses ADO by default instead of DAO from A97. To use DAO in A2k you will need to open a module, choose tools-->references and select the DAO 3.6 reference. Now in the
database you need to make sure that and Database, Recordset, QueryDef, etc objects are defined as DAO objects so:

Dim rs as Recordset becomes Dim rs as DAO.Recordset
Dim db as Database becomes Dim db as DAO.Database

and so on.
I've not got round to using Access 2000 yet, but I can honestly say I'm not looking forward to it!

Ben ----------------------------------
Ben O'Hara
bo104@westyorkshire.pnn.police.uk
----------------------------------

 

[JPeters]

http://oharab.hypermart.net/Files/FindAndRunFiles.ZIP

this hyperlink works, not the other one.. -JPeters
These things take time...
Got a helpful tip for Access Users? Check out and contribute to 'How to Keep Your Databases from becoming Overwhelming!'
thread181-293590

 

[JPeters]

Ben,

Can we use that code to go into specific forms of a database? Right now we have a databaes that is sort of a central database that lets us open about 4 databases. We are using links to open up the databases to certain forms... But with this method, we recieve errors (just irritating popups). Could we edit your code to reach specific forms/tables/reports in our databases? If so, how?

-Josh -JPeters
These things take time...
Got a helpful tip for Access Users? Check out and contribute to 'How to Keep Your Databases from becoming Overwhelming!'
thread181-293590

 

[Taha60]

Thanks for the tips guys ... I really appreciate it ... Now all I have to do is try to understang the code... something that is going VERY slow... I wonder if any of you could write up a small comments doc. or something that will help me understang all that .... I am new to access and this is nothing like the databases in *nix systems...

Thanks once again Taha
thamiral@uwo.ca

 

[Taha60]

Continuing from the previous msg......

I especially needed help with the ME object and the Nz function ... I cant seem to see where these are commming from.... for instance

Private Sub Form_Current()
Me.lblName.Caption = Nz(Me!FileName, "&quot
End Sub

additionally ... i wanted to ask ... Why is there an OPEN/Save dialouge box in the module section when it can be easily refered to since its a common dialouge box?

Thanks

Taha
thamiral@uwo.ca

 

[oharab]

I use access 97. You can't just call the open dialog from there, you need to access the api to do it.
Not sure if that's changed in later versions.

nz converts nulls to whatever you specify.

Nz(Me!FileName, "&quot is the same as

iif(isnull(Me!FileName),"",Me!FileName)

B ----------------------------------
Ben O'Hara
bo104@westyorkshire.pnn.police.uk
----------------------------------

 

[Taha60]

Thanks Ben.... Really appreaciate the help ... Taha
thamiral@uwo.ca

 

[Taha60]

Hello again ..

The way I was gonna invoke the BROWSE common dialogue box was to open the form in design view and use INSERT---> ACTIVEX CONTROL ---> Microsoft common dialogue box. Then you can easily refer to in as a normal VB object. However access 97 / 2k tell me I need the developer's license. I so knew that would happen ... after all its M$. Anyway ... I will try to adopt Ben's code with his permission Of course.

Thanks
Taha
thamiral@uwo.ca

 

[oharab]

Adapt away my friend.

B ----------------------------------
Ben O'Hara
bo104@westyorkshire.pnn.police.uk
----------------------------------

 

[Taha60]

Thanks a lot Ben.....

Your Help is greatly Appreciate this...

Thanks Taha
thamiral@uwo.ca