(17/10/2016, 12:09)atoz112 yazdı: 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.

Çok sağol yardım için bu kod bütün sıkıntıları halletti hata almıyorum hiçbir yerde artık ama atadığım resmin resim klasörüne kopyasını almasına rağmen resmi değilde resim yok etiketini gösteriyor bunu nasıl aşarım acaba? imgresim.picture = "(yok)" gösteriyor fareyi üzerine getirdiğimde = diğer tarafında resim klasörü ve resim adını göstermesine rağmen