|
|
|
новичок
участник
Last Login: 28.09.2007 19:18
Сообщ.: 6,
Visits: 19
|
|
Привет всем!
При создании БД есть необходимость в форме отображать фотографии сотрудников.
Где-то здесь на форуме вычитала, что можно использовать модуль формы "Сотрудники" из БД "Борей".
Но что-то не получается...
Создала аналогичные поля в форме назвала их точно также как и в Борее, но модуль не работает.
Подскажите, что не так.
Ошибка возникает вот здесь:
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
Не пойму что не так?
|
|
|
|
|
новичок
участник
Last Login: 28.09.2007 19:18
Сообщ.: 6,
Visits: 19
|
|
Если кто знает как по-другому вставить фотографию, напишите пожалуйста.
Есть поле в таблице наз. Foto тип поля текстовый.
Есть папка на диске с фотографиями сотрудников.
Необходимо при нажатии на кнопку "Добавить" в форме, чтобы фотография вставлялась в рамку присоединенного объекта OLE и при этом название файла попадало в поле Foto В таблицу.
При переходе на другого сотрудника, фотография чтоб изменялась.
|
|
|
|
|
Supreme Being
участник
Last Login: 13.03.2008 11:35
Сообщ.: 839,
Visits: 8 738
|
|
А в чём, собственно, проблема?
Вы привели функцию, в которой используется диалог выбора файлов (из библиотеки MS Office). Скорее всего, Вы не подключили требуемую библиотеку - в любом модуле базы "Борей" выберите в меню "Tools/Refferences" и посмотрите, какой птички у Вас не хватает...
|
|
|
|
|
Supreme Being
участник
Last Login: 13.03.2008 11:35
Сообщ.: 839,
Visits: 8 738
|
|
В "Нормально РАБОТАЮЩИЙ диалог открытия и сохранения файла в VB Access" (http://am.rusimport.ru/msaccess/topic.aspx?ID=514) предлагают не использовать константы:
With Application.FileDialog(1) ' Вместо : With Application.FileDialog(msoFileDialogOpen)
|
|
|
|