Hi all,
I am looking for VBA code of Open File dialogue box. I need to use it in ACCESS. I have done the same in VB.Net using 'OpenFileDialog'. i.e I am looking for OpenFileDialog equalent of VB.net in ACCESS.
Basically my purspose is to let user select a file using open file dialogue box. After succesful selection, the path of the selected file would be utilized later on.
I'll be very thankful to you people for any kind of help in this regards.
Cheers,
Suomi

check out: Call the standard Windows File Open/Save dialog box

I think I say your same question at http://www.utteraccess.com

Boyd
"Hi Tech Coach"
Access Based Accounting/Business Solutions developer.
http://www.officeprogramming.com

Is there no shorter method ?

You need first to Open a reference to the Microsft Office 10.0 (or later) library and this allows you to use

Application.FileDialog(msoFolderPicker) or ...(msoFilePicker)

If you follow the example in the Help topic associated with it, you can then set a Folder or File to be a variable in your code. One thing to be careful of as it is not mentioned in the Help topic is that when you open the FileDialog object you must set the variable the holds the valus of the File/Folder selected to be a Variant otherwise the system will do nothing, not even report an error.

Good Luck

I knew I had some code lying around. Try this

Dim fd As FileDialog
Dim objfl As Variant
Dim filnam As String

... other code .....

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .ButtonName = "Select"
    .AllowMultiSelect = False
    .Filters.Add "Text Files", "*.txt;*.csv;*.tab;*.asc", 1
    .title = "Choose Transactions file to import"
    .InitialView = msoFileDialogViewDetails
    .Show
    For Each objfl In .SelectedItems
        filnam = objfl
    Next objfl
    On Error GoTo 0
End With

Set fd = Nothing

''' filnam then used in following code . Note that although .AllowMultiSelect is set to False, you still need to run through the For each loop.

Hope this helps

Guys i am getting this error in VB.net "Type OpenFileDialog is not defined" which class should i import?

Hi patrique,

The OpenFileDialog component lives in the System.Windows.Forms namespace which lives in the System.Windows.Forms.dll.

So add a reference to System.Windows.Forms.dll, then use the followiing Imports statement:

Imports System.Windows.Forms

HTH,

Bob

Or just add a reference to System.Windows.Forms.dll and declare your component variable as:

Dim openFileDialog As New System.Windows.Forms.OpenFileDialog

without using the Imports statment.

Bob

Found the answers at:

http://msdn.microsoft.com/library/de...HV03083230.asp

The following URL documents the FileDialog object for Office 2007 -http://msdn2.microsoft.com/en-us/library/aa432348.aspx