FileDialog не работает

Я очень внимательно искал, но не смог найти пост, который бы решал мою проблему напрямую.

Следующий код для формы, которую я создал, работает в Access 2003, и я использую ее на работе.

Dim FileName As FileDialog
Set FileName = Application.FileDialog(msoFileDialogFilePicker)
Dim Name As Variant

With FileName
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count = 0 Then
    MsgBox "No file selected."
    Exit Sub
    End If
End With

For Each Name In FileName.SelectedItems
FileNameTextBox.Text = Mid$(Name, InStrRev(Name, "\") + 1)
Next Name

Однако, когда я попытался запустить тот же код в форме в Access 2010 на моем персональном компьютере, это не сработало. В сообщении об ошибке выделена первая строка и написано: «Пользовательский тип не определен». Я также попытался объявить FileName как Office.FileDialog , но тоже безуспешно. У меня есть библиотека объектов Microsoft Access 14.0 в качестве одной из используемых ссылок, поэтому я не знаю, что с ней не так.

Я использую Access всего две недели, и все мои знания получены из Google, так что очень вероятно, что я упускаю что-то очевидное.

10
задан HansUp 19 January 2016 в 19:51
поделиться