I am trying to declare a variable as a FileDialog object in VB for MS Access 2007
Dim fd As FileDialog
But, I am receiving an error message “ Compiler error : User-Defined type not defined”
I already checked the reference and checked the box mcrosoft office 12.0 access database engine object library.
But still i am getting the same error msg
Can you please help here?
what is the appropriate VBA reference to the Microsoft Office 2007 Object library
my code is here
Expand|Select|Wrap|Line Numbers
- Sub Main()
- 'Declare a variable as a FileDialog object.
- Dim fd As FileDialog
- 'Create a FileDialog object as a File Picker dialog box.
- Set fd = Application.FileDialog(msoFileDialogFilePicker)
- 'Declare a variable to contain the path
- 'of each selected item. Even though the path is a String,
- 'the variable must be a Variant because For Each...Next
- 'routines only work with Variants and Objects.
- Dim vrtSelectedItem As Variant
- 'Use a With...End With block to reference the FileDialog object.
- With fd
- 'Use the Show method to display the File Picker dialog box and return the user's action.
- 'The user pressed the action button.
- If .Show = -1 Then
- 'Step through each string in the FileDialogSelectedItems collection.
- For Each vrtSelectedItem In .SelectedItems
- 'vrtSelectedItem is a String that contains the path of each selected item.
- 'You can use any file I/O functions that you want to work with this path.
- 'This example simply displays the path in a message box.
- MsgBox "The path is: " & vrtSelectedItem
- Next vrtSelectedItem
- 'The user pressed Cancel.
- Else
- End If
- End With
- 'Set the object variable to Nothing.
- Set fd = Nothing
- End Sub
Expand|Select|Wrap|Line Numbers
- Public Sub cmdSelect_Click()
- Main
- End Sub