26/06/2010, 12:57
koDU BULDUM TŞK EDERİM.
Private Sub Liste58_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[KAYITNO] = " & Str(Nz(Me![Liste58], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Liste58_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[KAYITNO] = " & Str(Nz(Me![Liste58], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub