merhaba
bu kodları eklemen yeterli olacaktır.
Private Sub Liste51_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Kodu] = " & Str(Nz(Me![Liste51], 0))
Me.Bookmark = rs.Bookmark
End Sub
Adı Soyadı:
Ce.... Ya....
Konum:
Ankara
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
Bugün,22:17
Cevapla