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.

Sayın hocalarım,

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

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

Sayın Özgür hocam,

Hataverdi hata  kodu;

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

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

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.