(15/06/2022, 15:01)berduş yazdı: sayın @derzulya formun amacı araştıran, öğrenmek isteyen ama bir yerde takıldığı için ilerleyemeyen kişiler yardımcı olmak
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

yazım şeklimden yanlış anlaşılmışım. özür dilerim. Yıllardır bu forumda öğrenmeye çalışarak birşeyler çıkardım sayenizde. yanlış anlaşılma için kusura bakmayın tekrar. bu nedenle konuyu silmenizi rica ediyorum. İyi çalışmalar dilerim.