Formunuzun geçerli olduğunda kodlarını

 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.