06/02/2021, 01:10
nazurabi
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
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