+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Silinen Kaydı Tabloya Kopyalama (/konu-formda-silinen-kaydi-tabloya-kopyalama.html)
Formda Silinen Kaydı Tabloya Kopyalama - nazurabi - 06/02/2021
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.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 SubRE: Formda Silinen Kaydı Tabloya Kopyalama - userx - 06/02/2021
Ekteki dosyayı inceler misiniz?
RE: Formda Silinen Kaydı Tabloya Kopyalama - nazurabi - 07/02/2021
(06/02/2021, 02:10)userx yazdı: Ekteki dosyayı inceler misiniz?
Sayın userx çok teşekkür ediyorum aynen de bu şekilde olmasını istiyordum. Emeğinize sağlık