ник: mulrus
Доброго времени суток господа! Недавно столкунулся с такой пролемой. Все вы знаете БД "Борей" и форму "Сотрудники", так вот в ней фотграфии выводятся через ссылку указнную в поле таблицы и грузятся они из внешней папки. Но когда пытаюсь сделать отчет, чтобы там выводилась фотка, то к сожалению ничего не получается.
Порылся в инете и набрел вот на такой пример:
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
Помогите плз, может в этих примерах, что-то не верно, я чувствую, истина где-то рядом....