Giden formunda listeden verileri getirtemiyorum.Yardımcı olursanız sevinirim.
XXXXXXXXXXXXXXXXXXXXXXXXXX
Site Kuralları : İçerisinde gerçek veri bulunduran dosyalar siteye eklenemez.

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[No] = " & Str(Nz(Me![Liste8], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark