On Error GoTo Err_Codetxt_Enter
If Me.codetxt.Value <> "" Then
Picname = "D:\2013\Album\" + Me.codetxt.Value + ".JPG"
Me.Imagetxt.Picture = Picname
Else
Me.Imagetxt.Picture = ""
End If
Exit_Codetxt_Enter:
Exit Sub
Err_Codetxt_Enter:
'MsgBox Err.Description
Me.Imagetxt.Picture = ""
MsgBox ("Image Not Found...")
Resume Exit_Codetxt_Enter
Bookmarks