By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
425,635 Members | 913 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 425,635 IT Pros & Developers. It's quick & easy.

Microsoft Office 10.0 Object libary reference not working??

P: n/a
Hi there,

I am running AccessXp and want to make use to the new filedialog object.
the references are set to: VBA, MS Access 10.0 Object Library, Ole
Automation, Microsoft Office 10.0 Object library,
Ms Dao 2.5/3.5 compatible library.

Public Function GetXXXfilePath() as String

Dim objDlg as Office.Filedialog
Const Open_button = -1

Set objDlg = Application.Filedialog( _
FileDialogType:=msoFileDialogOpen)

'Now access complains that it can't find the named Argument "FileDialog"
(Error448)!!!???
' what am I missing or could I do differently???
'........and further more
End Function

Kind regards
Norman
Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Well, first of all, I don't believe the DAO 2.5/3.5 Compatibility Library is
appropriate for use with Access XP. Replace it with DAO 3.6, and see whether
that solves the problem.

Next, you've declared objDlg as Office.Filedialog, yet you're trying to set
it to Application.Filedialog. One of the two is wrong (and I'm afraid I
don't know which, because I always call the API directly) To learn how to
call the APIs, see the example Ken Getz provided in
http://www.mvps.org/access/api/api0001.htm at "The Access Web"

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
"Rene Muench" <no******@ozemail.com.au> wrote in message
news:5Q***************@nnrp1.ozemail.com.au...
Hi there,

I am running AccessXp and want to make use to the new filedialog object.
the references are set to: VBA, MS Access 10.0 Object Library, Ole
Automation, Microsoft Office 10.0 Object library,
Ms Dao 2.5/3.5 compatible library.

Public Function GetXXXfilePath() as String

Dim objDlg as Office.Filedialog
Const Open_button = -1

Set objDlg = Application.Filedialog( _
FileDialogType:=msoFileDialogOpen)

'Now access complains that it can't find the named Argument "FileDialog"
(Error448)!!!???
' what am I missing or could I do differently???
'........and further more
End Function

Kind regards
Norman

Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.