+- 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ığı: Kayıt Silindiğinde Silinenler Tablosuna Aktarma (/konu-kayit-silindiginde-silinenler-tablosuna-aktarma.html)
Kayıt Silindiğinde Silinenler Tablosuna Aktarma - haziran4 - 20/05/2019
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.
Cvp: Kayıt Silindiğinde Silinenler Tablosuna Aktarma - berduş - 20/05/2019
silme onayından sonra
CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where firmaId=" & me.txtfirmaidCvp: Kayıt Silindiğinde Silinenler Tablosuna Aktarma - haziran4 - 20/05/2019
(20/05/2019, 10:46)haliliyas yazdı: silme onayından sonra
kodunu yazıp dener misiniz.CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where firmaId=" & me.txtfirmaid
üstad Yaptım olmadı sanırım yapamadım.
Cvp: Kayıt Silindiğinde Silinenler Tablosuna Aktarma - berduş - 20/05/2019
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 SubCvp: Kayıt Silindiğinde Silinenler Tablosuna Aktarma - haziran4 - 20/05/2019
Üstad Teşekkür Ederim Olmuş