AccessTr.neT

(21/12/2015, 19:06)ozanakkaya yazdı: [ -> ]Atoz Hocanın cevabına ek olarak,

PolSoft Final bağlantısındaki uygulamayı inceleyiniz.

frm_tablotemizleveaktar isimli formda, butonu tıkladığında arşivlencek tabloları arsiv tablosuna aktarır, eski tablodaki verileri siler, uygulamayı bakım yaparak kapatıp açar.

Bu program tam açılmıyor ama yinede kodlara göre birşey yapmaya çalıştım ama program çok karışık bana gerekl olan yerleri tam anlamıyla anlamış değilim . verileri arşivleyip siliyor ama onların ben tarihe görede geri gelip rapop almak istersem nasıl yol izlerim. yokmu sadece ona ait bir uygulama

Birleştirme sorgusu ile veri ve Arşiv tablolarını alt alta tek sorgu ile görebilirsiniz. Bunun ile ilgili ayrı örnek yok. Hazır kodların bulunduğu uygulamanın bağlantısını paylaşmıştım.

Verilen Örnek gayet güzel fakat benim için fazla karışık olduğu için yapamadım yinede teşekkürler

(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.