ник: snipe
см.=>
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