Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Программная вставка изображения на форму 
V
    Опции темы
tempUser
Дата 26.3.2011, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.3.2011

Репутация: нет
Всего: нет



Приветствую всех.
С помощью 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.

Подскажите, пожалуйста, как нужно сделать.
PM MAIL   Вверх
bopoha
Дата 26.3.2011, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21



Цитата(tempUser @  26.3.2011,  22:12 Найти цитируемый пост)
В таблице оно хранится, как вложение.

Что это значит?
PM MAIL WWW ICQ Skype GTalk   Вверх
tempUser
Дата 26.3.2011, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.3.2011

Репутация: нет
Всего: нет



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

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

Добавлено через 9 минут и 27 секунд
Все, проблему решил, как описал выше.
Прошу прощения за беспокойство.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »


 




[ Время генерации скрипта: 0.0841 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.