Am trying to insert pics dynamically into a name tag report in crystal reports. Was using a text field for the pic in Access until it told me that was no-no when I tried to use an OLE field. Then I discovered that a BLOB field in CR had to be an OLE, Hyperlink type field so I changed the sql to read UNION ALL.
I have placed the field onto the CR report, but no pics showup. I have included my code:
sSql = "SELECT Members.ID, Members.FirstName, Members.LastName, MarriedName," & _
" Classyear, Members.ClassPhoto" & _
" FROM Members INNER JOIN Attending ON Members.ID = Attending.ID" & _
" Where Attending.Attending" & _
" ORDER BY ClassYear, Lastname,MarriedName" & _
" UNION ALL SELECT Members.ID, Spouse," & _
" IIF(MarriedName = '',Lastname, Marriedname), '(Spouse)', ClassYear," & _
" Members.ClassPhoto" & _
" FROM Members INNER JOIN Attending ON Members.ID = Attending.ID" & _
" WHERE Spouse <> '' AND Attending.Attending" & _
" ORDER BY Classyear, Lastname, MarriedName"
Set crxRpt = crxApp.OpenReport(App.Path & "\drNameTags.rpt")
crxRpt.Database.SetDataSource rs, 3
crxRpt.DiscardSavedData
With crvNameTags
.ReportSource = crxRpt
.ViewReport
.Zoom (60)
.Refresh
.DisplayTabs = False
.EnableGroupTree = False
.EnableCloseButton = False
End With
Any help is appreciated.
Thanx.
Kim
I have placed the field onto the CR report, but no pics showup. I have included my code:
sSql = "SELECT Members.ID, Members.FirstName, Members.LastName, MarriedName," & _
" Classyear, Members.ClassPhoto" & _
" FROM Members INNER JOIN Attending ON Members.ID = Attending.ID" & _
" Where Attending.Attending" & _
" ORDER BY ClassYear, Lastname,MarriedName" & _
" UNION ALL SELECT Members.ID, Spouse," & _
" IIF(MarriedName = '',Lastname, Marriedname), '(Spouse)', ClassYear," & _
" Members.ClassPhoto" & _
" FROM Members INNER JOIN Attending ON Members.ID = Attending.ID" & _
" WHERE Spouse <> '' AND Attending.Attending" & _
" ORDER BY Classyear, Lastname, MarriedName"
Set crxRpt = crxApp.OpenReport(App.Path & "\drNameTags.rpt")
crxRpt.Database.SetDataSource rs, 3
crxRpt.DiscardSavedData
With crvNameTags
.ReportSource = crxRpt
.ViewReport
.Zoom (60)
.Refresh
.DisplayTabs = False
.EnableGroupTree = False
.EnableCloseButton = False
End With
Any help is appreciated.
Thanx.
Kim