| |
|
|
| | Доброго времени суток господа! Недавно столкунулся с такой пролемой. Все вы знаете БД "Борей" и форму "Сотрудники", так вот в ней фотграфии выводятся через ссылку указнную в поле таблицы и грузятся они из внешней папки. Но когда пытаюсь сделать отчет, чтобы там выводилась фотка, то к сожалению ничего не получается.
Порылся в инете и набрел вот на такой пример:
Private Sub Report_Open(Cancel As Integer)
Me.ImageFrame.Picture = Forms("сотрудники").Controls("фотография")
End Sub
(в свойстве открытия отчёта)
Но к сожалению на свойство Forms выдается ошибка, что форму невозможно найти.
Или еще вот такой пример, но к сожалению в нем, просмотр отчета загружается, но фотка все равно не выводится....
Option Compare Database
Private Sub Report_Open(Cancel As Integer)
Dim res As Boolean
Dim fname As String
DoCmd.Maximize
path = CurrentProject.path
On Error Resume Next
ErrorMsg.Visible = False
If Not IsNull(Me.ImageFrame.Picture = Forms("sotrudnik").Controls("foto")) Then
res = Me.ImageFrame.Picture
fname = Forms("sotrudnik").Controls("foto")
If (res = True) Then
fname = path & "\" & fname
End If
Me.ImageFrame.Picture = fname
Me.PaintPalette = Me.ImageFrame.ObjectPalette
If (Me.ImageFrame.Picture <> fname) Then
ErrorMsg.Caption = "Фотография не найдена"
ErrorMsg.Visible = True
End If
Else
ErrorMsg.Caption = " Фотография отсутствует"
ErrorMsg.Visible = True
End If
End Sub
Помогите плз, может в этих примерах, что-то не верно, я чувствую, истина где-то рядом.... | |
| |
| |
| |
|
|
| | у вас в базе есть форма "sotrudnik" а в ней поле "foto"? при этом форма должна быть открыта при открытии отчета | |
| |
| |
| |
|
|
| | Спасибо, это я понял, но вот только теперь появляется другая ошибка Run-time error 2220: невозможно открыть файл "имярисунка.jpg", что-то вроде этого, тобишь он ссылку почему-то не читает..... | |
| |
| |
| |
|
|
| | я печатаю картинку из формы так:
есть форма в ней контрол "картинка". Есть отчет в нем тоже контрол картинка
на открытие отчета
If CurrentProject.AllForms("frm").IsLoaded Then
If Forms("frm")![картинка].Picture <> "(отсутствует)" Then
Me![картинка].PictureData = Forms("frm")![картинка].PictureData
end if
End If
|
| |
| |
| |
| |
|
|
| | Коггда пытаюсь увидеть отчет в предпросмотре, то выдает ошибку: Object doesn't support this property or method.....
Вообще возможно как-то еще это дело в предварительном просмотре увидеьб, в смысле мою фотку которую я хочу печатать. | |
| |
| |
| |
|
|
| | МОжно. Тот вариант который я описал работает с предпросмотром.
У вас точно контрол картинка, а не свободная рамка объекта? | |
| |
| |
| |
|
|
| | Ситуация такая. У меня в форме есть элемент управления ImageFrame куда из поля, можно даже с именем "картинка" передается ссылка на рисунок и этот элемент выводит мне эту картинок, ну вообщем как в "Борее" в форме "сотрудники". Точно такой же прием я бы хотел и реализовать в отчете. Чтобы там тоже нечто подобное было... Через поле ОЛЕ выводит в отчет без проблем, но у меня фоток слишком много и если деражть их базе, то она примет большие размеры......
Попытался сделать, как вы написали, но к сожалению выдается ошибка......о ней я написал..... | |
| |
| |
| |
|
|
| | честно говоря не понимаю почему не работает...
в принципе и указание совйства Picture (путь к файлу на диске) и замена свойтва PictureData (собственно картинка) должно было работать | |
| |
| |
| |
|
|
| | Все равно спаcибо Вам. Если не сложно не могли бы вы выслать какой-нить примерчик, так как это сделано у Вас. Мой мейл: aparen@mail.ru | |
| |
| |
| |
|
|
| | как найду время выдрать из программы - вышлю, или люда положу | |
| |
| |
| |
|
|
| | http://slil.ru/24254599
85 кг.
Распаковать файл и картинку в одну папку
Реализованы оба варианта и Picture и PictureData | |
| |
| |
| |
|
|
| | а чего ты его на сайт не выложил? | |
| |
| |
| |
|
|
| | на форум не врезет 85 кг.
а на сайт .. а что там инетресного? разве что моя фотка  | |
| |
| |
| |
|
|
| | не типо, а мишку поздравляльного типо в новостях типо интересно смотреть... 
меня уже коллеги спрашивают - чего это у вас сайт тормозит или админ сайта... типо уже с первым маем поздравлять пора а вы еще от восьмого марта все никак отойти не можете
Ж;) | |
| |
| |
| |
|
|
| | :-)
намек понял... мишку удаляю | |
| |
| |
| |
|
|
| | та! делов то! вместо букета - флажок первомайский в руки!  | |
| |
| |
| |
|
|
| | Спасибо большое! Но вот только, все таки, как быть с ImageFrame'ом, когда ссылки на файл хранятся у меня в таблице.... | |
| |
| |
| |
|
|
| | Прочитать их через Dlookup() | |
| |
| |
| |
|
|
| | Хм, то бишь эту фичу постваить на поле где у меня ссылка на фаул берется? | |
| |
| |
| |
|
|
| | Уряяя, все работает, просто надо передавать рисунок, который выводится в форме в элементе ImageFrame из этого же элемента в отчет в такой же элемент и тогда он будет выводится в соответствии с ссылкой на рисунок | |
| |
| |
