Problem with save as dialog

[BuilderSpec]

Hi

I have got a reference to Microsoft Office 10.0 using Access 2002.

I am trying to use a "save as" dialog box.

Dim FileDlg As FileDialog

Set FileDlg = Application.FileDialog(msoFileDialogOpen)

FileDlg.Show

works fine...

Dim FileDlg As FileDialog

Set FileDlg = Application.FileDialog(msoFileDialogFilePicker)

FileDlg.Show

works fine

Dim FileDlg As FileDialog

Set FileDlg = Application.FileDialog(msoFileDialogFolderPicker)

FileDlg.Show

works fine..

BUT if i try ...

Dim FileDlg As FileDialog

Set FileDlg = Application.FileDialog(msoFileDialogSaveAs)

FileDlg.Show

Then I get error '445' - Object doesn't support this action with the Set statement highlighted.

has anyone else had this problem ? is the syntax or calling convention different for a SaveAs ?

any help appreciated...



Hope this helps!

Regards

BuilderSpec

 

[PHV]

Works for me (ac2003):
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Show

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[BuilderSpec]

Well i guessed it would i was after any suggestions as to why it would not work ..things i could check etc

Hope this helps!

Regards

BuilderSpec