bir önceki mesajda örnek olarak verilen bağlantıdaki örnek uygulamadan yola çıkmak sureti ile;
GELİR formundaki listenin ÇİFT TIKLANDIĞINDA olay yordamı içerisine
Kod:
Private Sub Liste_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_No]=" & Str(Nz(Me![Liste], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Kod:
Private Sub Listee_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_No]=" & Str(Nz(Me![Listee], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub