Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Программная вставка изображения на форму

Автор: tempUser 26.3.2011, 22:12

Приветствую всех.
С помощью vba нужно заполнить форму некоторыми данными.
С текстовыми данными проблем нет. Делаю вот так:

Код


Option Compare Database
Dim libraryCardNumber As String
Dim subscriberData As Recordset

Private Sub Info_Click()
libraryCardField.SetFocus
libraryCardNumber = libraryCardField.Text

Set subscriberData = CurrentDb.OpenRecordset("SELECT SUBSCRIBERS.SUBSCRIBER_ID, SUBSCRIBERS.FIRST_NAME, SUBSCRIBERS.SURNAME, SUBSCRIBERS.FACULTY, SUBSCRIBERS.COURSE, SUBSCRIBERS.GROUP, SUBSCRIBERS.LIBRARY_CARD, SUBSCRIBERS.PHOTO FROM SUBSCRIBERS WHERE SUBSCRIBERS.LIBRARY_CARD=" & libraryCardNumber)
subscriberIdField.SetFocus
subscriberIdField.Text = subscriberData.Fields("SUBSCRIBER_ID")
nameField.SetFocus
nameField.Text = subscriberData.Fields("FIRST_NAME")
surnameField.SetFocus
surnameField.Text = subscriberData.Fields("SURNAME")
facultyField.SetFocus
facultyField.Text = subscriberData.Fields("FACULTY")
courseField.SetFocus
courseField.Text = subscriberData.Fields("COURSE")
groupField.SetFocus
groupField.Text = subscriberData.Fields("GROUP")

End Sub

Проблемы возникают, когда хочу вывести в форму изображение. В таблице оно хранится, как вложение.
Пробовал вот так и не только:

Код


photoArea.SetFocus
photoArea.CurrentAttachment = subscriberData.Fields("PHOTO")

Получаю type mismatch.

Подскажите, пожалуйста, как нужно сделать.

Автор: bopoha 26.3.2011, 23:03

Цитата(tempUser @ 26.3.2011, 22:12

)

В таблице оно хранится, как вложение.

Что это значит?

Автор: tempUser 26.3.2011, 23:10

Цитата

Что это значит?

Если открыть таблицу в режиме конструктор, то тип данных стоит, как вложение.
Сейчас думаю проблему можно решить по другому. Сделать запрос с параметром. На его основе создать форму. Сделать на форме текстовое поле куда можно вводить значение параметра. Изначально форма ничем не заполниться, т.к. параметр не задан. Но, например, по нажатию кнопки обновлять форму. Выполниться запрос и данные вставятся в форму. Тогда не будет нужен весь тот код, который я написал.

Добавлено через 9 минут и 27 секунд
Все, проблему решил, как описал выше.
Прошу прощения за беспокойство.