AccessTr.neT
Formda Resim Yoksa Hata Sorunu - Baskı Önizleme

+- 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


Formda Resim Yoksa Hata Sorunu - fascioğlu - 25/05/2018

Sayın Hocalarım,
Daha evvelki projelerimde açıkladığım gibi önceden yapmış olduğum projeleri tekrar elden geçirip,becerebildiğim
kadar hataları düzeltmek.
 Özelliklede Türkçe karakterler gibi.vs.
 
1_Ekli Personel Projemde PERSONEL formunda sol tarafta personel isimlerinin yer aldığı liste var.
 Bu listede Resmi bulunmayan ismi açtığımda hata alıyorum ve bu hatayıda end diyerek geçiştiriyorum.
 Burada benim isteğim resim olsun veya olmasın Listeden seçtlğm personelin bilgilerini
görüntülemek.
 2-Listeden seçtiğim personel bilgileri forma yüklenirken acayip bir refleks gösteriyor gecikmeli olarak alanlara bilgileri getiriyor bu durumun hiçte hoş bir görüntü oluşturmuyor.
 
    Her iki konuda ne yapılabilir.
Saygılarımla.


Cvp: Formda Resim Yoksa Hata Sorunu - fascioğlu - 31/05/2018

Sayın hocalarım,

Rica etsem bu sorum  hakkında bir fikir verebilirmisiniz.
Saygılarımla.
İyi çalışmalar.


Cvp: Formda Resim Yoksa Hata Sorunu - ozguryasin - 31/05/2018

Private Sub personel_List_AfterUpdate()
' Denetime uyan kaydı bul.
   Dim rs As Object

   Set rs = Me.Recordset.Clone
   rs.FindFirst "[PERSID] = " & Str(Nz(Me![personel_List], 0))
   If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   
   
If IsNull(Me.ResimCercevesi.Picture = Dlookup ("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.personel_List.Column(0))) Then
Me.ResimCercevesi.Picture = Dlookup ("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.personel_List.Column(0))

Else
   
End If
Calisiyormu
End Sub

denermisiniz


Cvp: Formda Resim Yoksa Hata Sorunu - fascioğlu - 31/05/2018

Sayın Özgür hocam,

Hataverdi hata  kodu;

Me.ResimCercevesi.Picture = Dlookup ("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.personel_List.Column(0))


Cvp: Formda Resim Yoksa Hata Sorunu - C*e*l*o*y*c*e - 31/05/2018

Bene çalıştı ,hata yok,resim yerine dikkat edin


Cvp: Formda Resim Yoksa Hata Sorunu - fascioğlu - 31/05/2018

Sayın hocam..
Belirttiğim kodu kaldırdım,
bende de şu an çalıştı,sonrası henüz belli değil test ediyorum.

Saygılarımla
İyi çalışmalar.