a compile error

[moony via AccessMonster.com]

Hi everbody,

I'm using Access 2000. Want to Open a file through a dialog and I am using the example below.
The problem is that the first line (Dim Fd As FileDialog) produces a Compile-error : "User-defined type not defined" even if I enabled "Microsoft Office 9.0 Object Library" and "Microsoft DAO 3.6 Object Library".

Code :

Dim Fd As FileDialog
Set Fd = Application.FileDialog(msoFileDialogOpen)
With Fd
..AllowMultiSelect = False
If .Show = -1 Then
path = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set Fd = Nothing

Can I download "Microsoft Office 10.0 Object Library" and install it with access 2000?

Thanks in advance.

Moony

 

[Alex Dybenko]

In access 2000 you have to use API call instead. Look at www.mvps.org/access
for first article under API

 

[moony via AccessMonster.com]

Tahnks a lot for your reply.
I'll give it a try and post the result here.
Tahnks again.

 

[moony via AccessMonster.com]

Me again

I tried getting the code, but as I'm a newbie and since there is no comments with the code (where to put each part of code : form, module ...) it was difficult.
Any explanation??

Thanks again.

 

[Alex Dybenko]

Just add anew module to your MDB, copy code from page:
http://www.mvps.org/access/api/api0001.htm

beginnig with ***************** Code Start **************

and paste into module

your code the will look like:

path = GetOpenFile()

 

[moony via AccessMonster.com]

OK got it,it's working now, but actually I need to display in the dialog box just network drives. I feel that it's impossible!! Right??

Moony

 

[Alex Dybenko]

i think you right...
well, you can check what drive was selected AFTER dialog get closed, and
then ask user to reselect