Run-time error 2220

[jibb]

I've got the following code in a form to display an image:

Me.imgIMAGE.Picture = "[URL="file://\\C:\images"]\\C:\images[/URL]\jpgs\" & Me.cboPRODUCT_CODE.Column(0) & ".jpg"

If there isn't an image with that name how do I stop it showing the error?

 

[PeterF]

You stop the error by testing if the file exists like:

   Dim PictureFile as string
   Picturefile = "\\C:\images\jpgs\" & Me.cboPRODUCT_CODE.Column(0) & ".jpg"
   if len(dir(picturefile)) > 1 then
      Me.imgIMAGE.Picture = picturefile
   Else
      Me.imgIMAGE.Picture = ""
   End if

 

[jibb]

Perfect! Thanks.