Kullanıcıya ait resim ekleme

ilgili formun açıldığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.

  SpeedEffect = 80



  'SetFormIcon "Logo.ico", Me.Name, Me.hwnd

 BoxGénéraleSize = Me!boxGénérale.Height

 BoxResultSize = Me!boxResult.Height

 BoxDétail = Me!boxDétails.Height

 

cmdDétails_Click

cmdResult_Click

cmdGénérale_Click

Me.TimerInterval = 800







Dim ResimYolu As String

Dim ResimDir As Variant

ResimYolu = Nz(DLookup("[resim]", "PERSONEL", "[SICILI]=" & PersonelSicili), "")

ResimDir = Dir(CurrentProject.Path & "\resim\" & ResimYolu)



If IsNull(ResimDir) Or ResimDir = "" Then

[Sub].Form![Resim12].Picture = CurrentProject.Path & "\resim\resimyok.jpg"

Else

[Sub].Form![Resim12].Picture = CurrentProject.Path & "\resim\" & ResimYolu

End If

hocam vermiş olduğunuz kodu 4.mesajda ki örnek uygulama üzerinde denedim fakat çalışmadı. birde ben personel tablosunda yer alan  resim metin kutusuna resim klasöründe yer alan resimlerin yolunu kaydettiriyorum. sormak istediğim personel bilgileri formunda ilgili personele ait resim eklediğim zaman bu vermiş olduğunuz kodlarda sıkıntı olmaz dimi? 

(14/12/2014, 23:47)polak_68 yazdı: sormak istediğim personel bilgileri formunda ilgili personele ait resim eklediğim zaman bu vermiş olduğunuz kodlarda sıkıntı olmaz dimi?

ben boş yere uygulama boyutu artmaması için tablodaki ilgili yere sadece resim adını kaydettim, resim yolunu currentproject.path kodu ile tamamladım.

Kodu kendi uygulamanızda da aynı şekilde uygulamanızı tavsiye ediyorum. 

Uygulamanın düzenlenmiş hali ektedir.

sayın polak_68,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.bilgilendirmek ister misiniz lütfen.teşekkürler.bilginize.

iyi çalışmalar,
saygılar.

Hocam kusura bakmayın cevap yazmayı unutmuşum. Sn ozanakkaya Hocamın vermiş olduğu kod ile sorun cozuldu