مائیکروسوفٹ ایکسیس میں ٹیکس باکس کی مدد س®

[malik2malik]

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