damask_86ru, так Вы сначала проверьте, а потом загружайте картинку:
[vba]Код
If Dir("E:\изображения запчастей\" & [D9] & ".jpg") = "" Then
wsCatalog.Image1.Picture = LoadPicture("E:\изображения запчастей\Пусто.jpg")
Else
wsCatalog.Image1.Picture = LoadPicture("E:\изображения запчастей\" & [D9] & ".jpg")
End If
[/vba]
или обработку ошибок поставьте, например так:
[vba]Код
On Error GoTo loadEmpty
wsCatalog.Image1.Picture = LoadPicture("E:\изображения запчастей\" & [D9] & ".jpg")
loadEmpty:
If Dir("E:\изображения запчастей" & [D9] & ".jpg") = "" Then wsCatalog.Image1.Picture = LoadPicture("E:\изображения запчастей\Пусто.jpg")
[/vba]