yol = CurrentProject.Path & _
"\resim\"
On Error GoTo hata
If Nz(resim, "") = "" Then _
Me.Vesikalik.Picture = CurrentProject.Path & "\Urun Resimleri\" & Me.ÜrünAdı & ".jpg"
If Nz(resim2, "") = "" Then _
Me.Vesikalik2.Picture = CurrentProject.Path & "\Karekodlar\" & Me.Renk & ".jpg"
Exit_hata:
Exit Sub
hata:
MsgBox "Resim bulunamadı.." _
& Chr(10) & "Resim dosyanız silinmiş," _
& " yeri veya ismi değişmiş olabilir..", vbInformation, "Hata"
Me.Vesikalik.Picture = ""
Me.Vesikalik2.Picture = ""
Resume Exit_hata
ile değiştirin sorun çözülecektir.
Formunuzun geçerli olduğunda kodlarını