(27/12/2015, 15:37)emred34 yazdı: Verilen Örnek gayet güzel fakat benim için fazla karışık olduğu için yapamadım yinede teşekkürler

Sayın emred34,

Bağlantısını paylaştığım uygulamada bulunan formda buton tıklandığında insert into ile tüm veriler arsiv isimli tabloya aktarılıyor.

If MsgBox("Evrak Kayıt Tablosu Arşivlensin mi?", 36, "Yedekleniyor...") = vbYes Then

DoCmd.RunSQL "INSERT INTO tbl_arsivevrakkayit ( sno, kayitno, yil, geldigiyer, tarih, sayisi, alindigitarih, eki, gonderildigiyer, tarihi, soncevaptarihi ) SELECT tbl_evrakkayittablo.sirano, tbl_evrakkayittablo.kayitno, tbl_evrakkayittablo.yil, tbl_evrakkayittablo.geldigiyer, tbl_evrakkayittablo.tarih, tbl_evrakkayittablo.sayisi, tbl_evrakkayittablo.alindigitarih, tbl_evrakkayittablo.eki, tbl_evrakkayittablo.gonderildigiyer, tbl_evrakkayittablo.tarihi, tbl_evrakkayittablo.soncevaptarihi FROM tbl_evrakkayittablo;"

..........

Formda bulunan diğer buton ile tablodaki tüm veriler siliniyor.

If MsgBox("İzin İstirahat Tablosu Silinsin mi?", 36, "Siliniyor...") = vbYes Then

DoCmd.RunSQL "DELETE tbl_izinistirahat.sno, tbl_izinistirahat.personelno, tbl_izinistirahat.turu, tbl_izinistirahat.baslamatarihi, tbl_izinistirahat.suresi, tbl_izinistirahat.ek, tbl_izinistirahat.tarih, tbl_izinistirahat.paraf, tbl_izinistirahat.paraf1, tbl_izinistirahat.paraf2, tbl_izinistirahat.paraf3, tbl_izinistirahat.imza, tbl_izinistirahat.[+izin], tbl_izinistirahat.dilekcetarihi, tbl_izinistirahat.sevkyeri, tbl_izinistirahat.bitistarihi, tbl_izinistirahat.erkenbaslamatarihi, tbl_izinistirahat.rahatsizlanmatarihi, tbl_izinistirahat.mazeretnedeni, tbl_izinistirahat.yazisiyazildi, tbl_izinistirahat.rtffield, tbl_izinistirahat.arzrica FROM tbl_izinistirahat;"

siz arşivlediğiniz kaydı tekrar incelemek isterseniz arşiv verilerinin bulunduğu form oluşturup bu formdaki kayıtları tekrar tabloya aktarabilirsiniz. Tablo silme kodu düzeltilebilir.