Merhabalar;
Form1'e Bir tane Buton Koyun Tıkladığında Olayına Aşağıdaki Kodu Kullanın.

Dim rs As Object



 DoCmd.OpenForm "form2"

 

 Set rs = Forms!form2.Recordset.Clone

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

 If Not rs.EOF Then Forms!form2.Bookmark = rs.Bookmark

Olumlu yada olumsuz geri dönüş yapmayı unutmayınız.
iyi çalışmalar.