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