avoid error 2220 1

[davyre]

Hi,

I have a piece of code to display a picture in an Access Form. Here's the code:

http://tek-tips.com/threadminder.cfm?pid=701

Dim UnitID As String

UnitID= Me.UnitID.Value

If IsNull(UnitID) = False Then
    Me.ImageBox.Picture = "E:\User\USER\Database\Unit Pics\" & UnitID & ".png"
Else
    Me.ImageBox.Picture = "E:\User\USER\Database\Unit Pics\rduck.jpg"
End If
ListUnitPart.Requery

The problem is if a picture for a particular unit is unavailable, it will show error 2220 unable to open (of course, because the file does not exist). What I want is if that happen, instead of spitting out error message, it will replace the pics with rduck.jpg (as in ELSE clause). Any help? Thanks!

 

[PHV]

One way:

Dim UnitID As String
UnitID = Dir("E:\User\USER\Database\Unit Pics\" & Me!UnitID & ".png")
If UnitID = "" Then UnitID = "rduck.jpg"
Me!ImageBox.Picture = "E:\User\USER\Database\Unit Pics\" & UnitID

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[davyre]

sweet. Thanks!