Abiturient
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто подскажет каким образом подключить "FileDialog" и вообще любой об'ект для использования в программе ACCESS. Об'ясните подробненько.
Я пока дальше создания баз данных при помощи панелей и кнопок ACCESS не заходил, а тут вдруг возникла необходимость. Натолкнулся случайно на программу"Кадры", одной из возможностей которой - вставка фотографий сотрудников, в форму. При этом не через поле Оle. а путем хранения адресов фоток в текстовом поле, что дает значительную экономию ресурсов. Решил реализовать это в своей базе. Однако столкнулся с тем, что даже после удаления всего видимого содержимого базы (таблиц, форм и т.п. ) а потом создания своей таблицы и формы - процедура работает. Но когда перенести все необходимое в новую базу, то при попытке замены фотографии возникает ошибка, что-то типа "Отсутствует элемент FileDialog".
Код программы:
Sub getFileName()
' Для выбора имени файла с фотографией текущего сотрудника
' используется стандартное окно открытия файла Office.
' Если пользователь указывает файл, его содержимое
' отображается в элементе управления Рисунок1.
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![Поле1].Visible = True
Me![Поле1].SetFocus
Me![Поле1].Text = fileName
Me![Имя].SetFocus
Me![Поле1].Visible = False
End If
End With
End Sub
Спасибо. |
