Eileen Murphy
asked on
Microsoft Access Report (Image Control Issue)
I have a report where some records have links to images and others do no. I would like to automatically resize an Image Control to eliminate white space. I can't seem to find anything. Any ideas?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Dim FullPath As String
If IsNull(Me.PathToImage) Or Me.PathToImage = "" Then GoTo ExitHere
FullPath = Me.PathToImage
If Dir([FullPath]) <> Empty Then
Me.[Image27].Visible = True
Me.[Image27].Picture = FullPath
Me.[Image27].Height = 1800
Else
Me.[Image27].Visible = False
Me.[Image27].Height = 0
End If
FullPath = ""