Yeni Kayıt Oluşmuyor

11/04/2021, 11:12

ankaram

Slm plakadan veri getiriryorum.Ama gelen verilerdeki değişiklikleri yaptıktan sonra yeni kayıt oluşturduğumda eski kayıtın üzerine yazıyor.Ben eskide olsun yenide olsun istiyorum.Şimdiden teşekkürler.
11/04/2021, 16:37

berduş

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
11/04/2021, 17:11

ankaram

(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.
11/04/2021, 17:15

berduş

Rica ederim
Iyi çalışmalar )
12/04/2021, 15:28

berduş

dosya güncellenmiştir