"Get Picture()" Function error

[GIRLnSD]

Need help with the following code. I keep getting error message. New to Code.

Option Compare Database
Function GetPicture()
With CodeContextObject
If Dir(.[ImageFile]) <> Empty Then
.[ImageControl].Visible = True
.[ImageControl].Picture = .[ImageFile]
Else
.[ImageControl].Visible = False
End If
End With
End Function

Thank you....

 

[Poppa Smurf]

Empty is not a valid expression, do you mean NULL?

Change If Dir(.[ImageFile]) <> Empty Then

to
IF Not IsNull(Dir(.[ImageFile])) Then