M
Maxwell
Hi all,
I am just working on patching together the open file code below (from
Microsoft) with another function that seems to work fine. Basically, I need
this function to return a filepath and file name for one document. The code
below does that, but refers to
Me.FileList
Which my system does not recognise. I do have MS Office 12.0 Object
Library referenced, but no luck.
I suppose the question is, what is the 'Me' a reference to? As this code
sits on a button control in a form, I would assume Me is the form - but I see
no sign of FileList. What is this FileList and more importantly, where is
it?
Many thanks!
Max
(Code below for ref)
'Requires reference to Microsoft Office 12.0 Object Library.
'Clear listbox contents.
Me.FileList.RowSource = ""
'Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
'Allow user to make multiple selections in dialog box.
.AllowMultiSelect = True
'Set the title of the dialog box.
.Title = "Please select one or more files"
'Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "Access Databases", "*.MDB; *.ACCDB"
.Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"
'Show the dialog box. If the .Show method returns True, the
'user picked at least one file. If the .Show method returns
'False, the user clicked Cancel.
If .Show = True Then
'Loop through each file selected and add it to the list box.
For Each varFile In .SelectedItems
Me.FileList.AddItem varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
I am just working on patching together the open file code below (from
Microsoft) with another function that seems to work fine. Basically, I need
this function to return a filepath and file name for one document. The code
below does that, but refers to
Me.FileList
Which my system does not recognise. I do have MS Office 12.0 Object
Library referenced, but no luck.
I suppose the question is, what is the 'Me' a reference to? As this code
sits on a button control in a form, I would assume Me is the form - but I see
no sign of FileList. What is this FileList and more importantly, where is
it?
Many thanks!
Max
(Code below for ref)
'Requires reference to Microsoft Office 12.0 Object Library.
'Clear listbox contents.
Me.FileList.RowSource = ""
'Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
'Allow user to make multiple selections in dialog box.
.AllowMultiSelect = True
'Set the title of the dialog box.
.Title = "Please select one or more files"
'Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "Access Databases", "*.MDB; *.ACCDB"
.Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"
'Show the dialog box. If the .Show method returns True, the
'user picked at least one file. If the .Show method returns
'False, the user clicked Cancel.
If .Show = True Then
'Loop through each file selected and add it to the list box.
For Each varFile In .SelectedItems
Me.FileList.AddItem varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With