AccessTr.neT
Tablo verileri silinmeden önce kaydedilsin istiyorum. - Baskı Önizleme

+- 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ığı: Tablo verileri silinmeden önce kaydedilsin istiyorum. (/konu-tablo-verileri-silinmeden-once-kaydedilsin-istiyorum.html)



Tablo verileri silinmeden önce kaydedilsin istiyorum. - assenucler - 30/12/2008

Tablo verileri silinmeden önce kaydetsin istiyorum.

İyi akşamlar...

"YonetimGelirleri" tablosundaki verileri silerken, "Arsiv_bugününtarihi" adlı bir tabloya yedeğini alsın istiyorum. Koda nasıl bir ekleme yapmak gerekiyor.

Private Sub Komut24_Click()
On Error GoTo Err_Komut24_Click
Dim cevap As Long

cevap = MsgBox("TÜMVERİLER SİLİNİYOR!!", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
CurrentDb.Execute ("DELETE * FROM [YonetimGelirleri] ")
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Else
Cancel = True
End If
Exit_Komut24_Click:
Exit Sub

Err_Komut24_Click:
MsgBox Err.Description
Resume Exit_Komut24_Click

Yardımınız için teşekkürler.


Cvp: Tablo verileri silinmeden önce kaydedilsin istiyorum. - C*e*l*o*y*c*e - 30/12/2008

daha önceden yapılan bir örnek var bundan yola çık


Cvp: Tablo verileri silinmeden önce kaydedilsin istiyorum. - assenucler - 30/12/2008

Sayın C*E*L*O*Y*C*E ;

Hızır gibi yardımıma yetiştiniz. Sağolun varolun...

Teşekkürler.