HOW TO LOAD A DEFAULT IMAGE IF IMAGE FILE DOES NOT EXIST 1

[Lightningfast]

I have a form linked to an image file but I need a way to return a default error file if the requested file does not exist
eg: this code leaves the last image in place
On Error Resume Next
If Not IsNull(Me![imageafter]) Then
Me![pictureimage].picture = Me![imageafter]
End If

Thanks in anticipation TP

 

[danvlas]

Something like:

Sub Form_Current()
On Error GoTo ErrHandler
PictureImage.Picture = Me("imageafter&quot
Finish:
Exit Sub

ErrHandler:
PictureImage.Picture = "C:\Path\ErrorImageFile.jpg"
Resume Finish
End Sub

Good luck


Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[Lightningfast]

Thanks Daniel,
Thats exactly what I needed the right syntax. Had to massage it a bit but it works just fine now. Thanks from Down Under, Trevor

 

[Guest_imported]

??