Программирую в MS Access, пытаюсь заставить работать код (взят из справки VB) с использованием Common Dialog Control . Перед этим в tools-references добавил Microsoft Common Dialog Control 6.0 (SP3)

Код не проходит компиляцию - высвечивается ошибка на  выделенной жирным строке - "User-defined type not defined"

Private Sub Command26_Click()
    
    Dim fd As FileDialog

    Set fd = Application.FileDialog(msoFileDialogFolderPicker)

    Dim vrtSelectedItem As Variant

    With fd

        If .Show = -1 Then

            For Each vrtSelectedItem In .SelectedItems

                MsgBox "The path is: " & vrtSelectedItem

            Next vrtSelectedItem
        
        Else
        End If
    End With

    Set fd = Nothing

End Sub

я так понимаю, что VB не воспринимает тип "FileDialog", хотя comndlg32.ocx подключён.     

Подскажите пож-та, что не так.

Заранее благодарен,

Влад

Если Вы намерены идти по пути создания объекта, то будьте любезны все-таки

Или разместите объект FileDialog на форме и работайте с ним напрямую.

Akina,

спасибо за подсказку. Вот, что в результате получилось:




Строка №5 приводит к возникновению ошибки "Run time error '-2147467259 (80004005) Method 'FileDialog' of object '_Application' failed (привожу слово в слово).

Продолжаю вгрызаться в VB help.  

Может будут ещё идеи? Или работающий пример с применением FileDialog?

Буду очень признателен.

Влад

Я разобрался - чтобы работал FileDialog, нужно подключить не только comdlg32.ocx, но и Microsoft Office 10.0 (9.0) Object Library.

После этого заработал код один к одному из VB help...  

Если кому пригодится - вот ещё ссылки на эту тему:

Ссылка1
ссылка2 (на немецком)
ссылка3 - sql.ru
MS support - ограничение использования константы msoFileDialogSaveAs

Влад