ozan beyin çözümüne alternatif olarak.
alt formu filtrelemeden istenilen kayda gitmesi için (tüm kayıtlar aktif iken listedeki kayıta gitmek için)
Private Sub Liste0_Click()
Set accesstr = Forms("Form1").alt_album.Form.Recordset.Clone
accesstr.FindFirst "[alb_kimlik] = " & Str(Nz(Me![Liste0], 0))
If Not accesstr.EOF Then Forms("Form1").alt_album.Form.Bookmark = accesstr.Bookmark
End Sub