Personel resmi bulunamadı hatasını gidermek

Ekte bulunan formumda açılışta resmi bulamadı diye hata veriyor on error goto hatayakala yaptım ama bit aşamadım ileri geri butonlarında da aynı şekilde hataları kodlarla aşamadım  yardımlarınızı bekliyorum

Sayın angelos,

Bahsettiğiniz talebinize yönelik olarak;

Site Kuralları sayfasında yazılı maddeleri tekrar incelemenizi temenni etmekle birlikte,

1)
Konularınıza örnek uygulama eklerken,lütfen sorununuza dair çözüm sunabilmek için gerekli olan hususları da dahil etmeye özen gösteriniz.

2)
Tablolarınızda sonuçları görebilmek adına,;içeriğinde farazi gerçek dışı uydurma birkaç kayıt olmasına özen gösteriniz.

3)
Resimleri içeren örnek resimleri bir resim klasöründe olacak şekilde ve uygulamaya dahil edilmiş halde ekleyiniz.

Böylece,katılımcılara da kolaylık sağlayıp direkt çözümler sunma imkanı sağlamış olursunuz.

Bu belirtilen özelliklerde yeniden uygulamanızı ve resim klasörünüzü dahil ediniz.

Bilginize…iyi çalışmalar,saygılar.

sayın angelos,

site arama sayfasında "resim" üzerine araştırma yapıp elde edeceğiniz çeşitli içeriklerdeki konuları ve örnekleri inceleyiniz.

yazdığınız kodların daha sorunsuz kullanımını sağlayan,fikir vermeye uygun nitelikte örnekler mevcut.

ayrıca,
KONU BAŞLIĞI;
(içeriği itibarı ile),

"Hata kodlarını aşamadım" ifadesi yerine,
aramalarda rahat sonuçlar sağlaması adına,

"Personel resmi bulunamadı hatasını gidermek" olarak değiştirilmesi uygun görülmüştür.

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

resim eklemede ve silmede sıkıntı yok resimleri ekliyorum hata kodlarında sıkıntım yardımcı olabilirseniz uğraşmaktan kurtulurum olamassanızda sağlık olsun teşekkürler

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.

(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