Displaying Images Question

[jgonick]

Ithe OnFormat of your details sections I used:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If IsNull([ImagePath]) Then
Me![ImageFrame].Properties("Picture&quot = "./NotAvailable.jpg"
Else
Me![ImageFrame].Properties("Picture&quot = _
Me![ImagePath]
End If
End Sub

This works great if the ImagePath is null or a valid file. Is there a simple solution to make it display the not availabe image if the file is not valid.(If the image file doesn't exist anymore. --If it was moved or deleted.)

 

[dhookom]

You can
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If IsNull([ImagePath]) Or _
Len(Dir(Nz(Me.ImagePath,"zz&quot))= 0 Then
Me![ImageFrame].Properties("Picture&quot = "./NotAvailable.jpg"
Else
Me![ImageFrame].Properties("Picture&quot
End If
End Sub



Duane
MS Access MVP

 

[jgonick]

Thanks.. Worked great.