Я работаю над отчетом, который использует несколько текстовых полей из таблицы для различных меток в отчете, и одно поле предназначено для заполнения изображения. Это поле, photoFileName
, является строкой файла изображения, например, IMG_10.JPG
. Я использую VBA для сохранения отчетов в отдельных файлах на основе группы; отчет сгруппирован по полю tankID
в таблице, и я хочу, чтобы каждая группа сохранялась в отдельный файл PDF. Эта часть работает, так как в каждом PDF-файле есть правильное имя файла, макет и заполненные текстовые поля, но с этим VBA изображения больше не отображаются ни в одном из сохраненных PDF-файлов.
Группировка работает правильно, и метки, использующие не photoFileName
поля в отчете, заполняются правильно. Только изображение, которое использует выражение =[CurrentProject].[Path] & "\ResizedPhotos\" & [photoFileName]
для своего источника управления, не работает, и в результате изображение не отображается. Я попытался отладить текстовое поле с тем же выражением выше, и оно показывает только значение #Name?
. Если я просто введу photoFileName
в источник управления, появится правильное значение. Это не работает только в выражении.
Вот справочник VBA:
Sub macro1()
Set tankIDs = CurrentDb.OpenRecordset("SELECT DISTINCT tankID FROM [photoLog]")
With tankIDs
Do Until .EOF
DoCmd.OpenReport "Photo Appendix", _
acViewPreview, _
WhereCondition:="tankID = " & Chr(34) & !tankID & Chr(34), _
WindowMode:=acHidden
DoCmd.OutputTo acOutputReport, _
"Photo Appendix", _
acFormatPDF, _
"E:\Photo log\test\" & !tankID & ".pdf"
DoCmd.Close acReport, "Photo Appendix", acSaveNo
.MoveNext
Loop
End With
End Sub