sinichka

Привет всем!

При создании БД есть необходимость в форме отображать фотографии сотрудников.

Где-то здесь на форуме вычитала, что можно использовать модуль формы "Сотрудники" из БД "Борей".



Но что-то не получается...

Создала аналогичные поля в форме назвала их точно также как и в Борее, но модуль не работает.

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



Ошибка возникает вот здесь:



Sub getFileName()



Dim fileName As String

Dim result As Integer

With Application.FileDialog([highlight=#ffff11]msoFileDialogFilePicker[/highlight])

.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



Не пойму что не так?

sinichka

Если кто знает как по-другому вставить фотографию, напишите пожалуйста.

Есть поле в таблице наз. Foto тип поля текстовый.

Есть папка на диске с фотографиями сотрудников.

Необходимо при нажатии на кнопку "Добавить" в форме, чтобы фотография вставлялась в рамку присоединенного объекта OLE и при этом название файла попадало в поле Foto В таблицу.

При переходе на другого сотрудника, фотография чтоб изменялась.

Михайло

А в чём, собственно, проблема?

Вы привели функцию, в которой используется диалог выбора файлов (из библиотеки MS Office). Скорее всего, Вы не подключили требуемую библиотеку - в любом модуле базы "Борей" выберите в меню "Tools/Refferences" и посмотрите, какой птички у Вас не хватает...

Михайло

В "Нормально РАБОТАЮЩИЙ диалог открытия и сохранения файла в VB Access" (http://am.rusimport.ru/msaccess/topic.aspx?ID=514) предлагают не использовать константы:



With Application.FileDialog(1) ' Вместо : With Application.FileDialog(msoFileDialogOpen)