For photos uploaded to the server, I set up a report with 25 image controls,
25 labels for the id number of the person, and 25 labels for the person's
name, all name photo1, id1, name1, etc. Tthe photo name, person's id, and
person's name are stored in UploadedPhotoTable. After uploading 25 photos,
the report is opened, which contains the following (ADO) code:
Private Sub Report_Open(Cancel As Integer)
Set cnxn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Dim i As Integer
i = 1
With rs
.Open "UploadedPhotoTable", cnxn, adOpenKeyset, adLockOptimistic,
adCmdTableDirect
Do While Not .EOF
Me("photo" & i).Picture = "C:\odis\uploaded\" & .Fields(0)
Me("id" & i).Caption = .Fields(0)
Me("name" & i).Caption = .Fields(1)
.MoveNext
i = i + 1
If i > 25 Then Exit Do
Loop
.Close
End With
End Sub
Darryl Kerkeslager
"demo" <kr******@bommelibom.com> wrote:
I've got a load of pictures stored in my db, and want to print them in
a report. I can't figure out how to tile them four by five (for
instance) in a report, only in a single column.