sayın @aliyuzen eklenen ve silinen kayıtlar da zaten güncelleme tablosunda yer almıyor mu?
Log Hatası Alıyorum
(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.
Teşekkürler,
Saygılarımla,
Power BI İş Analitiği Danışmanı
Ali Yüzen
Saygılarımla,
Power BI İş Analitiği Danışmanı
Ali Yüzen
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
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
kayıt casusundaki silme fonksiyonunu da aşağıdaki kodla değiştirip dener misiniz
"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.
Teşekkürler,
Saygılarımla,
Power BI İş Analitiği Danışmanı
Ali Yüzen
Saygılarımla,
Power BI İş Analitiği Danışmanı
Ali Yüzen
Konuyu Okuyanlar: 1 Ziyaretçi