sicilno kısmına bir no yazınca o sicilno kime aitse ad soyad kısmına adı ve soyadı gelecek. Şimdiden Teşekkürler
Son Düzenleme: 26/12/2010, 23:05, Düzenleyen: melik56.
Private Sub Sicil_no_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Sicil_no] = " & Str(Nz(Me![Sicil_no], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub