Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
On Error GoTo iptal
DoCmd.SetWarnings False
Dim silinen As New ADODB.Recordset
silinen.Open "TBL_SILINENLER", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
silinen.AddNew
silinen("TESLIM_ALAN_BIRLIK") = Me.TESLIM_ALAN_BIRLIK
silinen("SANDIK_NU") = Me.SANDIK_NU
silinen.Update
silinen.Close
Set silinen = Nothing
DoCmd.SetWarnings True
iptal:
Exit Sub
End Sub
Arkadaşlar merhaba nasılsınız. Konu ile ilgili sayfada birçok örnek mevcut, derdime deva olacak olanı buldum ancak ben yapamadım yardımcı olur musunuz? Örnek olarak eklediğim form kayıt sil butonu olmadan satırı seçip delete tuşuna basıldığında formun silme olayında silme gerçekleştiriyor. Bunun için aşağıdaki kodu kullandım. Kod çalışıyor silme işleminden sonra kaydı TBL_SILINENLER tablosuna da alıyor ancak asıl sildiğim kaydın bir satır altında olan ve silinenler tablosuna alınmaması gereken, konu ile hiçbir alakası olmayan kaydı kopyalıyor ve bu esnada da silmek istediğim kayıt silinmiş oluyor. Bu sıkıntıyı bir türlü çözemedim. insert into ile olan kodu da denedim onda da aynı sonucu aldım. Her seferinde asıl kayıt siliniyor ancak onun bir alt satırında kalan kayıt TBL_SILINENLER tablosuna ekleniyor. size zahmet ilgilenirseniz çok makbule geçer şimdiden teşekkür ederim hoşçakalın.