Kayıt Silindiğinde Silinenler Tablosuna Aktarma

iyi çalışmalar;

FirmaID
Firma_Adi
Yetkili_Kisi
Yetkili_Cep ....... gibi giden Tbl_Firmalar_data diye tablom var bir tanede Tbl_Silinen_Firmalar_data diye tablo yaptım her şeyi ile aynı iki tablo

Formumda Kayıt Sil diye buton yaptım. Butona tıklanınca o kaydımın silinip Tbl_Silinen_Firmalar_data tablosuna aktarılmasını istiyorum. nasıl yapabilirim.

silme onayından sonra

CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where firmaId=" & me.txtfirmaid

kodunu yazıp dener misiniz.

(20/05/2019, 10:46)haliliyas yazdı: silme onayından sonra

CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where firmaId=" & me.txtfirmaid

kodunu yazıp dener misiniz.

üstad Yaptım olmadı sanırım yapamadım.

acFormBar, acEditMenu, 2 ==> acCmdCopy
acFormBar, acEditMenu, 5 ==> acCmdPasteAppend
acFormBar, acEditMenu, 6 ==> acCmdDeleteRecord
acFormBar, acEditMenu, 8 ==> acCmdSelectRecord
acFormBar, acEditMenu, 10 ==> acCmdFind
acFormBar, acEditMenu, 12, 4 ==> acCmdRecordsGoToNew
acFormBar, acEditMenu, acCopy ==> acCmdCopy
acFormBar, acEditMenu, acPaste ==> acCmdPaste
acFormBar, acEditMenu, acUndo ==> acCmdUndo
acFormBar, acFile, acSaveForm ==> acCmdSave
acFormBar, acRecordsMenu, 0, 2 ==> acCmdAdvancedFilterSort
acFormBar, acRecordsMenu, 2 ==> acCmdApplyFilterSort
acFormBar, acRecordsMenu, 5 ==> acCmdRefresh
acFormBar, acRecordsMenu, acSaveRecord ==> acCmdSaveRecord
acFormBar, 7, 6 ==> acCmdSizeToFit
1, 3, 3 ==> acCmdNewObjectReport
3, acEditMenu, acPaste ==> acCmdPaste

   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 <== Kaydı Seç
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 <== Kaydı Sil anlamına gelir sizin kodu silmeden önceye yazmanız gerekiyordu.
yani kodunuz

Private Sub BtnKayitSil_Click()

If MsgBox("Kayıtı silmek istediginize eminmisiniz.", vbCritical + vbOKCancel) = vbOK Then

    CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where FirmaID=" & Me.FirmaID

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'Kaydı Seç

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 'Kaydı sil

Else

    Me.Undo

    MsgBox "Kayıt silme işlemi iptal edildi."

End If

End Sub

Üstad Teşekkür Ederim Olmuş