Skip to main content

AccessTr.neT


Etiketler
Yazar: assenucler - Cevaplar: 2 - İzleme: 2599
Tablo verileri silinmeden önce kaydedilsin istiyorum.
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