Skip to main content

AccessTr.neT


Kayıt Silindiğinde Silinenler Tablosuna Aktarma

Kayıt Silindiğinde Silinenler Tablosuna Aktarma

Çözüldü #1
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.
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/05/2019, 09:36, Düzenleyen: haziran4.
Cevapla
#2
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.
Cevapla
#3
(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.
.rar Silinen.rar (Dosya Boyutu: 46,79 KB | İndirme Sayısı: 14)
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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
Cevapla
#5
Üstad Teşekkür Ederim Olmuş
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task