(11/04/2021, 16:37)berduş yazdı: bahsettiğiniz şekilde olabilmesi için bazı değişiklikler yaptım
mesela metin kutuları ilişkisiz yapıldı
hazır makro yerine Vba kullanıldı
dilerim işinize yarar

    With Me.Recordset

    .AddNew

        For Each fld In .Fields

        If fld.Name <> "Kimlik" Then fld.Value = Controls(fld.Name).Value

        Next fld

    .Update

    .Bookmark = .LastModified

    End With

Kardeşim eline fikrine sağlık istediğim gibi olmuş sağol.