FileDialog doesn’t work

by

The FileDialog object is not provided by the Access library, but by the Office library. So your code should work if you set a reference to the Microsoft Office [version number] Object Library. Either you don’t have that reference set, or it’s broken.

However if it were me, I would leave the reference unset and modify the code like this. See if it works for you.

Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object

Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

With objDialog
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "No file selected."
    Else
        Me.FileNameTextBox.Value = Dir(.SelectedItems(1))
    End If
End With

More Related Contents:

  1. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  2. ms access vba code for update records through form
  3. How to add default signature in Outlook
  4. Combine rows / concatenate rows
  5. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  6. Too few parameters Expected 1, recordset issue
  7. Show “Open File” Dialog
  8. How do I display a messagebox with unicode characters in VBA?
  9. Determining whether an object is a member of a collection in VBA
  10. Distinction between using .text and .value in VBA Access
  11. MS Access VBA Error: Run time error ’70’ Permission Denied
  12. Automatically generating handling of issues
  13. Is it better to use ADO or DAO in Access 2007?
  14. VBA – Folder Picker – set where to start [duplicate]
  15. Prevent enabling of shift bypass – Access 2010
  16. MS Access: how to compact current database in VBA
  17. How to loop through all controls in a form, including controls in a subform – Access 2007
  18. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  19. Determine real cause of ODBC failure (error 3146) with ms-access?
  20. Is there an equivalent to Thread.Sleep() in VBA
  21. Exporting MS Access Forms and Class / Modules Recursively to text files?
  22. How to get logged-in user’s name in Access vba? [duplicate]
  23. Pass a parameter into an access report programmatically
  24. finding latest file in a folder and opening it (vba access)
  25. Insert multiple records with a date range in MS Access
  26. MS Access VBA: Sending an email through Outlook [closed]
  27. UrlDownloadToFile in Access 2010 – Sub or Function not Defined
  28. SendKeys is messing with my NumLock key via VBA code in Access form
  29. Runtime error 287. Sending Emails through Outlook using VBA in Access
  30. VBA macro that search for file in multiple subfolders

Leave a Comment