Formun kayıt kaynağına Kimlik alanını ekle, yani;

SELECT hmk.md_başlık, hmk.md_no, hmk.md_adı, hmk.md FROM hmk;

olan kayıt kaynağını

SELECT hmk.md_başlık, hmk.md_no, hmk.md_adı, hmk.md, hmk.Kimlik FROM hmk; 

ile değiştir

liste kutusunun çift tıklandığında olayına aşağıdaki kodu ekle.

Dim rs As Object

 Set rs = Me.Recordset.Clone

 rs.FindFirst "[Kimlik] = " & Str(Nz(Me![Liste34].Column(1), 0))

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

Bu şekilde liste kutusunu çift tıkladığında kaydı forma yansıtır