liste kutusundan seçilen değere göre metin kutularının değer almasını istiyorum bunu nasıl yapabilirim

çalışmanıza kayıt isimli yeni bir form ekledim oradan inceleyebilirsiniz demek istediğinizi anladığım kadarıyla yapdığımı düşünüyorum.
iyi günler

selam

eleman adlı Formunudaki liste kutusunun kayıt kaynağındaki kayit sorguyu tasarımda açın ve kayıt tablosundaki kimlik alanını sorgunuza ekleyin sorguyu kaydedip kapatın ardından kayıt tablusunu tasarımda açıp metin kutusu ekleyin
kimlik alanını bir metin kutusuna bağlayın liste kutusunun güncelleştirme olay yordamına alttaki kodu ekleyin

' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[kimlik] = " & Str(Nz(Me!Liste34, 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

saygılarımla

çok teşekkür ederim döndüdedöndü gerçekten hayat kurtardınız. aslında ben bu programı c# da yazmıştım gayet de güzel olmuştu. ama hocam kabul etmedi o access de istiyormuş ben access'i bugune kadar sadece veritabanı olarak kullanmıştım. Bu projeyi buraya kadar bile getirmek benim icin çok zahmetliydi tekrar yardımcı olan herkese teşekkür ediyorum

önemli değil arkadaşım bizlerde burdan öğreniyoruz bir şeyler burası mükemmel bir forum sağolsun herkes elinden geldiği kadar bildiği kadar yardımcı oluyor

peki bir şey daha soracağım mesela burada yeni kayıt ekleyip personel listesine tıkladığımda eklediğim son kayıt gözükmüyor ama formu kapatıp tekrar açınca gözüküyor.yada f5'e basınca geliyor bunu nasıl otomatikleştireceğim yada formu yenilemenin kodu nedir.