Invoking File Menu programatically 2

[blacktorncoat]

Hello,
Can anyone point out to me how to invoke the file menu programatically, to return a string of file name+directory?

Thanks,
Yaron.

 

[PHV]

With some versions of ms-access you may play with the FileDialog object.

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

 

[blacktorncoat]

Thanks for replying,PHV, but I still can't seem to get it to work.. most examples I see on the web are using

" Dim FD as Office.FileDialog"

or

"Dim FD as FileDialog"

both result in "User-defined type not defined."
I am using Microsoft Access 10 Object Library.

Anyone knows how to get it done?
Thanks,
Y.

 

[PHV]

You should reference the Microsoft Office 10 Object Library too.

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

 

[BuilderSpec]

Hi

You could use the following function :

' need to set a reference to Microsoft Office 10.0 Object Library

Function MyFile()
Dim FileDlg As FileDialog

MyFile = ""
Set FileDlg = Application.FileDialog(msoFileDialogFilePicker)

With FileDlg
.Title = "My find dialog"
.AllowMultiSelect = False
.Filters.Add "Word Documents", "*.doc"
.InitialFileName = "C:\"
.Show
If .SelectedItems.Count > 0 Then
MyFile = .SelectedItems(1)
End If
End With

Set FileDlg = Nothing

End Function


Obviously you could change the code to show more files or even parameterise which files to show etc..

Code to use this would look like

dim SelectedFile as string

SelectedFile = myfile()
if len(selectedfile) > 0 then
' we have a filename
end if





Hope this helps!

Regards

BuilderSpec

 

[blacktorncoat]

Thanks PHV and BuilderSpec !
I confused Microsoft Access Object Library with Microsoft Office Object Library. It works fine now.

Y.