Add Browse Button to Form

[tortelvis]

I'd like to add a functional "browse" button so the end user could browse for a file to input. The full path would be returned to an input box on the form.

Anybody know where to start?

Thanks,

Tort

 

[rewdee]

There's a lot to explain but the code here is free so checkout the link:

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

 

[tortelvis]

Woa, lots to comprehend.

Were would this code go exactly?
In a Class Object maybe? or a Module?
The error I get is 'Cannot define a public user-defined type within an object module'

Where would it go?

Tort

 

[tortelvis]

OK....Got it to work. Now how do I pass the variable strInputFileName back to a box on my form?

Here is the call that grabs the file:
Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS&quot
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)

-Tort