Я очень внимательно искал, но не смог найти пост, который бы решал мою проблему напрямую.
Следующий код для формы, которую я создал, работает в 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, так что очень вероятно, что я упускаю что-то очевидное.