Отчет Microsoft Access 2019. Автоматически изменить размер изображения

Question

Вставьте и измените размер изображения в отчете о доступе. Решение от мисс Изабель Смит отменяет выполнение в первой строке кода. Текстовое поле «Мой отчет» [P1], заполненное запросом, содержит ссылки на файлы * .jpg. Но код Me.Image46.Picture = Me.P1.Value не работает. Get error msg Ошибка времени выполнения «94»: недопустимое использование Null. Me! Image46.Picture = Me! [P1] Ошибка времени выполнения '13': несоответствие типов он побеждает цель каждой записи для ссылки на другое имя файла.

Спасибо

Answer 1

Обновленное решение с проверкой:
Я создал вашу форму и протестировал ее. Единственный раз, когда я потерпел неудачу, это когда путь к изображению был неверным. Пожалуйста, попробуйте это:

Dim strFilename As String
strFilename = Me![P1].Value

If Len(Dir(strFilename)) > 0 Then
    Me![Image7].Picture = strFilename
    Me![Image7].Height = 9666 * Me![Image7].ImageHeight / Me![Image7].ImageWidth
    Me![Image7].Width = 9666
Else
    MsgBox "Image not found"
End If