|
|
|
| Тема Access 2003. Форма Сотрудники.
База данных Борей работает хорошо. Выбор фото происходит., но почему тот же код не срабатывает При создании Новой базы, Я в новую базу сделал из борея Импорт Таблицы Сотрудники и Формы Сотрудники, но кнопка смены фото выдает ошибку указывая что не то Окно диалога
Код тот же, формат базы тот же, а Окно выбора файла не открывается, в чём дело? Может в скрытых системных таблицах, а? | |
|
| |
|
|
|
| Возможно, требуется ссылка на офисную библиотеку. | |
|
| |
|
|
|
| Нет ссылок здесь нет
неработает эта строка
With Application.FileDialog(msoFileDialogFilePicker)
Акес выделяет это- (msoFileDialogFilePicker)
Sub getFileName()
' Для выбора имени файла с фотографией текущего сотрудника
' используется стандартное окно открытия файла Office.
' Если пользователь указывает файл, его содержимое
' отображается в элементе управления ImageFrame.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выбор фотографии сотрудника"
.Filters.Add "Все файлы", "*.*"
.Filters.Add "JPEG", "*.jpg"
.Filters.Add "Рисунки", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Имя].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub | |
|
| |
|
19 Кб. |
|
|
With Application.FileDialog(msoFileDialogFilePicker)
...
|
Однозначно требуется подключенная ссылка на офисную библиотеку.
Или используйте позднее связывание и, соответственно, значения констант.
Для А2003 скрин: | |
|
| |
|
|
|
| Спасибо Lukas. Теперь у меня всё работает! | |
|
| |