Solved: Help with images on a report

[boneKrusher]

I am having trouble printing my images on a report. The report is linked to a query. The problem is that its only printing the last image on record. Here is my code.

Thanks for the help.

Code:


Private Sub Report_Activate()
Dim pathx As String
Dim Loc As String
Dim nm As String

pathx = Me.Application.CurrentProject.Path
Loc = pathx & Me.Imagepath
Me.Text12 = Loc
Me.imagetest.Picture = Loc


End Sub

[OBP]

If this is Access why are you using VB when the normal Table/query/Report can handle the inclusion of pictures/objects without any hassle at all?
Is it for the practice or to learn how?

[boneKrusher]

I have photos attached to each record. When the user prints the report, I want the photos related to that record only to print out. How do I do it?


Thanks

[OBP]

How are they "attached" to the records?
Are they stored in the table as photos or as "Icons" (package).
Icons can only be displayed by the original photo software package.
Are you using a text field to hold the path to the photo, which requires VB to make it work?
For a text box with the full path to the photo, this in the Details "Format" Event procedure works for me -


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Detail_Format

If Not Me!fieldname = "" Or Not IsNull(Me!fieldname) Then
Me!Picture.Picture = Me!fieldname
Else
Me!Picture.Picture = ""
End If

exit_Detail_Format:
Exit Sub

err_Detail_Format:
MsgBox Err.Description
Resume exit_Detail_Format

End Sub


where Picture is the name of the image control.

Edited 9-May-06 by GeekGirlau. Reason: Insert vba tags

[boneKrusher]

Me.imagepath holds the link location (c:\temp\photo1). The command
Me.imagetest.Picture displays the photo.

.....?

[OBP]

I think I see the problem, you have the VB code in the "Report Activate" event procedure, as I stated in my previous post it has to go in the
Detail's "On Format" event procedure.

[boneKrusher]

That was it! Thank you so much!

[geekgirlau]

BoneKrusher, don't forget to mark the thread "Solved" using the Thread Tools at the top of the page.

[boneKrusher]

Ok will do.