Sn. Mahir Çınar,

Lütfen;
1- Sorularınız için ilk önce arama yapınız.
2- Her sorunuz için ayrı konu açınız.

1.Sorunuzun cevabı için. Personel formunda bulunan listenin tıkladığında olayına aşağıdaki kodu yazınız..

Private Sub Liste_Click()

    Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[idx] = " & Str(Nz(Me![Liste], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub