07. 2 примера, один добавление из таблицы, а другой из файла показывают как можно внести в отчет логотипы и т.п.
' Из файла
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Me.picFromFile.Picture = Application.CurrentProject.Path _
"\" Me.Рисунок
End Sub
' Вставить рисунок из таблицы sTable
Private Sub InsertPicture(ctrl As Control, sTable As String)
Dim dbs As Database, rst As Recordset
On Error GoTo 999 'Обработка ошибки
Set dbs = CurrentDb 'Текущая база данных
Set rst = dbs.OpenRecordset(sTable) 'Открываем таблицу
If rst.RecordCount 0 Then
rst.MoveLast 'Заполняем запрос
rst.MoveFirst 'Устанавливаем позицию
ctrl.Picture = Application.CurrentProject.Path _
"\" rst!Рисунок 'Полное имя файла
End If
rst.Close
999:
Err.Clear 'Сброс ошибки
End Sub