Hi,
How can I re-write the below code? If I have 10 records of data & images and I want to display them in one report. But I do not want one record per page. Display all in the same page.
##################
Option Compare Database
Option Explicit
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Err_Sub
If IsNull(PicFile) Then
[imgPicture].Visible = False
[imgPicture].Picture = ""
Else
[imgPicture].Visible = True
[imgPicture].Picture = PicFile
End If
Exit Sub
Err_Sub:
If Err = 2220 Then
[imgPicture].Visible = False
[imgPicture].Picture = ""
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
Private Sub Report_NoData(Cancel As Integer)
MsgBox "There are no data for this report. Canceling report...", vbInformation
Cancel = True
End Sub
#################