sayın @aliyuzen eklenen ve silinen kayıtlar da zaten güncelleme tablosunda yer almıyor mu?

(01/03/2019, 14:08)haliliyas yazdı: sayın @aliyuzen eklenen ve silinen kayıtlar da zaten güncelleme tablosunda yer almıyor mu?

Kastettiğim içerikleri idi... Alan verisi olarak, eski veri ve yeni veri olarak tututan kayıtlar gibi, aynen silinen bir kayıt varsa, sadece ID bilgisini tutuyor. İçerik olarak ol alanlarda ne vardı bilgisini tutumuyor. Aslında, bunu ifade etmek istemiştim.

Yani, silinen alanların içeriklerini de silmeden önce tabloya ekletmenin yolunu benimle paylaşabilir misiniz? Teşekkürler.

aklıma 2 yöntem geliyor ya 2. bir tablo oluşturursunuz silinen her kaydı oraya ekler ya da denetim alanındaki eski veri kısmına her alanın değerini toplayarak ekler mesela kayıt bilgileri  MLZ_28 ; huyt5 ; 8,00 ;8,00 ;8,00 ;8,00 ;huy85 ;Beyaz ;Mat ;Parlak ;Laminasyon ;Malzeme olan kaydın bu verilerini

34261 ;1.03.2019 14:07:00 MALZEME_ADI_T 27 MALZEME_ADI_T_F ; (MLZ_28 huyt5 8,00 8,00 8,00 8,00 huy85 Beyaz Mat Parlak Laminasyon Malzeme )  1 Kayıt Silindi
eklemek

silineni güncelleme tablosuna eklemek için
"MALZEME_ADI_T_F" formunkai delete olayını aşağıdaki kod ile
not: ben her alanı ekledim ama siz sadece gerekli alanları eklersiniz

Private Sub Form_Delete(Cancel As Integer)

Dim silinen As String

silinen = Me.MALZEME_NO & "; " & Me.EN & "; " & Me.BOY & "; " & Me.KALINLIK & "; " & Me.MALZEME_ACIKLAMA & "; " & Me.ARKASI & "; " & Me.OZELLIGI & "; " & Me.EK_OZELLIK & "; " & Me.TURU

Call Silinme(Form, [MALZEME_NO], silinen)

End Sub

kayıt casusundaki silme fonksiyonunu da aşağıdaki kodla değiştirip dener misiniz

Public Function Silinme(frm2 As Form, KayitKimligi2 As String, silinen2 As String)

'Silinen kayıtları ID numarasına göre kaydeder..



    Tablo = frm2.RecordSource

    Msj = "Kayıt Silindi"

    Kllnc = AktifKullanici

    Zmn = Now()



    'Silinme işlemini kaydedelim..

    Sorgu = "INSERT INTO Tbl_Guncelleme_Kaydi ([Tablo], [KayitNo], [FormAdi], " _

          & "[Silinme], [KulKodu], [Zaman],[EskiVeri]) " _

          & "VALUES ('" & Tablo & "', '" & KayitKimligi2 & "', '" & frm2.Name & "', " _

          & "'" & Msj & "','" & Kllnc & "', '" & Zmn & "','" & silinen2 & "')" 



    CurrentDb.Execute Sorgu



End Function

Birkaç değişiklik yaptım. Ellerinize sağlık. Teşekkür ederim. İyi ki varsınız.