Dialog boxes

[Crookshanks]

Hello and good afternoon,

To retrieve a file name of the users choice I would like to use the standard dialogboxes. I've tried i.e.:

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)

With dlgOpen
.AllowMultiSelect = True
.Show
End With

But I get the error that the type (filedialog) unknown is. I guess I have to add another library? What library?
I am using Access 2003? Does anybody know how the use the common Dialogboxes.

Note: the commonDlg did not work eigther for me.
Thanks in advance and any help appreciated.

Kind regards,

 

[jaydeebe]

I don't think you can do what you want that way. You seem to be using VB code not VBA. You can create custom dialogs by making popup forms instead.

there is a very useful tutorial for creating custom dialogs here -

http://www.fontstuff.com/access/acctut08.htm

 

[Crookshanks]

Thanks for your answer. I just found out that commonDlg only is available in the Developers Edtion of Office XP. I will try your suggested way. Thanks for your quick answer, BTW.

Cheers!

 

[RoyVidar]

The mso prefix on the constant, indicates the constant "belongs" to the Microsoft Office <version> Object Library (select in Tools | References in VBE)

Else just replace the constant with the number 1.

Ie -
[tt]Set dlgOpen = Application.FileDialog(1)[/tt]

Roy-Vidar

 

[Crookshanks]

Thanks Roy ...

ok, but the error message occurs at:
Dim dlgOpen As FileDialog
How should I declare the variable?

 

[RoyVidar]

If you don't reference, declare as object.

Roy-Vidar

 

[Crookshanks]

Thanks for your suggestion. OK, then I guess I should perform like...

dim dialog as object
Set dialog = Application.FileDialog(1)
dialog.show

And Yes, the openbox appears. But now, hoe can I retrieve the full filename? The filename property does not excist.

 

[Crookshanks]

OK, well it worked with the following code (after selecting the Microsoft Office 11.0 Library):

Sub test()

Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(1)
With dlgOpen
.AllowMultiSelect = False
.Show
End With
Debug.Print dlgOpen.SelectedItems(1)

End Sub

Thanks all for your help and suggestions, have a nice day

 

[jaydeebe]

Just found this M$ article -

http://support.microsoft.com/default.aspx?scid=kb;en-us;824272