Problem with Common File Dialog

[jfp]

In response to a button click on a form, i wish to bring up the standard
"File SaveAs" dialog. In the Click event, i have this code:

'Declare a variable as a FileDialog object.
Dim fd As FileDialog

'Create a FileDialog object as a File SaveAs dialog box.
Set fd = Application.FileDialog(msoFileDialogSaveAs)

When i try to run it, i get this error on the line above:

Run Time Error -2147467263 (80004001)

The expression you entered refers to an object that is closed or
doesn't exist.

The code is copied from the on-line Microsoft Access VB Reference.
I also tried changing the line in question to:
Set fd = Me.Application.FileDialog(msoFileDialogSaveAs)
but that had no effect.
I have a reference to the "Microsoft Office 10.0 Object Library"
I am running Access XP (2002) under Windows 2000.

What's wrong ?

 

[Larry Linson]

The code donated by Ken Getz, that you can download from
http://www.mvps.org/access/api/api0001.htm worked nicely for me on the first
try, and every time since, and even comes with an example of how to use it.

Larry Linson
Microsoft Access MVP

 

[jfp]

YES -- that is supposed to work (i have not tried) -- but what i am
trying to do would be much easier and SHOULD be possible with Access
2002. IF necessary, i will go back to the approach suggested here --
but i would still like to know what is wrong with what i copied from the
help files.

Perhaps the problem is related to this:
I have Win 2000
It came with Office 2000
I hten added Access 2002 -- but not the rest of Office 2000.
However - the reference to the Office 10.0 Object library is working.

Any ideas ??
-=-=-=-=

 

[Douglas J. Steele]

I don't believe that the FileSave dialog actually works in the control. Yet
another reason why so many of us recommend the API calls instead of using
the control.

 

[Ken Snell]

I don't believe you are to set a FileDialog object. You just need to call
the function and then use the results.

From an earlier post by Joe Fallon (MVP):

This code is a new feature in Access 2002.
It allows you to browse for a file and then store the selected file in 2
text boxes:
Me![txtLocalDir] , Me![txtLocalFileName]

'1 = DialogOpen, 2= SaveAs, 3=FilePicker, 4 = FolderPicker
'Cannot be used in Access 2000!
With Application.FileDialog(3)
.AllowMultiSelect = False
If .Show = True Then
Me![lblEdit].Visible = True
Me![txtLocalDir] = Left$(.SelectedItems(1),
InStrRev(.SelectedItems(1), "\"))
Me![txtLocalFileName] = Right$(.SelectedItems(1),
Len(.SelectedItems(1)) - InStrRev(.SelectedItems(1), "\"))
Me![txtLocalFileName].SetFocus
End If
End With

 

[jfp]

Nope -- that fails also.

Clearly, this stuff works -- sometimes.
I get the impression that it is a not very well tested or integrated
feature. Since i will be installing this app on a variety of systems,
it does not sound as though the use of FileDialog would be very
reliable. So -- i guess i write my own based on the API calls. I can
certainly do this (having programmed in C for years with the API) -- i
was assuming (silly me) that the FileDialog stuff would be easier.

BUT -- i would still like to know what might be wrong.
Any more ideas ?

Thanks !
-=-=-=

 

[Ken Snell]

In your references list, is Office 10.0 library a higher priority than
Office 9.0 in the list? If not, move it above the other; it may be that
ACCESS doesn't go to the Office 10.0 library if it finds 9.0 first.

--
Ken Snell
<MS ACCESS MVP>

Nope -- that fails also.

Clearly, this stuff works -- sometimes.
I get the impression that it is a not very well tested or integrated
feature. Since i will be installing this app on a variety of systems,
it does not sound as though the use of FileDialog would be very
reliable. So -- i guess i write my own based on the API calls. I can
certainly do this (having programmed in C for years with the API) -- i
was assuming (silly me) that the FileDialog stuff would be easier.

BUT -- i would still like to know what might be wrong.
Any more ideas ?

Thanks !
-=-=-=

I don't believe you are to set a FileDialog object. You just need to call
the function and then use the results.

From an earlier post by Joe Fallon (MVP):

This code is a new feature in Access 2002.
It allows you to browse for a file and then store the selected file in 2
text boxes:
Me![txtLocalDir] , Me![txtLocalFileName]

'1 = DialogOpen, 2= SaveAs, 3=FilePicker, 4 = FolderPicker
'Cannot be used in Access 2000!
With Application.FileDialog(3)
.AllowMultiSelect = False
If .Show = True Then
Me![lblEdit].Visible = True
Me![txtLocalDir] = Left$(.SelectedItems(1),
InStrRev(.SelectedItems(1), "\"))
Me![txtLocalFileName] = Right$(.SelectedItems(1),
Len(.SelectedItems(1)) - InStrRev(.SelectedItems(1), "\"))
Me![txtLocalFileName].SetFocus
End If
End With

 

[jfp]

There was NO reference to any previous Office ## when i added ref to
Ofice 10.0 Just to be sure, i moved it as high as possible -- 3rd on
list, underneath only VBA and Access 10.0
There was NO change.

Do you have any comments on Doug Steele's observation ?
-=-=

 

[Ken Snell]

No. Sorry.

--
Ken Snell
<MS ACCESS MVP>

There was NO reference to any previous Office ## when i added ref to
Ofice 10.0 Just to be sure, i moved it as high as possible -- 3rd on
list, underneath only VBA and Access 10.0
There was NO change.

Do you have any comments on Doug Steele's observation ?
-=-=

 

[shijobaby]

Pls try this blog


http://accessaidprogramming.blogspot.com/2009/12/expression-you-entered-refers-to-object.html