Display Multiple Images on a form

[FD]

Hi I am a newbie to access and I am trying to save space in my database by
using code to display my images from a folder instead of embedding them
directly into the database. I have a table with over 2000 records and 2 to 4
images per record. I am using Access 2003, but the database will be uploaded
to an FTP site then downloaded and used by multilple users with probably
different versions of Access. I followed the instructions in
http://support.microsoft.com/kb/285820 and it worked great to display one
image per record, but I need to display up to 4 images per record. Can
anybody help?

 

[S.Clark]

strImagePath is passed to the function. From wherever you produce that
value, do it in a loop and keep passing them until exhausted for that parent
record.

 

[FD]

Below is my code so far....not sure what or where the code needs to be to
create the loop for each record. Please help!

Option Compare Database
Option Explicit

Public Function DisplayImage(ctlImageControl As Control, strImagePath As
Variant) As String
On Error GoTo Err_DisplayImage

Dim strResult As String
Dim strDatabasePath As String
Dim intSlashLocation As Integer

With ctlImageControl
If IsNull(strImagePath) Then
.Visible = False
strResult = "No image name specified."
Else
If InStr(1, strImagePath, "\") = 0 Then
' Path is relative
strDatabasePath = CurrentProject.FullName
intSlashLocation = InStrRev(strDatabasePath, "\",
Len(strDatabasePath))
strDatabasePath = Left(strDatabasePath, intSlashLocation)
strImagePath = strDatabasePath & strImagePath
End If
.Visible = True
.Picture = strImagePath
strResult = "Image found and displayed."
End If
End With

Exit_DisplayImage:
DisplayImage = strResult
Exit Function

Err_DisplayImage:
Select Case Err.Number
Case 2220 ' Can't find the picture.
ctlImageControl.Visible = False
strResult = "Can't find image in the specified name."
Resume Exit_DisplayImage:
Case Else ' Some other error.
MsgBox Err.Number & " " & Err.Description
strResult = "An error occurred displaying image."
Resume Exit_DisplayImage:
End Select
End Function