Her iki formda açılan ve kalıcı özellikleri aktif olduğundan ara formunu kapatman gerekecek. Önce bulacaksın bulduğun üzerinde işlem yapmak için ara formunu kapatacaksın.
Kolay gelsin.

Private Sub Liste0_DblClick(Cancel As Integer)

Dim stDocName As String

    Dim stLinkCriteria As String

    

    stDocName = "FKayit"

    stLinkCriteria = "[Toplam Kayıt Sayısı]=" & Me![Liste0]

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 DoCmd.Close acForm, "fara"

End Sub

Ayrıca formu daraltma için önce (Kaydı Açmak İçin ÇİFT Tıklayın !!!) etiketini daraltman gerek.