yani aslolan öğretmek ve öğrenmek ,
işimiz sizin işiniz yapmak değil size yol göstermek
ama soruş tarzınızdan anlıyorum ki -resmen yapılacaklar listesi sunmuşsunuz- siz sadece işinizi bize yaptırmak istiyorsunuz
her defasında tek soru sorun, yeni soru sormadan önce araştırın eğer bulamazsanız biz yardımcı olmaya çalışırız ama daha en başta araştırmadan seri halde soru sorarsanız yardımcı olmayız
aşağıdaki kod altformun Form_Current olayının kodu
Private Sub Form_Current()
If IsNull(Me.Kimlik) Then Exit Sub
Me.Parent.Kimlik.SetFocus
Set rst = Me.Parent.RecordsetClone
ArmaKrt = Me.Kimlik
rst.FindFirst "Kimlik = " & ArmaKrt
If Not rst.NoMatch Then Me.Parent.Bookmark = rst.Bookmark
rst.Close
End Sub