Photo on Report error

[trevorC via AccessMonster.com]

Hi All,
The code below is putting a photo on my report but puts the same photo until
it gets a new one then changes to that until a different one is listed in the
dlookup.
Any ideas whould be great.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(DLookup("[Employee Photo]", "[Employees]", "Reports![employee
barcode cards]![Barcode] =[Barcode]")) Then
Me.employee_photo.Picture = DLookup("[Employee Photo]", "[Employees]",
"Reports![employee barcode cards]![Barcode] =[Barcode]")
Else
Me.employee_photo.Picture = ""
End If
End Sub

 

[Larry Linson]

You are correct that the Control will show the same picture until that is
replaced by another picture; a pictur property that is a zero-length string
is not "another picture" -- this is not an error; it is "working as
designed". One rather simple solution is to store a one-pixel image file of
the background color in records which do not have an image file, or use the
name of that image file in the Else clause of your code instead of setting
the Picture property to "".

Larry Linson
Microsoft Office Access MVP

 

[trevorC via AccessMonster.com]

Thanks for the reply Larry.
I'll use your idea and fix it up thanks.

You are correct that the Control will show the same picture until that is
replaced by another picture; a pictur property that is a zero-length string
is not "another picture" -- this is not an error; it is "working as
designed". One rather simple solution is to store a one-pixel image file of
the background color in records which do not have an image file, or use the
name of that image file in the Else clause of your code instead of setting
the Picture property to "".

Larry Linson
Microsoft Office Access MVP

Hi All,
The code below is putting a photo on my report but puts the same photo

[quoted text clipped - 14 lines]

End If
End Sub