Display an image using an expression?

[bborden]

Novice Access programmer here.

I would like to display an image using the Toolbox Image object by
calling the images file name using:

=fPictureFiles([Forms]![frmPatients]![cboTitleofCourtesy],1)

in the Picture control.

Below is the function which DOES actually returns a valid file
location such as:

c:\Pictures\pic01.jpg

The Picture control seems to only accept an actual file location and
not an expression.

What am I missing?

Thanks in advance to all you pro's.
Here's the Function, which when tested in the Immediate Window works
perfectly:

Function fPictureFiles(strDir As String, lngPictureNumber As Long) As
String

Dim fs As Object

Set fs = Application.FileSearch
With fs
.LookIn = strDir
.FileName = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
If i = lngPictureNumber Then
fPictureFiles = .FoundFiles(i)
End If
Next i
Else
MsgBox "There were no files found."

End If
End With

Set fs = Nothing

End Function

[bborden]

Sorry for the error. I messed up my function call on the original
post. This is the function call I want to put in the Picture control
to call my image to the image box on the form.

=fPictureFiles([Forms]![frmPatients]![tboPictureDirectory],1)

The tboPictureDirectory displays a table field holding the location of
the patients pictures and comes from a form that calls the picture
form to display pictures. The 1 shown above signifies the first file
in the folder is to be displayed in this image box.

bb*******@gmail.com (bborden) wrote in message news:<ea**************************@posting.google. com>...

Novice Access programmer here.

I would like to display an image using the Toolbox Image object by
calling the images file name using:

=fPictureFiles([Forms]![frmPatients]![cboTitleofCourtesy],1)

in the Picture control.

Below is the function which DOES actually returns a valid file
location such as:

c:\Pictures\pic01.jpg

The Picture control seems to only accept an actual file location and
not an expression.

What am I missing?

Thanks in advance to all you pro's.
Here's the Function, which when tested in the Immediate Window works
perfectly:

Function fPictureFiles(strDir As String, lngPictureNumber As Long) As
String

Dim fs As Object

Set fs = Application.FileSearch
With fs
.LookIn = strDir
.FileName = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
If i = lngPictureNumber Then
fPictureFiles = .FoundFiles(i)
End If
Next i
Else
MsgBox "There were no files found."

End If
End With

Set fs = Nothing

End Function