Image Problems

[Steve1001]

Hi

I have a report that has a picture linked to a remote drive. The appropriate picture is displayed linked to the item number on the form. This is fine if the correct picture exists, but if not, I just get an error message saying that the file can't be found. The code is very simple


Photo.Picture = "r:\gallery\" & Me.imast_drawno & ".jpg"

What code do I need to add, so that if the picture (imast_drawno )does not exist in r:\gallery ? I would like to be able to disply a default (NP)which is just a caption saying "picture not available" I have tried various code but none work!
Many thanks

Steve

 

[danvlas]

Use error trapping (On Error GoTo...):

Sub Whatever()
On Error GoTo DefaultPic
Photo.Picture = "r:\gallery\" & Me.imast_drawno & ".jpg"

FinishPoint:
Exit Sub

DefaultPic:
Photo.Picture = "r:\gallery\NotAvailable.jpg"
Resume FinishPoint
End Sub

HTH

Dan