Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Вставка рисунка в отчет по адресу в из поля таблицы
 
 автор: TimRus   (14.06.2010 в 14:20)   личное сообщение
97 Кб.
 
 

Помогите вставить рисунок в отчет по адресу в из поля таблицы.
фотография в форму добавляется по нажатию "+", при этом в таблице "Личные данные" в поле "Фото" сохраняется адрес расположения рисунка.
Необходимо, чтобы при переходе по записям отображалась соответсятвующая фотография.

P.S. Если принажатии на "+" в форме возникает ошибка, подключите библиотеку
Microsoft Office XX Object Library
где XX версия библиотеки

  Ответить  
 
 автор: Гоблин   (14.06.2010 в 20:32)   личное сообщение
 
 

Решал эту проблему давненько. С помощью этого форума решил. Сейчас работает все в нескольких базах. Ссылки на личный опыт может помогут.
http://hiprog.com/forum/read.php?id_forum=1&id_theme=6286&page=1
http://hiprog.com/forum/read.php?id_forum=1&id_theme=6248&page=1

На этом сайте есть конкретные примеры по этому делу. Суть сводится к тому, что если в табле есть ссылка, то в отчет необходимо переводить уже данные открытой формы. Ставь рамку.

  Ответить  
 
 автор: timrus   (14.06.2010 в 20:51)   личное сообщение
 
 

Спасибо Гоблин!
А можно ссылочку на пример с отчетом и рисунком?

а нельзя сделать так чтобы рисунок появлялся при открытии отчета напрямую, а не из формы?

P.S. Я так понял в примере http://hiprog.com/forum/read.php?id_forum=1&id_theme=6286&page=1
код Me.[Рисунок11].PictureData = Forms!Изображения![Выбор рисунка].Controls("Рамка1").PictureData вешается на открытие отчета, не так ли?

  Ответить  
 
 автор: Гоблин   (14.06.2010 в 22:43)   личное сообщение
 
 

Так точно! Ссылочку поискать надо. Обязательно дам если найду.

  Ответить  
 
 автор: TimRus   (14.06.2010 в 23:52)   личное сообщение
 
 

Спасибо большое!!

  Ответить  
 
 автор: snipe   (15.06.2010 в 07:36)   личное сообщение
98 Кб.
 
 

см.=>

Private Sub Report_Activate()
Call Report_Page
End Sub

Private Sub Report_Page()
If Nz(Me!Фото, 0) = 0 Then
Me!ImageFrame.Picture = "(отсутствует)"
Me!ImageFrame.Visible = False
Else
Me!ImageFrame.Picture = Me!Фото
Me!ImageFrame.Visible = True
End If
End Sub

это коды на события отчета включение и страница

надо еще обработку ошибки сделать на тот случай если путь к файлу будет не правильный - ее номер 2220

  Ответить  
 
 автор: TimRus   (16.06.2010 в 00:20)   личное сообщение
 
 

Спасибо большое!!!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList