Kod:
Private Sub Liste36_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ISLEM_ID] = " & Str(Nz(Me![Liste36], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
şu kodu deneyiniz?
Kod:
Private Sub MUSTERI_ID_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ISLEM_ID] = " & Str(Nz(Me![MUSTERI_ID], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub