"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