AccessTr.neT

Tam Versiyon: Formdan Tabloya Update Mi Kullanılmalı Yoksa Silip Tekrar Kaydetmek Mi Mantıklı.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar 
İlişkisiz bir Uye Tanımlama formum var. Kaydetme ve silme fonksiyonları calısıyor. Bilgilerde deöişiklik yapma ihtiyacı olduğunda ilgili Formda  Düzenle Tusunun olay yordamında update mi kullanmalıyım yoksa silip tekrar kaydetme seklinde mi çalıştırmalıyım. Silip tekrar kaydetme yontemı sanki daha mantıklı ve cabuk gibi ama bır sakınca cıkma ıhtımali varmı sonucta bu üyenin database de hareketleri olacak hareket gormus bır kaydı sildirmek ve tekrar kaydetmek mantıklı mı ?
[Resim: do.php?img=9750]
Sn.Oguz Turkyilmaz

Ben bu sekilde bir form kullansaydim, kesinlikle update tusu kullanirdim. Cunku ayni kisiye ait baska yerlerde kayitlar olabilir. 

Karar tabiki sizin

Kolay gelsin
(27/02/2020, 14:36)orhantanriverdi yazdı: [ -> ]Sn.Oguz Turkyilmaz

Ben bu sekilde bir form kullansaydim, kesinlikle update tusu kullanirdim. Cunku ayni kisiye ait baska yerlerde kayitlar olabilir. 

Karar tabiki sizin

Kolay gelsin
Yanıtınız için çok teşekkür ederim. Öyle yapayım.
Ekleme sorgusu veya güncelleme sorgusu yerine ado kullanın. Sorguda tablodaki alanın veri tipine göre sorunlar çıkabilir.

Kayıt eklemek için;
strSQL = "SELECT * FROM tabloadı "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
            If Not rstkayit.EOF Then
                .AddNew
                .Fields("tablodakialan1") = Me.metinkutusu1
                .Fields("tablodakialan2") = Me.acilankutu.Column(0)
                .Update
            End If
        End With


Kayıt güncellemek için;

strSQL = "SELECT * FROM tabloadı "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
        .Find "[kayitno]=" & "'" & Me![KAYITNO] & "'"
            If Not rstkayit.EOF Then
                .Fields("tablodakialan1") = Me.metinkutusu1
                .Fields("tablodakialan2") = Me.acilankutu.Column(0)
                .Update
            End If
        End With

Ado kodunda tablodaki alanlar ve formdaki denetimleri alt alta yazdığı için net görebilirsiniz ve hata olasılığı azalır.

Bu kodun kullanılması için ado referansının eklenmesi gerekli.
Çok teşekkür ederim ozan bey bu cevabın gelmesi cok iyi oldu.