(18/03/2016, 13:02)atoz112 yazdı: sayın megasoftware,,

bahsettiğiniz talebinize yönelik olarak;
aşağıdaki örnek kod kalıplarını kendi uygulamanıza göre uyarlamayı deneyebilirsiniz.faydalı olması temennisi ile.bilginize...iyi çalışmalar,saygılar.

EĞER RESİM KLASÖRÜ OLUŞTURULMAMIŞSA VE İLGİLİ RESİM DOSYASI MEVCUT DEĞİLSE;

Kod:

If Dir(CurrentProject.Path & "\" & "resim") = "" Then
    MsgBox "resim adlı klasör bulunmamaktadır."
    Exit Sub
Else
    IF Dir(CurrentProject.Path & "\" & "resim" & resim_adi) <> "" Then
    Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & resim_adi
    Exit Sub
    Else
    Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & "resimyok.jpg"
    End If
End If

EĞER RESİM ADI VEYA ÇERÇEVESİ BOŞ İSE;

Kod:

If IsNull(Me.Resim1) Or Me.Resim1 = "" Then
Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & "resimyok.jpg"
Else
Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & resim_adi
End If

İlk Yolu denedim olmamıştı Şimdi hemen bunu deneyeceğim.