Skip to main content

#EvdeKal


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

Visual Basic Code
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 Adlı Kullanıcıdan Alıntı: silme onayından sonra

Visual Basic Code
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ı: 10)
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

Visual Basic Code
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