sayın angelos,

frm_personel_bilgi adlı formun kod sayfasında yer alan urunresmigetir adlı fonksiyonun içeriğini tamamen silip

 Resimklasorgetir





 If (Dir(Resimklasoru, vbDirectory) = "") Then

  MkDir Resimklasoru





imgresim.Picture = Resimklasoru & "\" & txtresimad

txtresimyok.Visible = False

Else

  imgresim.Picture = ""

 txtresimyok.Visible = True

 End If

kodları ile değiştirerek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.