+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Resim Yoksa Hata Sorunu (/konu-formda-resim-yoksa-hata-sorunu.html)
Sayfalar:
1
2
Cvp: Formda Resim Yoksa Hata Sorunu - ozanakkaya - 31/05/2018
Merhaba,
personel_List isimli liste kutusunun güncelleştirme sonrasında olayındaki resim ile ilgili kodları sil,
Formun geçerli olduğunda olayındaki
If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then
Me!ResimCercevesi.Picture = Me!MKResimYolu
Else
Me!ResimCercevesi.Picture = ""
End IfKodunu sil, yerine aşağıdaki kodları ekle,
If (Len(Dir(Me!MKResimYolu))) > 0 And (Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu)) Then
Me.ResimCercevesi.Picture = Me!MKResimYolu
Else
Me.ResimCercevesi.Picture = ""
End If
Cvp: Formda Resim Yoksa Hata Sorunu - fascioğlu - 31/05/2018
Sayın Ozan hocam,
Kodları uyguladım,resimdeki hatayı verdi.
![[Resim: do.php?imgf=152776808981911.png]](https://accesstr.net/resim/do.php?imgf=152776808981911.png)
Cvp: Formda Resim Yoksa Hata Sorunu - ozanakkaya - 31/05/2018
Uygulamanızı hata verdiği haliyle tekrar ekleyiniz.
Cvp: Formda Resim Yoksa Hata Sorunu - fascioğlu - 31/05/2018
dosya ekte.
Cvp: Formda Resim Yoksa Hata Sorunu - ozanakkaya - 31/05/2018
Geçerli olduğunda olayındaki ilgili kodları aşağıdaki ile değiştir.
If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then
If (Len(Dir(Me!MKResimYolu))) > 0 Then
Me.ResimCercevesi.Picture = Me!MKResimYolu
Else
Me.ResimCercevesi.Picture = ""
End If
Else
Me.ResimCercevesi.Picture = ""
End IfCvp: Formda Resim Yoksa Hata Sorunu - fascioğlu - 31/05/2018
Sayın Ozan hocam..
Emeğiniz için çok teşekkür ederim
Konu çözülmüştür.
Saygılarımla