sayın raburabu,

eklediğiniz örnek uygulama,
kendi adıma olmak üzere,üst sürüm olması gerekçesi ile inceleme imkanım olmamaktadır fakat aşağıdaki açıklamaların yapılması uygun görülmüştür.

eğer ilgili formu açarken,form açma kod satırını kullanarak gerçekleştiriyorsanız;

DoCmd.OpenForm "acilacak_formun_adi", , , "[id_alan_adi]=" & Me.id_denetimi_adi

örnek kod kalıbını kullanabilirsiniz.burada,önemli olan kriter satırının doğru yazılması gerektiğidir.

eğer bir liste üzerinden söz konusu ise,bu işlem için;

Dim rs As Object

Set rs = Me.Recordset.Clone

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

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

örnek kod kalıbını kullanabilirsiniz.

bilginize...iyi çalışmalar,saygılar.